admin 管理员组文章数量: 1086019
2024年3月27日发(作者：织梦网站更换系统)
(完整word)VB填空题及答案
一、填空题
1、Visual Basic对象可以分为两类，分别为 和 。
2、为了选择多个控件，可以按住 键，然后单击每个控件。
4、 浮点数由3部分组成，即符号、 和尾数。
5、下述语句段在运行时的显示结果是 。
Cls
x=10.34 + 8
Print Len(x）
x
2
y
2
a
b
转换成程序设计中的表达式为 .
6、将代数式
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的值为 。
55
(完整word)VB填空题及答案
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盘根目录下的图形文件装入图片框Picture1的语句是 。
20、当对象得到焦点时，会触发 事件，当对象失去焦点时将触发
事件。
21、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2,则输出,否则，
将焦点定位在文本框中，并清除文本框的内容。
x=Val（)
56
(完整word)VB填空题及答案
If Then
Print x
Else
Text1。Text=”"
End If
22、下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为1,则打印“您的成绩为优秀!"；若Text为2，则打印“您的成绩为良好!”
若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下！”，请填空。
Private Sub Command1_Click（)
Select Case Val（）
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
57
(完整word)VB填空题及答案
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 k / 10
31、在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp,单击该按钮，Form1窗体隐藏，显示Form2
窗体，程序如下，请补充完整。
Private Sub Disp_Click ()
Me。Hide
Form2。
End Sub
1.5 VB程序设计语言填空题答案：
题1—1
1—2
序
答预定义对象
用户定义对象
案
题
序
答
案
题7
序
答X<=5 or x〉=5
案
题
序
答
案
题11-1
11—2
序
答97 step —1
Chr$(i)
案
题14—2
15
序
答B＄=”i”
3、4
案
题17—1
17—2
18
序
2
Ctrl或
Shift
4
5
指数
9—1
Select Case x
5
6
Sqr((x*x+y＊y）/（a+b））
9-2
Case Else
12
12
16—1
Swit=1
19
58
13
10
16—2
I=I+1
14-1
Mid$(a＄，I，I）
(完整word)VB填空题及答案
答
案
题
序
答
案
题
序
答
案
题
序
答
案
题
序
答
案
题
序
答
案
题
序
答
案
题
序
答
案
img
20—1
GotFocus
21—2
pic
20-2
1
e=LoadPicture(“C:moo
")
21—1
X mod 4=1 and x mod 5=2
22-2
2
24
2
22—3
3
25-1
Interval
LostFocus
22—1
Text1。1
SetFocus
25-2
500
26
用来删除列表中指定的项目
28—1
28—2
28—3
List1。List1。List1。list（i）
AddItem i
ListCount-1
30—1
99＊rnd+1
30—2
31
A（j) mod 5=0
Show
59
版权声明：本文标题：(完整word)VB填空题及答案 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711477903a596111.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论