VB程序设计(高起专)

离线考核
《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 a<2 Then
Isprime = False
Else
Isprime = True
k=2
Do While k<a/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 的单击事件代码如下：
Private Sub Command1_Click()
Dim I As Integer
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）的标题显示；否则显示“对不起，你不是本系统用户！”，写出相应的事件过程。