1、浙鳌中学2012 年信息技术学科会考理论复习资料第 1 页算法与程序设计填空题顺序结构赋值语句：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的值为
2、 。5.有如下Visual Basic程序段：a=3 : b=4c=a+bb=c*b该程序段运行后，变量b的值为_。浙鳌中学2012 年信息技术学科会考理论复习资料第 2 页6.有如下Visual Basic程序段：s=“Friend“s=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 =
3、3b = a+b*c该程序段运行后，变量b的值为 。10.有如下Visual Basic程序段：k=10k=k-1t=2*k+1该程序段运行后，变量t的值为 。2009年真题：1. 有如下 Visual Basic 程序段：m = “VB“n = “is“t = “easy“t = m + n + t该程序段运行后，变量 t 的值为 _。浙鳌中学2012 年信息技术学科会考理论复习资料第 3 页2. 有如下 Visual Basic 程序段：a = 12b = 32c = ac = c + b该程序段运行后，变量 c 的值为_。3. 有如下 Visual Basic 程序段：m = 8n =
4、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该程
5、序段运行后，变量 c 的值为_。8. 有如下 Visual Basic 程序段：i = 7: j = 3k = i * j - j该程序段运行后，变量 k 的值为_。浙鳌中学2012 年信息技术学科会考理论复习资料第 4 页9. 有如下 Visual Basic 程序段：a = “Test“b = “is“c = “easy“c = a + b + c该程序段运行后，变量 c 的值为_。10. 有如下 Visual Basic 程序段：a = 10: b = 8: c = 2d = b * b - 4 * a * c该程序段运行后，变量 d 的值为_。2010年真题：1. 有如下Visual
6、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 = “sch“n = Mid(“tools“, 2, 3)s = m + n该程序段运行后，变量 s 的值为_。4. 有如下Visual Basic程序段：a = -1: b = 2c = 3 Mod bb = b + c该程序段运行后，变量 b 的值为_。5. 有如
7、下Visual Basic程序段：s = “expression“a = 25b =a + Len(s)浙鳌中学2012 年信息技术学科会考理论复习资料第 5 页该程序段运行后，变量 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
8、“)该程序段运行后，变量 b 的值为_。9. 有如下Visual Basic程序段：b = Len(“-1.25“)s = Mid(“picture“, 2, b)该程序段运行后，变量 s 的值为_。10. 有如下Visual Basic程序段：a = “1100101“b = Mid(a, 2, 4) + “101“该程序段运行后，变量 b 的值为_。浙鳌中学2012 年信息技术学科会考理论复习资料第 6 页选择（分支）语句：2008年真题：1.有如下Visual Basic程序段：x = 1.6If x 0 Thenx = x+2Elsex = x-2End If该程序段运行后, 变量x的
9、值为 。2.有如下Visual Basic程序段：x = -1.1If x 0 Then Label1.Caption = “Positive“If x = 0 Then Label1.Caption = “Zero“If 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 = c该程序段运行后，变量m的值为 。6.有如下V
10、isual Basic程序段：x = 7If x 12 Then c= “PM“Elsec= “AM“End IfLabel1.Caption=c该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是 。8.有如下Visual Basic程序段：x = 2.1If x 6.0 ThenLabel1.Caption = “Pass“ElseLabel1.Caption = “Fail“End If该程序段运行后, Label1标签上显示为 。浙鳌中学2012 年信息技术学科会考理论复习资料第 8 页9. 有如下Visual Basic程序段：a=39b=93If a+b1
11、00 Then py=“太大“If a+b=100 Then py=“相等“If a+b1024 Thensize = “大了“Elsesize = “刚好“End IfLabel1.Caption = size该程序段运行后, Label1标签上显示为 。2009年真题：1. 有如下 Visual Basic 程序段：a = 23b = 34If a b ThenLabel1.Caption = “ab“ElseLabel1.Caption = “a 5000 Then s = s + 1Label1.Caption = Str(s)该程序段运行后，在标签 Label1 上显示的是_ 。4.
12、 有如下 Visual Basic 程序段：x = 0.51If x = 0.5 Thens = 1Elses = 0End IfLabel1.Caption = Str(s)该程序段运行后，在标签 Label1 上显示的是_ 。5. 有如下 Visual Basic 程序段：x = 10If x 10 ThenLabel1.Caption = “你可以继续使用“ElseLabel1.Caption = “余额不足“End If该程序段运行后，在标签 Label1 上显示的是_ 。6. 有如下 Visual Basic 程序段：s = 65If s = 60 ThenLabel1.Captio
13、n = “P“ElseLabel1.Caption = “E“End If该程序段运行后，在标签 Label1 上显示的是_ 。7. 有如下 Visual Basic 程序段：a = 5: b = 4: c = 7s = a + bIf s c ThenLabel1.Caption = “初检合格“ElseLabel1.Caption = “重新调试“End If该程序段运行后，在标签 Label1 上显示的是_ 。浙鳌中学2012 年信息技术学科会考理论复习资料第 10 页8. 有如下 Visual Basic 程序段：x = 90If x 90 ThenLabel1.Caption = “
14、声音超标“ElseLabel1.Caption = “合格“End If该程序段运行后，在标签 Label1 上显示的是_ 。9. 有如下 Visual Basic 程序段：x = 36: y = 27If x / 3 y / 3 ThenLabel1.Caption = “xy“ElseLabel1.Caption = “x b ThenLabel1.Caption = “请重新输入“ElseLabel1.Caption = “欢迎光临“End If该程序段运行后，在标签 Label1 上显示的是_。2. 有如下Visual Basic程序段：a = 10b = 8If a b Then浙鳌
15、中学2012 年信息技术学科会考理论复习资料第 11 页Label1.Caption = “morning“ElseLabel1.Caption = “byebye“End If该程序段运行后，在标签 Label1 上显示的是_。3. 有如下Visual Basic程序段：a = 3:b = 4:c = 5If a b And b c ThenLabel1.Caption = “happy“ElseLabel1.Caption = “better“End If该程序段运行后，在标签 Label1 上显示的是_。4. 有如下Visual Basic程序段：a = 13：b = 24：c = 5I
16、f a b Or b c ThenLabel1.Caption = “monday“ElseLabel1.Caption = “tiger“End If该程序段运行后，在标签 Label1 上显示的是_。5. 有如下Visual Basic程序段：a = 1：b =2：c =5If a b And a c Thenc = a + bElsec = a + 5End IfLabel1.Caption = Str(c)该程序段运行后，在标签 Label1 上显示的是_。6. 有如下Visual Basic程序段：a = Mid(“Please input“, 4, 2)b = “Please“If
17、 Len(a) b ThenLabel1.Caption = “计算机基础“ElseLabel1.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 Thenb = Len(“excel“) + bElseb = Len(“excel“) - bEnd IfLabe
18、l1.Caption = Str(b)该程序段运行后，在标签 Label1 上显示的是_。浙鳌中学2012 年信息技术学科会考理论复习资料第 13 页循环语句：2008年真题：1.有如下Visual Basic程序段：s = 0For i = 1 To 10If i Mod 3 = 0 Then s = s + iNext i该程序段运行后，变量s的值为 。2.有如下Visual Basic程序段： k = 0For i = 1 To 10If i Mod 3 = 0 Then k = k + 1Next i该程序段运行后，变量 k 的值为_。3.有如下Visual Basic程序段： s =
19、 0For i = 0 To 4s=s+2iNext 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 10s = s + kk = k * 2Next iText1.Text=Str(s)End Sub浙鳌中学2012 年信息技术学科会考理论复习资料第 1
20、4 页5.以下Visual Basic程序的功能是： 计算表达式1+2+2 2+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程序的功能是：计算表达式1 2+42+72+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句
21、划线处的循环变量步长应为_。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 7.以下Visual Basic程序的功能是：找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。为了实现这一功能，程序中划线处的语句应更正为_。Private Sub Command1_Click()Dim i As Integer, sum As Integersum
22、 = 0For i = 1 to 100 If i Mod 3=0 Then sum = sum + 3Next iText1.Text=Str(sum)End Sub浙鳌中学2012 年信息技术学科会考理论复习资料第 15 页8.有如下Visual Basic程序段：s = 0i = 3Do While s 2）有如下Visual Basic程序段：Dim a(1 To 20) As Integera(1) = 1: a(2) = 2For i = 3 To 20a(i) = + a(i - 2)Next i问：（1）如果用数组a存储该数列的前20项，程序段划线处应填入_。（2）该程序段运行
23、后，a(4)的值为_。4. 有如下Visual Basic程序段：s = 10For i = 1 To 20 Step 3s = s + iNext iFor j = 1 To 3s = s * jNext j问：该程序段运行后，（1）语句“s=s*j”执行的次数为_。 （2）变量 s 的值为_。5. 已知某数列前二项分别为：a 1 = 1、a 2 = 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)
24、+ a(i - 1)Next i问：（1）数组a存储该数列的前20项，上面程序段划线处应填入_。 （2）该程序段运行后，a(6)的值为_。6. 有如下Visual Basic程序段：s = 0For i = 1 To 10For j = 1 To is = s + j * jNext js = s + i * i浙鳌中学2012 年信息技术学科会考理论复习资料第 21 页Next i问：该程序段运行后，（1）语句“s=s+j*j”执行的次数为_。 （2）变量 s 的值为 _。7. 有如下Visual Basic程序段：Dim i As Integer, s As Integers = 0i =
25、 1: a = 5Do While i 100s = s - i + 1i = i + 20Loop问：该程序段运行后，（1）变量i的值是_。 （2）变量 s 的值为_。9. 有如下Visual Basic程序段：Dim i As Integer, s As Integeri = 5s = 0Do While i b And a cb = b + 1c = c + bLoop浙鳌中学2012 年信息技术学科会考理论复习资料第 22 页问：该程序段运行后，（1）语句“b=b+1”执行的次数为_。 （2）变量c的值为_。程序综合题：2008年真题：1.某学生说他的年龄不低于10岁，且他的年龄减去1
26、0，平方以后得到的一个数，恰好是他的年龄加上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)E
27、nd Sub程序中划线处(1)应填入 程序中划线处(2)应填入 浙鳌中学2012 年信息技术学科会考理论复习资料第 23 页2.模拟两人掷骰子游戏。由电脑随机产生两个1到6之间的整数，表示甲乙两人所掷的骰子数，根据这两个数字之和是偶数还是奇数，判定哪一方赢了？偶数表示甲赢了，奇数表示乙赢了。掷了若干次后，分别统计甲乙各赢了几次？ 程序界面如图VB-1所示，在文本框Text1中输入总次数n，单击“开始“按钮，在文本框Text2中输出甲赢的次数，在文本框Text3中输出乙赢的次数。在列表框List1中输出游戏次数和判断结果。 算法流程图如图VB-2所示，相应的Visual Basic程序如下，其中
28、变量a、b分别存储甲、乙两人所掷的骰子数，变量n存储游戏总次数，变量k、j分别存储甲、乙各自赢的次数。在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。浙鳌中学2012 年信息技术学科会考理论复习资料第 24 页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(Rn
29、d() * 6 + 1)If (2) ThenList1.AddItem Str(i) + “甲赢了!“k = k + 1ElseList1.AddItem Str(i) + “乙赢了!“j = j + 1End IfText2.Text = Str(k)Text3.Text = Str(j)Next iEnd Sub程序中划线处(1)应填入 程序中划线处(2)应填入 浙鳌中学2012 年信息技术学科会考理论复习资料第 25 页3.用50元钱兑换面值为1元、2元、5元的纸币共25张。每种纸币不少于1张，求出有多少种兑换方案？每种兑换方案中1元、2元、5元的纸币各有多少张？假设面值为1元、2元、
30、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 Integer浙鳌中学2012 年信息技术学科会考理论复习资料第 26 页k = 0List1.ClearFor y = 1 To 23For z = 1 To 9x =
31、25 - y - zIf (1) ThenList1.AddItem “1元“ + Str(x) + “张 2元“ + Str(y) + “张 5元“ + Str(z) + “张“(2) End IfNext zNext yLabel1.Caption = “共有“ + Str(k) + “种兑换方案“End Sub程序中划线处(1)应填入 程序中划线处(2)应填入 浙鳌中学2012 年信息技术学科会考理论复习资料第 27 页浙鳌中学2012 年信息技术学科会考理论复习资料第 28 页4.某班级45名学生，每位学生中文姓名均不相同，并且都有一个英文名。下面程序的功能是根据学生的中文姓名查找相应
32、的英文名，其中学号存储在数组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
33、, 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)应填入 浙鳌中学2012 年信息技术学科会考理论复习资料第 29 页程序中划线处(2)应填入 5.某市近期
34、向市民投放带2B开头尾数为001至999的机动车牌号，经过竞投有200个牌号被首批车主投中。下面Visual Basic程序段的功能是根据车牌号查找相应的车主身份证号码，其中车牌号按尾数从小到大的顺序存储在cno数组中，身份证号码存储在cnum数组中。 界面如图VB-1所示，在文本框Text1中输入一个车牌号，单击“开始查找“按钮后，在文本框Text2中输出结果。如果查找成功，则输出对应的车主身份证号码，否则输出“找不到“。解决查找问题的算法流程图如图VB-2所示，相应的Visual Basic程序段如浙鳌中学2012 年信息技术学科会考理论复习资料第 30 页下，在(1)和(2)划线处，填入
35、合适的语句或表达式，把程序段补充完整。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 foundm = 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)应填入
