VB填空题.doc

《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中输入1

10、5.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模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运

11、算结果。程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。 图VB-1当输入的运算符不是加、减、乘、除四种运算符时，则输出运算符不正确；当进行除法运算时，如果除数为0，提示输出除数不能为零。解决上述问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim a As Single, b As Single, ch As Stringa =

12、 Val(Text1.Text)b = Val(Text2.Text) (1) If ch = + Then Text4.Text = Str(a+b)ElseIf ch = * Then Text4.Text = Str(a*b)ElseIf ch = - Then Text4.Text = Str(a-b)ElseIf ch = / Then If (2) Then Text4.Text = Str(a/b) Else Text4.Text =除数不能是零Else Text4.Text = 运算符不正确End IfEnd Sub程序中划线处(1)应填入 程序中划线处(2)应填入 1. Ha

13、ppyness2. PM3. 34. ch=text3.text b0第七套1有如下Visual Basic程序段：a=Teab=cherc=a+b该程序段运行后，变量c的值是： (1) 。2有如下Visual Basic程序段：n=0For i=1 To 100 If i Mod 4 = 0 Then n=n+1Next i该程序段运行后，n的值为： (1) 。3浙江省电网销售电价表中规定，不满1千伏一户一表居民用电价格，按以下标准计算：月用电量在50千瓦时及以下部分，每千瓦时以0.538元计算；51200千瓦时部分，则每千瓦时按0.568元计算；200千瓦时以上部分，每千瓦时按0.638元

14、计算。某学生设计了一个Visual Basic程序，能根据用户的月用电量分段计算电费。其思路如下：设某用户的当月用电量是x千瓦时，当x50时，电费为0.538x元；当50x200时，电费为0.568(x-50)+0.53850元；当x200时，电费为0.638(x-200)+0.568150+0.53850元；在文本框Text1输入x，在文本框Text2中输出相应的电费。Visual Basic程序如下，程序中划线处的语句应更正为： (1) 。Private Sub Command1_Click() Dim x As Integer X=Val(Text1.Text2) If x0 Then

15、Text2.Text=用电量不能是负的！ ElseIf x=50 Then Text2.Text=Str(0.538*x) ElseIf x200 Then Text2.Text=Str(0.568*(x-50)+0.538*50) Else Text2.Text=Str(0.638*(x-200)+0.568*150+0.538*50) End IfEnd Sub以下是根据如图所示界面设计的一个Visual Basic程序段，目的是用对分查找的方法根据某货物编号（1001到1020之间）查询其对应的库存结余量，并统计出查找的次数。 其中货物库存信息已经按货物编号由小到大排列，列表框List1

16、用于显示货物编号（1001至1020）及相应的库存结余量，文本框Text1用于输入待查货物编号，文本框Text2用于输出相应货物的库存结余量，文本框Text3用于输出查找的次数，变量nc用于累计查找的次数，数组bh中已依次存放货物编号1001，1002，1020，数组number中存放了相应货物的库存结余量。请在（1）和（2）划线处，填入合适的语句或表达式，把程序段补充完整。Function search (key As Integer) As Integer i=1: j=20: nc=0Do While i=j (1) m=Int(i+j)/2)If bh(m)=key Then Sear

17、ch=number(m): Exit FunctionEnd IfIf key bh(m) Then (2) Else i=m+1End IfLoopSearch=0End FunctionPrivate Sub Command1_Click() Dim key As Integer Key = Val(Text1.Text) Nr = search(key) If nr 0 Then Text2.Text = Str(key)+货号的库存结余量：+Str(nr) Else Text2.Text = 找不到 End If Text3.Text = Str(nc)End Sub程序中划线处（1）应填入： 。程序中划线处（2）应填入： 。1. Teacher2. 253. x=2004. nc=nc+1 j=m-15.6.7. 8. （注：可编辑下载，若有不当之处，请指正，谢谢!）9.10.11. 12. 13.14.