东师《VB程序设计(高起专)》离线考核
5页1、离线考核VB程序设计(高起专)请核对好题目后下载满分100分一、填空题(每空2分,共20分。)1语句Print Int(12345.6789*100+0.5)/100的输出结果是: _12345.68 _。2. 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Text1.Text = VB程序设计End SubPrivate Sub Text1_Change()Picture1.Print VB ProgrammingEnd Sub程序运行后,单击窗体,在文本框中显示的内容是_VB程序设计_ ,而在图片框中显示的内容是_VB Programming_ 。3.在窗体上画一个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load_()Open d:tempdat.txt _For Output As #1_ Text1.Text=End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then_ If UCase(Te
2、xt1.Text)= END Then _ Close #1EndElse_ If UCase(Text1.Text)= Text1.Text Then_ Text1.Text=End IfEnd Sub以上程序的功能是:在D 盘temp 文件夹下建立一个名为dat.txt 的文件,在文本框中输入字符,每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容:如果输入“END”,则不写入文件,直接结束程序。请填空。4.某人编写下列函数来判断a 是否为素数,若是,则函数返回True;否则返回False。Function prime(a As Integer)As BooleanDim k As Integer,isprime As BooleanIf a2 ThenIsprime = FalseElseIsprime = Truek=2Do While ka/2 And isprimeIf a Mod k=0 Thenisprime=FalseElsek=k+1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有1 个非素
3、数也被判断为素数,这个错判的数是 _4_ 。5.下列程序的功能是把文件filel.txt 中重复字符去掉后(即若有多个字符相同,则只保留1 个)写入文件file2.txt。请填空。Private Sub Command1_Click( )Dim inchar As String, temp As String, outchar As Stringoutchar=Open file1.txt For Input As #1Open file2.txt For Output As #2_ n=LOF(1)_ inchar=Input$(n,1)For k=1 To ntemp=Mid(inchar,k,1)If InStr(outchar,temp)= _0_ Thenoutchar=outchar & tempEnd IfNext kPrint #2, _outchar_ Close #2Close #1End Sub 二、判断题(正确的用“T”表示,错误的用“F”表示。每小题2分,共20分。)( F )1. 可获得字符 ASCII 码值的函数为 Chr( )。( T )2. 静态变量只
《东师《VB程序设计(高起专)》离线考核》由会员Q****0分享,可在线阅读,更多相关《东师《VB程序设计(高起专)》离线考核》请在金锄头文库上搜索。
东北大学《工业炉热工及构造X》在线平时作业3-00001
东北大学《工业锅炉X》在线平时作业2-00001
东北大学《热工仪表检测及控制X》在线平时作业1-00001
东北大学《爆破安全》在线平时作业3-00001
东北大学《电力电子电路》在线平时作业3-00001
东北大学《自动控制原理Ⅰ》在线平时作业3-00001
东北大学《可视化程序设计(VB)》在线平时作业3-00001
东北大学《安全检测及仪表》在线平时作业2-00001
东北大学《大学英语(四)》在线平时作业3-00001
东北大学《能源利用与系统工程X》在线平时作业2-00001
东北大学《常用电器控制技术(含PLC)Ⅰ》在线平时作业2-00001
东北大学《模拟电子技术基础Ⅰ》在线平时作业2-00001
东北大学《财务管理》在线平时作业2-00001
东北大学《实用写作》在线平时作业2-00001
东北大学《数据库技术及应用Ⅱ》在线平时作业3-00001
东北大学《数据库技术及应用Ⅱ》在线平时作业2-00001
东北大学《工程力学X》在线平时作业1-00001
东北大学《可视化程序设计(VB)》在线平时作业2-00001
东北大学《形势与政策》在线平时作业3-00001
东北大学《工业锅炉(录题)》在线平时作业3-00001
2022-09-11 23页
2022-09-18 11页
2023-12-30 14页
2023-10-31 80页
2023-11-29 13页
2023-10-24 16页
2022-08-12 11页
2023-05-04 120页
2023-12-13 80页
2023-10-27 122页