VB填空题.docx

1、VB填空题第一套1.有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是 (1)。2. 有如下程序段：x=5y=10z=12if x+y=z Or y+z=x Or x+za(j)第二套1有如下程序段： x=5y=6t=xx=yy=t该程序段运行后，y的值为 (1) 。2有如下程序段：x=5y=-20if not x0 then x=y-3 else y=x+3该程序段运行后，x 的值为 (1)。3有如下程序段：e=0:f=1for i=1 to 3 e=e+f f=f+enext i 该程序段运行后，f的值为 (1)。4程序填空有30个人，其中有男人、女人和小孩。他们

2、在一家饭馆里花去500元。已知，每个男人花30元，每个女人花20元，每个小孩花10元。问男人、女人、小孩各为多少人？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。sub command1_click() dim man,woman,child,s as integer for man =1 to 15 for woman =1 to 23 child = _(1)_ s=30* man+20* woman+ 10*childif _ (2) thenlist1.additem str(man)+ + str(woman)+ + str(child) end

3、 if next woman next man end sub 图12-7答案：1 52 53 134 30-woman-man s=500 and child0第三套1. 有如下程序段：x=5y=6x=yy=x该程序段运行后，y的值为(1) 。2. 有如下程序段：x=5y=-20if not x0 then x=y-3 else y=x+3该程序段运行后，y 的值为(1)。3. 有如下程序段：k=1for i=1 to 5 k=k*inext i 该程序段运行后，k的值为(1) 。4. 程序填空从键盘键入一个整数x，将x插入到一列有序数据：-5，3，4，12，20，45，70中，并使数据序列

4、仍保持有序，试求出x应插入的位置。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。Dim a(1 To 8) As IntegerDim n, I, j, x As IntegerPrivate Sub Command1_Click()x = Val(Text2.Text)If x a(n) Then _(1)_Else i = 1 Do While x a(i) _(2)_ LoopEnd IfText3.Text = Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAsc

5、ii = 13 Then n = n + 1 a(n) = Val(Text1.Text) List1.AddItem Str(a(n) Text1.Text = : Text1.SetFocusEnd IfEnd Sub答案：1 62 83 1204 i=8 或i=n+1 i=i+15 第四套1有如下程序段： x=5y=6p=Not(x+y11)该程序段运行后，P的值是(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) 。3有

6、如下程序段：x=6k=1do while k=a(i) thenList1.AddItem Str(a(i) _(2)_ End if i=i+1loopEnd Sub1. True2. “True”3. 174. x0 x=x-a(i)第五套1有如下Visual Basic程序段： a = 3 : b = 2 : c = 3b = a+b*c 该程序段运行后，变量b的值为 (1) 2有如下Visual Basic程序段：a=39b=93If a+b100 Then py=太大If a+b=100 Then py=相等If a+b100 Then py=太小Label1.Caption=py该

7、程序段运行时，在Label1标签上显示的是 (1) 。3以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为_(1)_。Private Sub Command1_Click()Dim i As Integer,s As Longs = 0i = 1Do While i = 1024 s = s + 2*i i = i * 2LoopText1.Text=Str(s)End Sub4有一道趣味题，张老师问李老师:你今年几岁？你爱人今年几岁？李老师笑笑说：我年龄的平方与我爱人年

8、龄之和恰好等于1053。而我爱人年龄的平方与我的年龄之和却等于873。你计算一下吧！ 设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：x2 + y = 1053 x + y2 = 873 解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在(1)和(1)划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim x As Integer, y As Longx = 1 y = 1053 - x * xDo While (1) (2) y = 1053 - x * xLoopTex

9、t1.Text = Str(x)Text2.Text = Str(y)End Sub程序中划线处(1)应填入 程序中划线处(2)应填入 答案：1 92 太大3 i4 y *y+x873 x=x+1第六套1有如下Visual Basic程序段： a = Happy b = ness c = a + b 该程序段运行后，变量c的值是_(1)_。2有如下Visual Basic程序段：Dim x As Single, c As Stringx=Val(Text1.Text)If x12 Then c= PMElse c= AMEnd IfLabel1.Caption=c该程序段运行时，在文本框Tex

10、t1中输入15.6，Label1标签上将显示的是 (1) 。3下列Visual Basic程序的功能是：计算表达式12+42+72+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为_(1)_。Private Sub Command1_Click()Dim sum As LongDim i As Integersum = 0 For i =1 To 97 Step sum = sum + i*iNext iText1.Text = Str(sum)End Sub 4模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。 图VB-1当输入的运算符不是加、减、乘、除四种运算符时，则输出运算符不正确；当进行除法运算时，如果除数为0，提示输出除数不能为零。解决上述问题的算法流程图如图VB-2所示，相应的Visual B