算法与程序设计填空题10套.docx

第一套1. 有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是 (l)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的值为 (l)True 3. 有如下程序段：s=0for i=1 to 5 s=s+i*inext i 该程序段运行后，s的值为 ⑴55 4. 程序填空随机产生10个0〜100之间的整数，按从小到大的次序排序并输出为了实现 这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计(流程图参见图 12-3)l 巒12-3sub command1_click()const n=10dim i,j,t as integerdim a(1 to 10) as integerfor i=1 to 10 (1) a(i)二int(Rnd*101)next iFor i = 1 To n - 1For j = i+1 To nIf (2)_a(i)>a(j) Thenk = a(i): a(i) = a(j): a(j) = kEnd IfNext jNext iFor i = 1 To nList1.AddItem Str(a(i))Next i第二套1. 有如下程序段：x=5y=6t=xx=yy=t该程序段运行后，y的值为 (1)5 。

2. 有如下程序段：x=5y=-20if not x>0 then x=y-3 else y=x+3该程序段运行后，x的值为 (1) 5 3. 有如下程序段：e=0:f=1for i=1 to 3e=e+ff=f+enext i该程序段运行后，f的值为 ⑴ 13 4. 程序填空 有30个人，其中有男人、女人和小孩他们在一家饭馆里花去500元已知， 每个男人花30元，每个女人花20元，每个小孩花10元问男人、女人、小孩各为 多少人？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式， 完成程序设计sub command1_click()dim man,woman,child,s as integerfor man =1 to 15for woman =1 to 23child 二 (1)_30-woman-man s=30* man+20* woman+ 10*childif _ _ ⑵ s=500 and child>0 thenlist1.additem str(man)+" "+ str(woman)+" "+str(child)end ifnext womannext manend sub开姐iiorTarL 疼 23ch.il d > 0 且 s=500辅出 inaii.w：，mitI7 dul'i 的曲s — 1 Ucliildwom.aii ■- wijm.aii+1cliild — 3 U - m.ai vwo m-aiimail ■- man+1wom-in — 1图12-7第三套1. 有如下程序段：x=5y=6x=yy=x该程序段运行后，y的值为 ⑴6 。

2. 有如下程序段：x=5y=-20if not x>0 then x=y-3 else y=x+3 该程序段运行后，y的值为 ⑴8 3. 有如下程序段：k=1for i=1 to 5k=k*inext i 该程序段运行后，k的值为 ⑴ 120 4. 程序填空从键盘键入一个整数x,将x插入到一列有序数据：-5, 3, 4, 12, 20, 45, 70中，并使数据序列仍保持有序，试求出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 (I)—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 = 13 Thenn = n + 1a(n) = Val(Text1.Text)List1.AddItem Str(a(n))Text1.Text = "": Text1.SetFocusEnd IfEnd Sub开始YNNY输出班i)结束君序数列-5,3,4,...x ■*- Val(text2.txt)1 n+1第四套1. 有如下程序段：x=5y=6p=Not(x+y<>11)该程序段运行后，P的值是 ⑴ 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的值为 ⑴17 4. 程序填空用物理天平测量物体的质量时，测得物体的质量为a克(a为整数，并小于1 千克)，问这时在天平的砝码盘中应有哪几个砝码，请选用最少数量的砝码(称 质量为1千克的物体，天平的砝码由下列质量的砝码组成：5 0 0克1个，2 0 0克1个，10 0克2个，50克1个，20克1个，10克2个，5克1个， 2克2个，1克1个)为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式, 完成程序设计(流程图见图12-15)Dim a(1 To 12) 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开始NYNY结束<> 0给现1）洼12炯初值第五套1. 有如下Visual Basic程序段：a = 3 : b = 2 : c = 3b = a+b*c该程序段运行后，变量b的值为 ⑴92. 有如下Visual Basic程序段：a=39b=93If a+b>100 Then py="太大"If a+b=100 Then py="相等"If a+b<100 Then py="太小"Label1.Caption=py该程序段运行时，在Label 1标签上显示的是 (1)太大 。

3. 以下Visual Basic程序的功能是：计算表达式1+2+4+8+16+32+・・・+1024的值,并在文本框Tex t1中输出结果为了实现这一功能，程序中划线处的表达式应更 正为 (1)—i Private Sub Command1_Click()Dim i As Integer,s As Long s = 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)应填入 开始YNx结束输出X, y=873?x赋初值1y=1053- X2计算y值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 String x=Val(Text1.Text)If x>12 Then c= "PM"Elsec= "AM" End IfLabel1.Caption=c该程序段运行时，在文本框Tex t1中输入15.6,Label1标签上将显示的是. 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 =1 To 97 Step sum = sum + i*iNext i Text1.Text = Str(sum)End Sub4. 模拟一个简单计算器，输入两个数和一个运算符(加、减、乘、除)，进行 算术运算,并输出运算结果程序界面如图VB-1所示，在文本框Text1中输入第一个数a,在文本框Text2中 输入第二个数b，在文本框Text3中输入运算符ch,在文本框Text4中输出运算结 果。

图 VB-1""当输入的运算符不是加、减、乘、除四种运算符时，则输出〃运算符不正确〃; 当进行除法运算时，如果除数为0，提示输出"除数不能为零"解决上述问题的算法流程图如图VB-2所示，相。