算法与程序填空题.doc

浙鳌中学2012年信息技术学科会考理论复习资料算法与程序设计填空题顺序结构赋值语句：2008年真题：1.有如下Visual Basic程序段：i=6i=i+1j=2*i-1该程序段运行后，变量j的值为 。2有如下Visual Basic程序段： a = 15 b = 3c = a/b+2 该程序段运行后，变量c的值为 。3.有如下Visual Basic程序段： a = 4 b = 3b = a + b a = a + b该程序段运行后，变量a的值为 。 4.有如下Visual Basic程序段：a = 3 : b = 2 b= a*ba= a+b该程序段运行后，变量a的值为 。5.有如下Visual Basic程序段：a=3 : b=4c=a+bb=c*b 该程序段运行后，变量b的值为_。6.有如下Visual Basic程序段：s=Friends=s+ship该程序段运行后，变量s的值是_。7.有如下Visual Basic程序段： a = Happy b = ness c = a + b 该程序段运行后，变量c的值是_。8.有如下程序段： a = 3 b = 4 c = a*b-2 该程序段运行后，变量c的值为 。9. 有如下Visual Basic程序段：a = 3 : b = 2 : c = 3b = a+b*c 该程序段运行后，变量b的值为 。10.有如下Visual Basic程序段：k=10k=k-1t=2*k+1该程序段运行后，变量t的值为 。2009年真题：1. 有如下Visual Basic程序段：m = VBn = ist = easyt = m + n + t 该程序段运行后，变量t的值为_。2. 有如下Visual Basic程序段：a = 12b = 32c = ac = c + b 该程序段运行后，变量c的值为_。3. 有如下Visual Basic程序段：m = 8n = 5t = m + nt = t - n 该程序段运行后，变量t的值为_。4. 有如下Visual Basic程序段：i = 3j = i + ik = j + j 该程序段运行后，变量k的值为_。5. 有如下Visual Basic程序段：a = 18: b = 12c = (a - b) * 2 该程序段运行后，变量c的值为_。6. 有如下Visual Basic程序段：m = 10n = m * 2t = m * n 该程序段运行后，变量t的值为_。7. 有如下Visual Basic程序段：a = 1024: i = 2b = a / ic = b / i 该程序段运行后，变量c的值为_。8. 有如下Visual Basic程序段：i = 7: j = 3k = i * j - j 该程序段运行后，变量k的值为_。9. 有如下Visual Basic程序段：a = Testb = isc = easyc = a + b + c 该程序段运行后，变量c的值为_。10. 有如下Visual Basic程序段：a = 10: b = 8: c = 2d = b * b - 4 * a * c 该程序段运行后，变量d的值为_。2010年真题：1. 有如下Visual Basic程序段：a = 12: b = 20b = a + b + 28a = b + a - 5b = a + b该程序段运行后，变量b的值为 。2.有如下Visual Basic程序段：m = -5n = -2s = m + Int(n)该程序段运行后，变量s的值为_。3. 有如下Visual Basic程序段：m = schn = Mid(tools, 2, 3)s = m + n该程序段运行后，变量s的值为_。4. 有如下Visual Basic程序段：a = -1: b = 2c = 3 Mod bb = b + c该程序段运行后，变量b的值为_。5. 有如下Visual Basic程序段：s = expressiona = 25b =a + Len(s)该程序段运行后，变量b的值为_。6. 有如下Visual Basic程序段：a = 15b = Val(256)a = a * 2 + b该程序段运行后，变量a的值为_。7. 有如下Visual Basic程序段：a = 210b = -19b = a + a 5该程序段运行后，变量b的值为_。8. 有如下Visual Basic程序段：a = 29:b = 6a = a Mod bb = a + Len(Input)该程序段运行后，变量b的值为_。9. 有如下Visual Basic程序段：b = Len(-1.25)s = Mid(picture, 2, b)该程序段运行后，变量s的值为_。10. 有如下Visual Basic程序段：a = 1100101b = Mid(a, 2, 4) + 101该程序段运行后，变量b的值为_。选择（分支）语句：2008年真题：1.有如下Visual Basic程序段： x = 1.6 If x 0 Then x = x+2 Else x = x-2 End If该程序段运行后, 变量x的值为。2.有如下Visual Basic程序段：x = -1.1If x 0 Then Label1.Caption = PositiveIf x = 0 Then Label1.Caption = ZeroIf x 100 then Label1.Caption= 超重ElseLabel1.Caption= 正常End If 该程序段运行后, Label1标签上显示为。4.有如下Visual Basic程序段：a = 30 : b = 20 : c = 5m=aIf b m Then m = bIf c m Then m = bIf c m Then m = c该程序段运行后，变量m的值为 。6.有如下Visual Basic程序段：x = 7If x 12 Then c= PMElse c= AMEnd IfLabel1.Caption=c该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是 。8.有如下Visual Basic程序段：x = 2.1If x 6.0 Then Label1.Caption = PassElse Label1.Caption = FailEnd If该程序段运行后, Label1标签上显示为。9. 有如下Visual Basic程序段：a=39b=93If a+b100 Then py=太大If a+b=100 Then py=相等If a+b1024 Then size = 大了Elsesize = 刚好End If Label1.Caption = size该程序段运行后, Label1标签上显示为 。2009年真题：1. 有如下Visual Basic程序段：a = 23b = 34If a b Then Label1.Caption = abElse Label1.Caption = a=bEnd If 该程序段运行后，在标签Label1上显示的是_。2. 有如下Visual Basic程序段：x = 12If x 5000 Then s = s + 1Label1.Caption = Str(s) 该程序段运行后，在标签Label1上显示的是_。4. 有如下Visual Basic程序段：x = 0.51If x = 0.5 Then s = 1Else s = 0End IfLabel1.Caption = Str(s) 该程序段运行后，在标签Label1上显示的是_。5. 有如下Visual Basic程序段：x = 10If x 10 Then Label1.Caption = 你可以继续使用Else Label1.Caption = 余额不足End If 该程序段运行后，在标签Label1上显示的是_。6. 有如下Visual Basic程序段：s = 65If s = 60 Then Label1.Caption = PElse Label1.Caption = EEnd If 该程序段运行后，在标签Label1上显示的是_。7. 有如下Visual Basic程序段：a = 5: b = 4: c = 7s = a + bIf s c Then Label1.Caption = 初检合格Else Label1.Caption = 重新调试End If 该程序段运行后，在标签Label1上显示的是_。8. 有如下Visual Basic程序段：x = 90If x 90 Then Label1.Caption = 声音超标Else Label1.Caption = 合格End If 该程序段运行后，在标签Label1上显示的是_。9. 有如下Visual Basic程序段：x = 36: y = 27If x / 3 y / 3 Then Label1.Caption = xyElse Label1.Caption = x=yEnd If 该程序段运行后，在标签Label1上显示的是_。10. 有如下Visual Basic程序段：x = 13If x b Then Label1.Caption = 请重新输入Else Label1.Caption = 欢迎光临End If该程序段运行后，在标签Label1上显示的是_。2. 有如下Visual Basic程序段：a = 10b = 8If a b Then Label1.Caption = morningElse Label1.Caption = byebyeEnd If该程序段运行后，在标签Label1上显示的是_。3. 有如下Visual Basic程序段：a = 3:b = 4:c = 5If a b And b c Then Label1.Caption = happyElse Label1.Caption = betterEnd If该程序段运行后，在标签Label1上显示的是_。4. 有如下Visual Basic程序段：a = 13：b = 24：c = 5If a b Or b c Then Label1.Caption = mondayElse Label1.Caption = tigerEnd If该程序段运行后，在标签Label1上显示的是_。5. 有如下Visual Basic程序段：a = 1：b =2：c =5If a b And a c Then c = a + bElse c = a + 5End IfLabel1.Caption = Str(c)该程序段运行后，在标签Label1上显示的是_。6. 有如下Visual Basic程序段：a = Mid(Please input, 4, 2)b = PleaseIf Len(a) b Then Label1.Caption = 计算机基础Else Label1.Caption = 课外活动End If该程序段运行后，在标签Label1上显示的是_。8. 有如下Visual Basic程序段：x = 2010s =10If x s Then s = s + xText1.Text = Str(s)该程序段运行后，在文本框Text1中显示的是_。10. 有如下Visual Basic程序段：a = 6b = 2If a Mod 2 Then b = Len(excel) + bElse b = Len(excel) - bEnd IfLabel1.Caption = Str(b)该程序段运行后，在标签Label1上显示的是_。循环语句：2008年真题：1.有如下Visual Basic程序段：s = 0For i = 1 To 10 If i Mod 3 = 0 Then s = s + iNext i该程序段运行后，变量s的值为 。2.有如下Visual Basic程序段： k = 0 For i = 1 To 10 If i Mod 3 = 0 Then k = k + 1 Next i该程序段运行后，变量k的值为_。3.有如下Visual Basic程序段： s = 0 For i = 0 To 4 s=s+2i Next i该程序段运行后，变量s的值为_。4.以下Visual Basic程序的功能是： 计算表达式1+2+22+23+24+25+26+27+28+29+210的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_。Private Sub Command1_Click()Dim i As Integer,s As Longs = 0k = 2For i= 1 To 10 s = s + k k = k * 2Next iText1.Text=Str(s)End Sub5.以下Visual Basic程序的功能是： 计算表达式1+2+22+23+24+25的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处For语句循环变量i的终值应更正为_。Private Sub Command1_Click()Dim i As Integer, s As Longs = 0For i= 1 to_5_ s = s + 2(i-1)Next iText1.Text=Str(s)End Sub6.下列Visual Basic程序的功能是：计算表达式12+42+72+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为_。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 7.以下Visual Basic程序的功能是：找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。为了实现这一功能，程序中划线处的语句应更正为_。Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 to 100 If i Mod 3=0 Then sum = sum + 3Next iText1.Text=Str(sum)End Sub8.有如下Visual Basic程序段：s = 0i = 3Do While s = 10 s = s + i i = i + 3Loop该程序段运行后，变量s的值为_。9.以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_。Private Sub Command1_Click()Dim a As Integer, s As Longs = 0a = 1Do While a = 1024 s = s + a a = a + 2LoopText1.Text=Str(s)End Sub10.以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为_。Dim i As Integer,s As Longs = 0i = 1Do While i = 1024 s = s + 2*i i = i * 2LoopText1.Text=Str(s)End Sub2009年真题：1. 有如下Visual Basic程序：Private Sub Command1_Click() Dim a(1 To 100) As Integer, i As Integer, s As Integer s = 0 For i = 2 To 100 Step 2 a(i) = i * 2 s = s + a(i) Next i Text1.Text = Str(s)End Sub问：（1）程序运行后，下标变量a(4)的值为_。（2）循环刚退出时，变量i的值为_。2.有如下Visual Basic程序：Private Sub Command1_Click() Dim s As Integer, i As Integer s = 1 For i = 1 To 10 s = s + 1 Next i Text1.Text = Str(s)End Sub问：（1）程序运行后，变量s的值为_。（2）程序运行后，语句“s=s+1”被执行的次数为_。3.有如下Visual Basic程序：Private Sub Command1_Click() Dim s As Integer, t As Integer t = 1: s = 0 For i = 1 To 10 Step 2 t = t * 2 s = t + 1 Next i Text1.Text = Str(s)End Sub问：（1）程序运行后，变量s 的值为_。（2）程序运行后，语句“t = t * 2”被执行的次数为_。4.有如下Visual Basic程序：Private Sub Command1_Click() Dim i As Integer, s As Integer, x As Integer s = 0 For i = 1 To 12 If i Mod 3 = 0 Then s = s + i Next i Text1.Text = Str(s)End Sub问：（1）程序运行后，变量s的值为_。（2）程序运行后，刚退出循环时变量i的值为_。5.以下Visual Basic程序的功能是：计算表达式1323331003的值，并在文本框Text1中输出计算结果。Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1 Do While i = 100 s = i * 3 i = i + 1 Loop Text1.Text = Str(s)End Sub问：（1）刚退出循环时，变量i的值是_。（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为_。6.以下Visual Basic程序的功能是：计算表达值，并在文本框Text1中输出计算结果。Private Sub Command1_Click() Dim i As Integer, t As Long t = 0 i = 1 Do While i = 2187 t = t + i i = i + 3 Loop Text1.Text = Str(t)End Sub问：（1）为了实现这一目标，程序划线处的表达式应更正为_。（2）运行更正后的程序，循环刚退出时变量i的值为_。7.有如下Visual Basic程序段：Dim i As Integer, s As Integeri = 1s = 0Do While i = 10 s = s + 1：i = i + 1Loop问：（1）该程序段运行后，循环中的两个语句“s = s + 1：i = i + 1”一共执行的次数为_。（2）该程序段运行后，变量s的值为_。8.有如下Visual Basic程序段：Private Sub Command1_Click() Dim i As Integer, x As Integer, s As Integer x = 10 s = 0 i = 0 Do While i = x i = i + 2 s = s + i LoopEnd Sub问：（1）该程序段运行后，变量s的值为_。（2）循环刚退出时，变量i的值为_。9. 以下Visual Basic程序的功能是：计算表达式12345699100的值，并在文本框Text1中输出计算结果。Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1: t = 1 Do While i = 100 s = s + i t = -t i = i + 1 Loop Text1.Text = Str(s)End Sub问：（1）循环刚退出时变量i的值是_。（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为_。10.有如下Visual Basic程序段：Dim a(1 To 10) As Integer, i As Integer, m As Integer m = a(1) i = 2 Do While i = 10 If m 2）有如下Visual Basic程序段：Dim a(1 To 20) As Integera(1) = 1: a(2) = 2For i = 3 To 20 a(i) = + a(i - 2)Next i问：（1）如果用数组a存储该数列的前20项，程序段划线处应填入_。（2）该程序段运行后，a(4)的值为_。4. 有如下Visual Basic程序段：s = 10For i = 1 To 20 Step 3 s = s + iNext iFor j = 1 To 3 s = s * jNext j问：该程序段运行后，（1）语句“s=s*j”执行的次数为_。 （2）变量s的值为_。5. 已知某数列前二项分别为：a1 = 1、a2 = 2，以后每项都满足:ai = ai-1 + ai-2 （i2）有如下Visual Basic程序段：Dim a(1 To 20) As Integera(1) = 1: a(2) = 2For i = 3 To a(i) = a(i - 2) + a(i - 1)Next i问：（1）数组a存储该数列的前20项，上面程序段划线处应填入_。 （2）该程序段运行后，a(6)的值为_。6. 有如下Visual Basic程序段：s = 0For i = 1 To 10 For j = 1 To i s = s + j * j Next js = s + i * iNext i问：该程序段运行后，（1）语句“s=s+j*j”执行的次数为_。 （2）变量s的值为 _。7. 有如下Visual Basic程序段：Dim i As Integer, s As Integers = 0i = 1: a = 5Do While i 100 s = s - i + 1 i = i + 20Loop问：该程序段运行后，（1）变量i的值是_。 （2）变量s的值为_。9. 有如下Visual Basic程序段：Dim i As Integer, s As Integeri = 5s = 0Do While i b And a c b = b + 1 c = c + bLoop问：该程序段运行后，（1）语句“b=b+1”执行的次数为_。 （2）变量c的值为_。程序综合题：2008年真题： 1.某学生说他的年龄不低于10岁，且他的年龄减去10，平方以后得到的一个数，恰好是他的年龄加上10，问他的年龄多大？设这位学生年龄为y，他年龄减去10的平方为r，则r=（y-10）2，则y满足的表达式为:（y - 10）2=y + 10解决此问题的算法流程图如图VB-1所示，相应的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim y As Integer, r As Integery = 10r = (y - 10) 2Do While (1) (2) r = (y - 10) 2LoopText1.Text = Str(y)End Sub程序中划线处(1)应填入 程序中划线处(2)应填入 2.模拟两人掷骰子游戏。由电脑随机产生两个1到6之间的整数，表示甲乙两人所掷的骰子数，根据这两个数字之和是偶数还是奇数，判定哪一方赢了？偶数表示甲赢了，奇数表示乙赢了。掷了若干次后，分别统计甲乙各赢了几次？ 程序界面如图VB-1所示，在文本框Text1中输入总次数n，单击开始按钮，在文本框Text2中输出甲赢的次数，在文本框Text3中输出乙赢的次数。在列表框List1中输出游戏次数和判断结果。 算法流程图如图VB-2所示，相应的Visual Basic程序如下，其中变量a、b分别存储甲、乙两人所掷的骰子数，变量n存储游戏总次数，变量k、j分别存储甲、乙各自赢的次数。在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click()Dim a As Integer, b As Integer, n As IntegerDim j As Integer, k As Integer, i As Integerk = 0j = 0List1.Clear (1) For i = 1 To na = Int(Rnd() * 6 + 1)b = Int(Rnd() * 6 + 1) If (2) Then List1.AddItem Str(i) + 甲赢了! k = k + 1Else List1.AddItem Str(i) + 乙赢了! j = j + 1End IfText2.Text = Str(k)Text3.Text = Str(j)Next i End Sub程序中划线处(1)应填入 程序中划线处(2)应填入 3.用50元钱兑换面值为1元、2元、5元的纸币共25张。每种纸币不少于1张，求出有多少种兑换方案？每种兑换方案中1元、2元、5元的纸币各有多少张？假设面值为1元、2元、5元的纸币分别是x、y、z张，兑换方案有k种，从题意可得出x、y、z满足的表达式为 x+y+z=25 x+2y+5z=50 解决此问题的算法流程图如图VB-1所示，相应的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim k As IntegerDim x As Integer, y As Integer, z As Integerk = 0List1.ClearFor y = 1 To 23 For z = 1 To 9 x = 25 - y - z If (1) Then List1.AddItem 1元 + Str(x) + 张 2元 + Str(y) + 张 5元 + Str(z) + 张 (2) End If Next zNext yLabel1.Caption = 共有 + Str(k) + 种兑换方案End Sub程序中划线处(1)应填入 程序中划线处(2)应填入 4.某班级45名学生，每位学生中文姓名均不相同，并且都有一个英文名。下面程序的功能是根据学生的中文姓名查找相应的英文名，其中学号存储在数组sno中，英文名存储在数组sname中，中文姓名存储在数组ch中。程序界面如图VB-1所示，在文本框text1中输入要查找的中文姓名，单击开始查找按钮，如果查找成功，则在文本框Text2中输出该学生的学号、中文姓名和英文名，否则在文本框Text2中输出查无此人！。解决查找问题的算法流程图如图VB-2所示，相应的Visual Basic程序段如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序段补充完整。Private Sub Command1_Click()Dim key As String, i As IntegerDim n As Integer, found As Booleanfound = Falsen = 0 : i = 1 (1) Do While i = 45 And Not foundIf ch(i) = key Then n = i: found = Truei = i + 1 LoopIf (2) ThenText2.Text = 查无此人！ElseText2.Text = Str(sno(n) + 号: + ch(n) + 的英文名是 + sname(n)End IfEnd Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 5.某市近期向市民投放带2B开头尾数为001至999的机动车牌号，经过竞投有200个牌号被首批车主投中。下面Visual Basic程序段的功能是根据车牌号查找相应的车主身份证号码，其中车牌号按尾数从小到大的顺序存储在cno数组中，身份证号码存储在cnum数组中。 界面如图VB-1所示，在文本框Text1中输入一个车牌号，单击开始查找按钮后，在文本框Text2中输出结果。如果查找成功，则输出对应的车主身份证号码，否则输出找不到。 解决查找问题的算法流程图如图VB-2所示，相应的Visual Basic程序段如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序段补充完整。Private Sub Command1_Click()Dim key As String , i As IntegerDim j As Integer , found As Booleani = 1: j = 200 : found = False (1)Do While i = j And Not found m = Int(i + j) / 2) If cno(m) = key Then found = TrueElseIf (2) Then i = m + 1 Else j = m - 1 End IfLoopIf Not found Then Text2.Text = 找不到 Else Text2.Text = cnum(m)End Sub程序中划线处(1)应填入 程序中划线处(2)应填入 6.在100至999之间的自然数中，找出能被3整除，且至少有一位数字为5的所有整数，并统计个数。设变量s是一个三位正整数，变量a、b、c分别表示s的百位、十位和个位上的数字，变量n表示满足要求的整数个数。对于