东北师范大学VB程序设计（高起专）（离线考核）.doc

离线考核 《VB程序设计（高起专）》 满分100分 一、填空题（每空2分，共20分。） 1．句子Print Int(12345.6789*100+0.5)/100的输出成果是: __________。 2. 在窗体上画一个文本框和一个图像框,然后编写如下两个事情过程: 　　Private Sub Form_Click()　　 　　 Text1.Text = VB程序设计　　 　　End Sub 　　Private Sub Text1_Change()　　 　　 Picture1.Print VB Programming　　 　　End Sub 　　程序运转后,单击窗体,在文本框中显现的内容是_________________ ,而在图像框中显现的内容是_________________ 。 3.在窗体上画一个文本框，称号为Text1，然后编写如下程序： Private Sub Form_Load_() Open d:\temp\dat.txt _________________ Text1.Text= End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then _________________ Close #1 End Else _________________ Text1.Text= End If End Sub 以上程序的功用是：在D 盘temp 文件夹下树立一个名为dat.txt 的文件，在文本框中输入字符，每次按回车键都把当时文本框中的内容写入文件dat.txt，并铲除文本框中的内容：假如输入“END”，则不写入文件，直接完毕程序。请填空。 4.或人编写下列函数来判别a 是不是为素数，如果，则函数回来True；不然回来False。 Function prime(a As Integer)As Boolean Dim k As Integer，isprime As Boolean If a2 Then Isprime = False Else Isprime = True k=2 Do While ka/2 And isprime If a Mod k=0 Then isprime=False Else k=k+1 End If Loop End If prime=isprime End Function 在测试时发现有1 个非素数也被判别为素数，这个错判的数是 _________________。 5.下列程序的功用是把文件filel.txt 中重复字符去掉后(即若有多个字符一样，则只保存1 个)写入文件file2.txt。请填空。 Private Sub Command1_Click( ) Dim inchar As String, temp As String, outchar As String outchar= Open file1.txt For Input As #1 Open file2.txt For Output As #2 _________________ inchar=Input$(n,1) For k=1 To n temp=Mid(inchar,k,1) If InStr(outchar,temp)= _________________ Then outchar=outchar temp End If Next k Print #2, _________________ Close #2 Close #1 End Sub 二、判别题(正确的用“T”表明，过错的用“F”表明。每小题2分，共20分。) ( )1. 可取得字符 ASCII 码值的函数为 Chr( )。 ( )2. 静态变量只能在过程中界说而不能在通用声明段中界说。 ( )3. 指令按钮 Command1 的单击事情代码如下： PrivateSubCommand1_Click() DimIAsInteger I=I+1 EndSub 单击按钮 3 次,I 的值为 3。 ( )4. 一个符号常量能够赋同一类型的不一样值。 ( )5. InputBox 函数能够不带参数调用，而 MsgBox 函数则要求至少带一个参数调用。 ( )6. LoadPicture 是 VB 的一个函数，用于将指定的图像文件调入内存。 ( )7. 各种控件的一切特点都能够在设计形式下经过特点窗口设置，也都能够在运转形式下经过程序句子进行赋值。 ( )8. Input#句子是从文件中读取数据项, Line Input#读取的是文件中的一行,而 InputBox 函数要求从键盘输入数据。 ( )9. 用菜单修改器设计