第一套1.有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是(1)False或0。
2.有如下程序段：x=5y=10z=12if x+y<=z Or y+z<=x Or x+z<=y then a="False"else a="True"该程序段运行后，a的值为(1)True。
3.有如下程序段：s=0for i=1to5s=s+i*inext i该程序段运行后，s的值为(1)55。
4.程序填空随机产生10个0～100之间的整数，按从小到大的次序排序并输出。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图参见图12-3）。
图12-3sub command1_click()const n=10dim i,j,t as integerdim a(1to10)as integerfor i=1to10______(1)__a(i)=int(Rnd*101)________ next iFor i=1To n-1For j=i+1To nIf______(2)_a(i)>a(j)_____Thenk=a(i):a(i)=a(j):a(j)=kEnd IfNext jNext iFor i=1To nList1.AddItem Str(a(i))Next i第二套1.有如下程序段：x=5y=6t=xx=yy=t该程序段运行后，y的值为(1)5。
2.有如下程序段：x=5y=-20if not x>0then x=y-3else y=x+3该程序段运行后，x的值为(1)5。
3.有如下程序段：e=0:f=1for i=1to3e=e+ff=f+enext i该程序段运行后，f的值为(1)13。
4.程序填空有30个人，其中有男人、女人和小孩。
他们在一家饭馆里花去500元。
已知，每个男人花30元，每个女人花20元，每个小孩花10元。
问男人、女人、小孩各为多少人？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
sub command1_click()dim man,woman,child,s as integerfor man=1to15for woman=1to23child=_______(1)_30-woman-man_s=30*man+20*woman+10*childif___(2)s=500and child>0thenlist1.additem str(man)+""+str(woman)+""+ str(child)end ifnext womannext manend sub图12-7第三套1.有如下程序段：x=5y=6x=yy=x该程序段运行后，y的值为(1)6。
2.有如下程序段：x=5y=-20if not x>0then x=y-3else y=x+3该程序段运行后，y的值为(1)8。
3.有如下程序段：k=1for i=1to5k=k*inext i该程序段运行后，k的值为(1)120。
4.程序填空从键盘键入一个整数x，将x插入到一列有序数据：-5，3，4，12，20，45，70中，并使数据序列仍保持有序，试求出x应插入的位置。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
Dim a(1To8)As IntegerDim n,I,j,x As IntegerPrivate Sub Command1_Click()x=Val(Text2.Text)If x>a(n)Then________(1)___i=8_______Elsei=1Do While x>a(i)_______(2)___i=i+1_______LoopEnd IfText3.Text=Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13Thenn=n+1a(n)=Val(Text1.Text)List1.AddItem Str(a(n))Text1.Text="":Text1.SetFocusEnd IfEnd Sub第四套1.有如下程序段：x=5y=6p=Not(x+y<>11)该程序段运行后，P的值是(1)True或1。
2.有如下程序段：x=5y=10z=12If x+y>z And y+z>x And x+z>y Then a="True"Else a="False"该程序段运行后，a的值为(1)“True”。
3.有如下程序段：x=6k=1do while k<=5k=k+3x=x+kloop该程序段运行后，x的值为(1)17。
4.程序填空用物理天平测量物体的质量时，测得物体的质量为a克（a为整数，并小于１千克），问这时在天平的砝码盘中应有哪几个砝码，请选用最少数量的砝码（称质量为１千克的物体，天平的砝码由下列质量的砝码组成：５００克１个，２００克１个，１００克２个，５０克１个，２０克1个，１０克２个，５克１个，２克２个，１克１个）。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图见图12-15）。
Dim a(1To12)As IntegerDim i,x As IntegerPrivate Sub Command1_Click()a(1)=500:a(2)=200:a(3)=100a(4)=100:a(5)=50:a(6)=20a(7)=10:a(8)=10:a(9)=5a(10)=2:a(11)=2:a(12)=1x=Val(Text1.Text)i=1do while_______(1)_x<>0if x>=a(i)thenList1.AddItem Str(a(i))_________(2)___x=x-a(i)_________End ifi=i+1loopEnd Sub第五套1.有如下Visual Basic程序段：a=3:b=2:c=3b=a+b*c该程序段运行后，变量b的值为(1)9。
2.有如下Visual Basic程序段：a=39b=93If a+b>100Then py="太大"If a+b=100Then py="相等"If a+b<100Then py="太小"Label1.Caption=py该程序段运行时，在Label1标签上显示的是(1)太大。
3.以下Visual Basic程序的功能是：计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。
为了实现这一功能，程序中划线处的表达式应更正为_____(1)___i_____。
Private Sub Command1_Click()Dim i As Integer,s As Longs=0i=1Do While i<=1024s=s+2*ii=i*2LoopText1.Text=Str(s)End Sub4.有一道趣味题，张老师问李老师:"你今年几岁？你爱人今年几岁？"李老师笑笑说："我年龄的平方与我爱人年龄之和恰好等于1053。
而我爱人年龄的平方与我的年龄之和却等于873。
你计算一下吧！"设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：x2+y=1053x+y2=873解决此问题的流程图如VB-1所示。
根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()Dim x As Integer,y As Longx=1y=1053-x*xDo While(1)y*y+x<>873(2)x=x+1y=1053-x*xLoopText1.Text=Str(x)Text2.Text=Str(y)End Sub程序中划线处(1)应填入y*y+x<>873程序中划线处(2)应填入x=x+1图VB－1第六套1.有如下Visual Basic程序段：a="Happy"b="ness"c=a+b该程序段运行后，变量c的值是_____(1)_Happyness_____。
2.有如下Visual Basic程序段：Dim x As Single,c As Stringx=Val(Text1.Text)If x>12Thenc="PM"Elsec="AM"End IfLabel1.Caption=c该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是(1) PM。
3.3.下列Visual Basic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。
为了实现这一目标，程序中For语句划线处的循环变量步长应为_________(1)___3______。
Private Sub Command1_Click()Dim sum As LongDim i As Integersum=0For i=1To97Stepsum=sum+i*iNext iText1.Text=Str(sum)End Sub4.模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。
程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。
当输入的运算符不是加、减、乘、除四种运算符时，则输出"运算符不正确"；当进行除法运算时，如果除数为0，提示输出"除数不能为零"。
解决上述问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()Dim a As Single,b As Single,ch As Stringa=Val(Text1.Text)b=Val(Text2.Text)(1)ch=Text3.textIf ch="+"ThenText4.Text=Str(a+b)ElseIf ch="*"ThenText4.Text=Str(a*b)ElseIf ch="-"ThenText4.Text=Str(a-b)ElseIf ch="/"ThenIf(2)b<>0Then Text4.Text=Str(a/b)Else Text4.Text="除数不能是零"ElseText4.Text="运算符不正确"End IfEnd Sub程序中划线处(1)应填入程序中划线处(2)应填入第七套1.有如下Visual Basic程序段：a="Tea"b="cher"c=a+b该程序段运行后，变量c的值是：(1)Teacher。