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, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论