1、第一套1.有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是 (1) 。2. 有如下程序段：x=5y=10z=12if x+ya(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 3e=e+ff=f+enext i 该程序段运行后，f的值为 (1) 。4程序填空有30个人，其中有男人、女人和小孩。他们在一家饭馆里花去500元。已知，每个男人花3
2、0元，每个女人花20元，每个小孩花10元。问男人、女人、小孩各为多少人？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。sub command1_click()dim man,woman,child,s as integerfor man =1 to 15for woman =1 to 23child = _(1)_ s=30* man+20* woman+ 10*childif _ (2) thenlist1.additem str(man)+“ “+ str(woman)+“ “+ str(child)end ifnext woman next mane
3、nd 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 5k=k*inext i 该程序段运行后，k的值为 (1) 。4. 程序填空从键盘键入一个整数x，将x插入到一列有序数据：-5，3，4，12，20，45，70中，并使数据序列仍保持有序，试求出x应插入的位置。为了实现这一
4、目标，完善下面的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)_Elsei = 1Do While x a(i)_(2)_LoopEnd IfText3.Text = Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenn = n + 1a(n) =
5、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+y z And y + z x And x + z y Then a = “True “ Else a = “False “该程序段运行后，a 的值为 (1) 。3有如下程序段：x=6k=1do while k=a(i) thenList1.AddItem Str(a(i)_(2)_End ifi=i+1loopEnd
6、 Sub 1. True2. “True”3. 174. x100 Then py=“太大“If a+b=100 Then py=“相等“If a+b873 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= “PM“Elsec= “AM“End IfLabel1.Caption=c该程序段运行时，在文本框Text1中输入15.6，L
7、abel1标签上将显示的是 (1) 。3下列Visual Basic程序的功能是：计算表达式1 2+42+72+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为_(1)_。Private Sub Command1_Click()Dim sum As LongDim i As Integersum = 0For i =1 To 97 Step sum = sum + i*iNext iText1.Text = Str(sum)End Sub 4模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。程
8、序界面如图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 = V
9、al(Text1.Text)b = Val(Text2.Text)(1) If ch = “+“ ThenText4.Text = Str(a+b)ElseIf ch = “*“ ThenText4.Text = Str(a*b)ElseIf ch = “-“ ThenText4.Text = Str(a-b)ElseIf ch = “/“ ThenIf (2) Then Text4.Text = Str(a/b) Else Text4.Text =“除数不能是零“ElseText4.Text = “运算符不正确“End IfEnd Sub程序中划线处(1)应填入 程序中划线处(2)应填入 1
10、. Happyness2. PM3. 34. ch=text3.text b0第七套1有如下Visual Basic 程序段：a=“Tea“b=“cher“c=a+b该程序段运行后，变量c的值是： (1) 。2有如下Visual Basic 程序段：n=0For i=1 To 100If i Mod 4 = 0 Then n=n+1Next i该程序段运行后，n的值为： (1) 。3 浙江省电网销售电价表中规定，不满1千伏“一户一表“居民用电价格，按以下标准计算：月用电量在50千瓦时及以下部分，每千瓦时以0.538元计算；51200千瓦时部分，则每千瓦时按0.568元计算；200千瓦时以上部分
11、，每千瓦时按0.638元计算。某学生设计了一个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 IntegerX=Val(Text1.Text2)If
12、 x0 ThenText2.Text=“用电量不能是负的！“ElseIf x=50 ThenText2.Text=Str(0.538*x)ElseIf x200 ThenText2.Text=Str(0.568*(x-50)+0.538*50)ElseText2.Text=Str(0.638*(x-200)+0.568*150+0.538*50)End IfEnd Sub以下是根据如图所示界面设计的一个Visual Basic程序段，目的是用对分查找的方法根据某货物编号（1001到1020之间）查询其对应的库存结余量，并统计出查找的次数。其中货物库存信息已经按“货物编号“由小到大排列，列表框L
13、ist1用于显示货物编号（1001至1020）及相应的库存结余量，文本框Text1用于输入待查货物编号，文本框Text2用于输出相应货物的库存结余量，文本框Text3用于输出查找的次数，变量nc用于累计查找的次数，数组bh中已依次存放货物编号1001，1002，1020，数组number中存放了相应货物的库存结余量。请在（1）和（2）划线处，填入合适的语句或表达式，把程序段补充完整。Function search (key As Integer) As Integeri=1: j=20: nc=0Do While i=j(1) m=Int(i+j)/2)If bh(m)=key ThenSea
14、rch=number(m): Exit FunctionEnd IfIf key bh(m) Then(2) Elsei=m+1End IfLoopSearch=0End FunctionPrivate Sub Command1_Click()Dim key As IntegerKey = Val(Text1.Text)Nr = search(key)If nr 0 ThenText2.Text = Str(key)+“货号的库存结余量：“+Str(nr)ElseText2.Text = “找不到“End IfText3.Text = Str(nc)End Sub程序中划线处（1）应填入： 。程序中划线处（2）应填入： 。1. Teacher2. 253. x=2004. nc=nc+1 j=m-1
