离线考核
《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
Else
Isprime = True
k=2
Do While k<a/2 And isprime
If a Mod k=0 Then
isprime=False
Else
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
Print #2, _________________
Close #2
Close #1
End Sub
二、判断题(正确的用“T”表示，错误的用“F”表示。
每小题2分，共20分。
)
( )1.可获得字符ASCII码值的函数为Chr( )。
( )2.静态变量只能在过程中定义而不能在通用声明段中定义。
( )3.命令按钮Command1的单击事件代码如下：
I=I+1
End Sub
单击按钮3次,I的值为3。
( )4.一个符号常量可以赋同一类型的不同值。
( )5. InputBox函数可以不带参数调用，而MsgBox函数则要求至少带一个参数调用。
( )6. LoadPicture是VB的一个函数，用于将指定的图片文件调入内存。
( )7.各种控件的所有属性都可以在设计模式下通过属性窗口设置，也都可以在运行模式下通过程序语句进行赋值。
( )8. Input#语句是从文件中读取数据项, Line Input#读取的是文件中的一行,而InputBox函数要求从键盘输入数据。
( )9.用菜单编辑器设计菜单时,顶层菜单不能加快捷键,但可以在菜单标题中的字母前插入“&”符号来设置热键。
( )10.定时器控件的时间间隔设为0或Enabled属性设为False都将停止触发Timer事件。
三、编程题（每小题30分，共60分。
)
1.在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,编写事件过程实现单击窗体时把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext
2.txt。
(文件位置在D盘的test文件夹里)。
2.已知登录界面，由两个标签（Label1、Labe12）和两个文本框（txtName、txt Password）以及两个按钮(cmdExit、cmdOk)组成。
其中，口令文本框（txtPassword）的PasswordChar属性已经设置为“*”，运行时要求输入姓名和密码，单击cmdExit按钮退出程序，单击cmdOk按钮则判断在两个文本框中输入的内容是否为“Guest”和“12345”，是则弹出消息框，显示“欢迎使用本系统！”，并将1!+2!+3!+…+10!的值作为窗体（Form1）的标题显示；否则显示“对不起，你不是本系统用户！”，写出相应的事件过程。
