VB填空题Word文件下载.docx
《VB填空题Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB填空题Word文件下载.docx（18页珍藏版）》请在冰豆网上搜索。
subcommand1_click（）
constn=10
dimi,j,tasinteger
dima（1to10）asinteger
fori=1to10
______
（1）__________
nexti
Fori=1Ton-1
Forj=i+1Ton
If______
（2）______Then
k=a（i）:
a（i）=a（j）:
a（j）=k
EndIf
Nextj
Nexti
Fori=1Ton
List1.AddItemStr（a（i））
Endsub
答案：
1.False
2.”True”
3.55
4.a（i）=int（rnd（）*100）+1a（i）>
a（j）
第二套
1．有如下程序段：
t=x
x=y
y=t
该程序段运行后，y的值为
（1） 。
2．有如下程序段：
y=-20
ifnotx>
0thenx=y-3elsey=x+3
该程序段运行后，x的值为
（1） 。
3．有如下程序段：
e=0:
f=1
fori=1to3
e=e+f
f=f+e
该程序段运行后，f的值为
（1） 。
4．程序填空
有30个人，其中有男人、女人和小孩。
他们在一家饭馆里花去500元。
已知，每个男人花30元，每个女人花20元，每个小孩花10元。
问男人、女人、小孩各为多少人？
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
dimman,woman,child,sasinteger
forman=1to15
forwoman=1to23
child=_______
（1）__
s=30*man+20*woman+10*child
if___
（2）then
list1.additemstr（man）+"
"
+str（woman）+"
+str（child）
endif
nextwoman
nextman
endsub
图12-7
1．5
2．5
3．13
4．30-woman-mans=500andchild>
第三套
1.有如下程序段：
y=x
该程序段运行后，y的值为
（1） 。
该程序段运行后，y的值为
（1） 。
k=1
k=k*i
该程序段运行后，k的值为
（1） 。
从键盘键入一个整数x，将x插入到一列有序数据：
-5，3，4，12，20，45，70中，并使数据序列仍保持有序，试求出x应插入的位置。
Dima（1To8）AsInteger
Dimn,I,j,xAsInteger
PrivateSubCommand1_Click（）
x=Val（Text2.Text）
Ifx>
a（n）Then
________
（1）__________
Else
i=1
DoWhilex>
a（i）
_______
（2）__________
Loop
EndIf
Text3.Text=Str（i）
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
n=n+1
a（n）=Val（Text1.Text）
List1.AddItemStr（a（n））
Text1.Text="
"
:
Text1.SetFocus
1．6
2．8
3．120
4．i=8或i=n+1i=i+1
5．
第四套
p=Not（x+y<
>
11）
该程序段运行后，P的值是
（1） 。
x=5
y=10
z=12
Ifx+y>
zAndy+z>
xAndx+z>
yThena="
True"
Elsea="
False"
x=6
dowhilek<
=5
k=k+3
x=x+k
loop
该程序段运行后，x的值为
（1） 。
用物理天平测量物体的质量时，测得物体的质量为a克（a为整数，并小于１千克），问这时在天平的砝码盘中应有哪几个砝码，请选用最少数量的砝码（称质量为１千克的物体，天平的砝码由下列质量的砝码组成：
５００克１个，２００克１个，１００克２个，５０克１个，２０克1个，１０克２个，５克１个，２克２个，１克１个）。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图见图12-15）。
Dima（1To12）AsInteger
Dimi,xAsInteger
a
（1）=500:
a
（2）=200:
a（3）=100
a（4）=100:
a（5）=50:
a（6）=20
a（7）=10:
a（8）=10:
a（9）=5
a（10）=2:
a（11）=2:
a（12）=1
x=Val（Text1.Text）
i=1
dowhile_______
（1）_
ifx>
=a（i）then
List1.AddItemStr（a（i））
_________
（2）____________
Endif
i=i+1
1.True
2.“True”
3.17
4.x<
0x=x-a（i）
第五套
1．有如下VisualBasic程序段：
a=3:
b=2:
c=3
b=a+b*c
该程序段运行后，变量b的值为
（1）
2．有如下VisualBasic程序段：
a=39
b=93
Ifa+b>
100Thenpy="
太大"
Ifa+b=100Thenpy="
相等"
Ifa+b<
太小"
Label1.Caption=py
该程序段运行时，在Label1标签上显示的是
（1） 。
3．以下VisualBasic程序的功能是：
计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。
为了实现这一功能，程序中划线处的表达式应更正为_____
（1）________。
DimiAsInteger,sAsLong
s=0
i=1
DoWhilei<
=1024
s=s+2*i
i=i*2
Loop
Text1.Text=Str（s）
4．有一道趣味题，张老师问李老师:
你今年几岁？
你爱人今年几岁？
李老师笑笑说：
我年龄的平方与我爱人年龄之和恰好等于1053。
而我爱人年龄的平方与我的年龄之和却等于873。
你计算一下吧！
设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：
x2+y=1053
x+y2=873
解决此问题的流程图如VB-1所示。
根据流程图VB-1编写的VisualBasic程序如下，在
（1）和
（1）划线处，填入合适的语句或表达式，把程序补充完整。
DimxAsInteger,yAsLong
x=1
y=1053-x*x
DoWhile
（1）
（2）
y=1053-x*x
Text1.Text=Str（x）
Text2.Text=Str（y）
程序中划线处
（1）应填入
程序中划线处
（2）应填入
1．9
2．太大
3．i
4．y*y+x<
873x=x+1
第六套
a="
Happy"
b="
ness"
c=a+b
该程序段运行后，变量c的值是_____
（1）______。
DimxAsSingle,cAsString
x=Val（Text1.Text）
Ifx>
12Then
c="
PM"
c="
AM"
Label1.Caption=c
该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是
（1） 。
3．下列VisualBasic程序的功能是：
计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。
为了实现这一目标，程序中For语句划线处的循环变量步长应为_________
（1）_________。
DimsumAsLong
DimiAsInteger
sum=0
Fori=1To97Step
sum=sum+i*i
Text1.Text=Str（sum）
EndSub
4．模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。
程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。
图VB-1
当输入的运算符不是加、减、乘、除四种运算符时，则输出"
运算符不正确"
；
当进行除法运算时，如果除数为0，提示输出"
除数不能为零"
。
解决上述问题的算法流程图如图VB-2所示，相应的VisualB
升级会员 