VB填空题及答案
- 格式：doc
- 大小：70.50 KB
- 文档页数：6
一、填空题
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() D im 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。
