一、填空题
1、Visual Basic 对象可以分为两类，分别为 和 。
2、为了选择多个控件，可以按住 键，然后单击每个控件。
4、 浮点数由3部分组成，即符号、 和尾数。
5、下述语句段在运行时的显示结果是 。
Cls
x=10.34 + 8 Print Len(x ）
6、将代数式
b a y x 2
2++转换成程序设计中的表达式为 . 7、 关系式x ≤—5或x ≥5所对应的布尔表达式是 。
9、下列程序的功能是：当x 〈50时，y=0.8×x ；当50≤x ≤100时，y=0.7×x ；当x 〉100时，没有意义。
请填空。
Private Sub Command1_Click （） Dim x As Single
x=InputBox("请输入x 的值！"） Case Is < 50 y=0。
8 * x Case 50 To 100 y=0。
7 * x
Print "输入的数据出界！” End Select Print x, y End Sub
11、 以下程序段的作用是将26个小写字母逆序打印出来，请补充完整。
For i=122 To Print ； Next i
12、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click(） x=0
Do Until x=—1
a=InputBox("请输入第一个数字a 的值") a=Val(a)
b=InputBox （”请输入第二个数字b 的值") b=Val （b ）
x=InputBox(”请输入第三个数字x 的值”） x=Val （x) a=a + b + x Loop Print a End Sub
程序运行后，单击命令按钮，在对话框中分别输入5,4，8，5,8,-1,输出结果为 。
13、执行下面的程序段，x 的值为 。
For i=1 To 9
a=a + i
Next i
x=Val(i）
MsgBox x
14、以下程序的功能是统计字符串中“i”的个数,请填空。
a$=”Beijing University of Technology"
Dim n As Integer
n=Len(a＄）
For i=1 To n
b$=
If Then x=x + 1
Next i
Print ”x="; x
15、下列程序的输出结果为。
num=2
While num 〈=3
num=num + 1
Print num
Wend
16、下列程序是判断一个整数（〉=3) 是否为素数，请补充完整。
（在数学上，判断素数的依据是:若n不能被2－Sqr(n）中的任何一个数整除，则n是素数，否则不是。
）
Dim n As Integer
n=InputBox（”请输入一个整数(〉=3) ”）
k=Int(Sqr(n） )
i=2
swit=0
While i <=k And swit=0
If n Mod i=0 Then
Else
End If
Wend
If swit=0 Then
Print n; "是一个素数。
”
Else
Print n; ”不是一个素数。
”
End If
17、每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为，Picture的前缀为。
18、要使标签的背景样式为不透明，应将BackStyle属性设置为。
19、将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是。
20、当对象得到焦点时，会触发事件，当对象失去焦点时将触发
事件。
21、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2,则输出,否则，将焦点定位在文本框中，并清除文本框的内容。
x=Val（Text1.Text)
If Then
Print x
Else
Text1。
Text=”"
End If
22、下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为1,则打印“您的成绩为优秀!"；若Text为2，则打印“您的成绩为良好!”
若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下！”，请填空。
Private Sub Command1_Click（)
Select Case Val（Text1.Text）
Case
Print ”您的成绩为优秀！”
Case
Print "您的成绩为良好！"
Case
Print "您的成绩为一般"
Case Else
Print ”您的成绩一般以下！”
End Select
End Sub
24、如果要将形状控件的内部设置为水平线，应将FillStyle属性设置为。
25、为了使计时器控件Timer1每隔0。
5秒触发一次Timer事件,应将Timer1控件的
属性设置为。
26、在修改列表框内容时,RemoveItem方法的作用是。
28、窗体上有一个名称为List1的列表框,一个名称为Text1的文本框，一个名称为Labell、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮.程序运行后,将把1～100之间能够被7整除的数添加到列表框中。
如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。
以下是实现上述功能的程序，请填空。
Private Sub Form_Load(）
For i=1 To 100
If i Mod 7=0 Then
End If
Next
End Sub
Private Sub Command1_Click（)
Sum=0
For i=0 To
Sum=Sum+
Next
Text1。
Text=Sum
End Sub
30、下面程序的功能是产生10个小于100（不含100）的随机正整数,并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Randomize
Dim a(10）
For j=1 To 10
a(i） =Int( )
If Then k=k + 1
Print a(j)
Next j
Print
Print k / 10
31、在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp,单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。
Private Sub Disp_Click ()
Me。
Hide
Form2。
End Sub。
