《VB填空题.doc》由会员分享，可在线阅读，更多相关《VB填空题.doc（17页珍藏版）》请在金锄头文库上搜索。
1、第一套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 if n
3、ext 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 KeyAscii =
5、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 * xLoopText1.Tex
9、t = 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该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是 (1) 。3下列Visual Basic程序的功能是：计算表达式12+42+72+972的值，并在文本框T
