当前位置:首页 >> 其它课程 >>

2009年6月信息技术会考-算法与程序设计试题。。。


浙江省 2009 年高中信息技术会考(6 月卷)

2009 年 6 月高中信息技术会考 算法与程序设计题(第一套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: m = "VB" n = "is" t

= "easy" t = m + n + t 该程序段运行后,变量 t 的值为__VBiseasy_ _____。 2. 有如下 Visual Basic 程序段: a = 23 b = 34 If a > b Then Label1.Caption = "a>b" Else Label1.Caption = "a<=b" End If 该程序段运行后,在标签 Label1 上显示的是 a<=b _____。 3.以下 Visual Basic 程序的功能是: 计算表达式 1×3+2×3+3×3+?100×3 的值, 并在文 本框 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 的值是____101____。 (2)为了实现上述表达式的计算,程序中划线处的表达式应更正为_s+i*3_____。 4.某市出租车计费标准规定:出租车启动后行程不超过 3 千米(包含 3 千米)计费 5 元; 如果行程超过 3 千米且不超过 10 千米 (包含 10 千米) 则超过 3 千米部分按 1.5 元/千米计 , 费(3 千米及以内部分计费仍为 5 元) ;若行程超过 10 千米,则在前面计费基础上,超出 10 千米部分按 1.8 元/千米计费。 假定某出租车行程为 x 千米,计费标准如下: 当 x≤3 千米时,计费为 5 元; 当 3<x≤10 千米时,计费为 5+(x-3)×1.5 当 x>10 千米时,计费为 5+(10-3)×1.5+(x-10)×1.8 程序界面如图 VB-1 所示,在文本框 Text1 中输入行驶里程数(单位:千米) ,单击“开 始计算”按钮(Command1)后,在标签 Label3 输出计费结果。
第 1 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

解决此问题的算法流程图如图 VB-2 所示,相应的 Visual Basic 程序如下,在程序①和 ②划线处,填入适当的语句或表达式,把程序补充完整。 Private Sub Command1_Click() Dim x As Single, s As Single x = Val(Text1.Text) If ① Then s = 5 ElseIf x <= 10 Then s = 5 + (x - 3) * 1.5 Else s = 5 + (10 - 3) * 1.5 + (x - 10) * 1.8 End If ② = Str(s) End Sub 程序中①划线处应填入___x<=3________ 程序中②划线处应填入___ Label3.caption________

图 VB-1

第 2 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

开始 输入行程数 x Y x 不超过 3 ? N Y
X 不超过 10 ?

N s←5 + (10 - 3) × 1.5 + (x - 10)×1.8 s←5+ (x - 3) × 1.5

s←5

输出 s 的值 图 VB-2 结束

2009 年 6 月高中信息技术会考 算法与程序设计题(第二套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a = 12 b = 32 c = a c = c + b 该程序段运行后,变量 c 的值为___44_______。 2. 有如下 Visual Basic 程序段: x = 12 If x <= 10 Then s = 8 Else s = x End If 该程序段运行后,变量 s 的值为___12______。 3.以下 Visual Basic 程序的功能是:计算表达式 1+3+9+27+81+?2187 的值,并在文本 框 Text1 中输出计算结果。 Private Sub Command1_Click() Dim i As Integer, t As Long t = 0 i = 1 Do While i <= 2187
第 3 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

t = t + i i = i + 3 Loop Text1.Text = Str(t) End Sub 问: (1)为了实现这一目标,程序划线处的表达式应更正为_____i=i*3_______。 (2)运行更正后的程序,循环刚退出时变量 i 的值为__6561____。 4.将一个十进制正整数转化为二进制数可以采用“除二取余法” ,主要方法就是将十进制数 用 2 除, 保存所得余数, 然后将商的整数部分作为下次运算的被除数, 重复上述 “除二取余” 操作,直到商的整数部分为零停止。 程序界面如图 VB-1 所示,在文本框 Text1 中输入一个正整数,单击“开始转换”按钮 (Command1)后,对应的二进制数在标签 Label3 中显示出来。 解决此问题的算法流程图如图 VB-2 所示,相应的 Visual Basic 程序如下,在程序①和 ②划线处,填入适当的语句或表达式,把程序补充完整。 Private Sub Command1_Click() Dim x As Integer, s As String, r As Integer, t As Integer ① s = "" Do While x <> 0 r = x Mod 2 s = Str(r) + s x = ② Loop Label3.Caption = s End Sub 程序中①划线处应填入___x=val(Text1.text)_________ 程序中②划线处应填入__x\2_____________

图 VB-1

第 4 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

开始 输入十进制数 x s 赋初值(空字符串) N x≠0 ? Y 将当前 x 被 2 除的余 数保存到变量 r s←Str(r)+s 将当前 x 被 2 除所得商的 整数部分保存到变量 x

输出 s 的值 结束 图 VB-2

2009 年 6 月高中信息技术会考 算法与程序设计题(第三套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: m = 8 n = 5 t = m + n t = t - n 该程序段运行后,变量 t 的值为___8______。 2. 有如下 Visual Basic 程序段: x = 5001 s = 1 If x > 5000 Then s = s + 1 Label1.Caption = Str(s) 该程序段运行后,在标签 Label1 上显示的是_2________。 3. 有如下 Visual Basic 程序:
第 5 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

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)的值为_12__。 (2)循环刚退出时,变量 i 的值为___102____。 4.在某学校里,每位同学都会得到一张一卡通卡,一卡通的卡号是唯一的,卡内会记录每 位同学的姓名、住址、班级、金额等信息。每当同学刷卡时,卡号就被输入电脑,然后进行 查找,如果找到就显示姓名,否则显示“查无此人” 。下列程序的功能是根据卡号查找对应 的姓名,程序中数组 a 保存所有已发放一卡通的卡号,数组 b 保存卡号对应的姓名,第 i 位 同学的卡号保存在 a(i)中,姓名保存在 b(i)中。 程序界面如图 VB-1 所示, 左边列表框列出所有同学的卡号和姓名, 在右边文本框 Text1 中输入卡号,单击“开始查询”按钮(Command1) ,程序就按卡号进行查找,如果找到就在 标签 Label3 中输出卡号对应同学的姓名,否则就输出“查无此人” 。 解决此问题的算法流程图如图 VB-2 所示,相应的程序如下,在程序①和②划线处,填 入适当的语句或表达式,把程序补充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As String, f As Boolean x = ① i = 0: f = False 'f 为找到标志变量,值为 True 表示找到,否则表示没找到 Do While (i < n) And (f = False) i = i + 1 If x = a(i) Then f = True End If Loop If f = True Then ② Else s = "查无此人!" End If Label3.Caption = s End Sub 程序中①划线处应填入___text1.text____ 程序中②划线处应填入___s=a(i)_______

第 6 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

图 VB-1

图 VB-2

2009 年 6 月高中信息技术会考 算法与程序设计题(第四套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: i = 3
第 7 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

j = i + i k = j + j 该程序段运行后,变量 k 的值为____12_____。 2. 有如下 Visual Basic 程序段: x = 0.51 If x >= 0.5 Then s = 1 Else s = 0 End If Label1.Caption = Str(s) 该程序段运行后,在标签 Label1 上显示的是_1_______。 3.有如下 Visual Basic 程序段: Dim i As Integer, s As Integer i = 1 s = 0 Do While i <= 10 s = s + 1:i = i + 1 Loop 问: (1)该程序段运行后,循环中的两个语句“s = s + 1:i = i + 1”一共执行的次数为 _____10_______。 (2)该程序段运行后,变量 s 的值为___10________。 4. 在网上商城中找到商品后可以将商品按照价格顺序显示, 下列程序模拟该信息处理过程, 程序能根据找到的商品信息(价格和发货地) ,将所有商品按照价格从高到低显示。一开始, 所有商品的价格和发货地分别保存在数组 a 和数组 b 中,第 i 个商品的价格保存在 a(i)中, 对应的发货地保存在 b(i)中。 程序界面如图 VB-1 所示,左边列表框 List1 中显示用户已找到的所有商品信息(包括 价格和发货地) ,单击 “开始排序”按钮(Command1) ,所有商品按照价格从高到低显示在 列表框 List2 中。 解决此问题的算法流程图如图 VB-2 所示,相应的程序如下,在程序①和②划线处,填 入适当的语句或表达式,把程序补充完整。 Private Sub Command1_Click() Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer For i = 1 To n – 1 ' n 表示商品总数 k = i ' k 保存第 i 大的数,一开始假定是 a(i) For j = i + 1 To n If a(k) < a(j) Then k = ① Next j If i<k ② Then t1 = a(i): a(i) = a(k): a(k) = t1 '交换价格 t2 = b(i): b(i) = b(k): b(k) =t2 '交换发货地 End If Next i
第 8 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

For i = 1 To n '在列表框 List2 中输出排序结果 List2.AddItem Str(a(i)) + " " + b(i) Next i End Sub 程序中①划线处应填入_____j_______ 程序中②划线处应填入______k<>i _____

图 VB-1

第 9 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

开始 i←1 N i<n? Y k←i 在列表框 List2 中 输出排序结果 结束 N j≤n? Y N a(k)<a(j) ? Y 将比 a(k)大的数的 下标 j 保存到 k 中 j←j+1

j←i+1

i

Y k≠i? N 互换 a(i)与 a(k)的值 互换 b(i)与 b(k)的值

i←i+1

图 VB-2

第 10 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

2009 年 6 月高中信息技术会考 算法与程序设计题(第五套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a = 18: b = 12 c = (a - b) * 2 该程序段运行后,变量 c 的值为____12_______。 2. 有如下 Visual Basic 程序段: x = 10 If x > 10 Then Label1.Caption = "你可以继续使用" Else Label1.Caption = "余额不足" End If 该程序段运行后,在标签 Label1 上显示的是___余额不足_________。 3.有如下 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 Loop End Sub 问: (1)该程序段运行后,变量 s 的值为___42________。 (2)循环刚退出时,变量 i 的值为_____12_______。 4. 超市进货时会将每个商品的条形码和价格输入计算机, 并对所有商品按照条形码排序 (从 小到大) ,顾客付款时只要把条形码输入电脑,电脑即可根据条形码找到该商品并显示对应 的价格。 下列程序的功能是根据条形码查找对应商品的价格, 所有商品的条形码和价格分别 保存在数组 a 和 b 中(并且已经按照条形码从小到大排序) ,第 i 个商品的条形码保存在 a(i) 中,对应的价格保存在 b(i)中,变量 f 是标志变量,如果值为 True 则说明找到了商品,若为 False 则说明没有找到。 程序界面如图 VB-1 所示,在文本框 Text1 中输入商品的条形码,单击“开始查找”按 钮(Command1)后,对应商品的价格在标签 Label4 中显示出来,如果未找到则显示“找不 到该商品,请重新输入条形码” 。 解决此问题的算法流程图如图 VB-2 所示,相应的程序如下,在程序①和②划线处填入 适当的语句或表达式,将程序补充完整。 Private Sub Command1_Click()
第 11 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

Dim x As String, i As Integer, j As Integer, m As Integer Dim f As Boolean x = Text1.Text i = 1: j = n: f = False 'n 保存总的商品数 Do While (i <= j) And Not (f) m = Fix((i + j) / 2) If ① Then f = True ElseIf x < a(m) Then ② Else i = m + 1 End If Loop If f Then Label4.Caption = b(m) Else Label4.Caption = "找不到该商品,请重新输入条形码" End If End Sub 程序中①划线处应填入_____x=a(m)__________ 程序中②划线处应填入____j=m-1_________

图 VB-1

第 12 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

开始 输入条形码保存到 x i←1,j←n,f←False i≤j 并且 f=False? Y m←Fix((i+j)/2)
找到商品?

N

N f=True ? Y

Y

N Y x<a(m) ?

N

f←True

将查找区间右边 界设为中点的前 一个位置

将查找区间左 边界设为中点 的后一个位置

输出查找 失败信息

输出找到 的价格

结束

图 VB-2

2009 年 6 月高中信息技术会考 算法与程序设计题(第六套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: m = 10 n = m * 2 t = m * n 该程序段运行后,变量 t 的值为_____200______。 2. 有如下 Visual Basic 程序段: s = 65 If s >= 60 Then Label1.Caption = "P" Else Label1.Caption = "E" End If
第 13 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

该程序段运行后,在标签 Label1 上显示的是__ P __________。 3. 以下 Visual Basic 程序的功能是: 计算表达式 1-2+3-4+5-6+?+99-100 的值, 并 在文本框 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 的值是___101______。 (2)为了实现上述表达式的计算,程序中划线处的表达式应更正为___i*t____。 4.COD(化学需氧量)是衡量水质污染程度的重要指标之一,污水处理时根据污水的 COD 指标来计算 COD 去除剂的投放量。 程序界面如图 VB-1 所示,在文本框 Text1 中输入 COD 指标,单击“计算投放量”按钮 (Command1)后,程序根据 COD 指标计算出合适的 COD 去除剂投放量,并在标签 Label3 中 输出计算结果。 污水处理厂根据 COD 指标投放 COD 去除剂的标准如下表所示: 当前 COD 指标 x x<50 x≥50 并且 x≤500 10
1 .2 x 5

根据 COD 指标应投放 COD 去除剂的剂量

x>500

1 .5 x 4

图 VB-1 在程序①和②划线处填入适当的语句或表达式,将程序补充完整。
第 14 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

Private Sub Command1_Click() Dim x As Single, s As Single x = Val(Text1.Text) If ① Then s = 10 ElseIf x <= 500 Then s = ② Else s = x / 4 * 1.5 End If Label3.Caption = Str(s) End Sub 程序中①划线处应填入____ x<50___________ 程序中②划线处应填入__1.2x/5 __ ___ _________

2009 年 6 月高中信息技术会考 算法与程序设计题(第七套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a = 1024: i = 2 b = a / i c = b / i 该程序段运行后,变量 c 的值为__256_______。 2. 有如下 Visual Basic 程序段: a = 5: b = 4: c = 7 s = a + b If s > c Then Label1.Caption = "初检合格" Else Label1.Caption = "重新调试" End If 该程序段运行后,在标签 Label1 上显示的是__初检合格________。 3.有如下 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
第 15 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

Text1.Text = Str(s) End Sub 问: (1)程序运行后,变量 s 的值为__________。 (2)程序运行后,语句“s=s+1”被执行的次数为__10_________。 4.某网站组织了 100 个商品进行网络人气调查,投票结束后,要选出得票数最高的前 10 个商品。下列程序的功能是根据商品已有得票数,选出得票数最高的 10 个商品。商品的代 号和得票数分别保存在数组 a 和 b 中,第 i 个商品的代号保存在 a(i)中,对应的得票数保 存在 b(i)中。 程序界面如图 VB-1 所示,左边列表框 List1 中显示的是所有商品的代号和得票数(按 代号从小到大排列) ,单击“开始统计”按钮(Command1)后,在右边的列表框 List2 中显 示得票数最高的 10 个商品的代号和得票数(按照得票数从高到低的顺序显示) 。 解决此问题的算法流程图如图 VB-2 所示,相应的程序如下,在程序①和②划线处填入 适当的语句或表达式,将程序补充完整。

图 VB-1 Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer For i = 1 To 10 For j = 100 To i + 1 Step -1 ① If b(j) > b(j - 1) Then t = a(j - 1): ② : a(j) = t t = b(j - 1): b(j - 1) = b(j): b(j) = t End If Next j Next i For i = 1 To 10 List2.AddItem Str(a(i)) + " " + Str(b(i)) Next i End Sub 程序中①划线处应填入____-1___________
第 16 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

程序中②划线处应填入__a(j-1)=a(j)______________

图 VB-2

2009 年 6 月高中信息技术会考 算法与程序设计题(第八套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: i = 7: j = 3 k = i * j - j 该程序段运行后,变量 k 的值为____18_______。 2. 有如下 Visual Basic 程序段: x = 90 If x > 90 Then
第 17 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

Label1.Caption = "声音超标" Else Label1.Caption = "合格" End If 该程序段运行后,在标签 Label1 上显示的是__合格_________。 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 的值为_____33______。 (2)程序运行后,语句“t = t * 2”被执行的次数为____5_______。 4.交通违章查询。在违章查询系统中输入车主的汽车车牌号,查询系统就会按照车牌号查 找所有的违章记录。 下列程序的功能是根据车牌号查找该车的违章信息, 数组 a 和 b 分别保 存所有违章汽车的车牌号和违章原因,第 i 条信息的车牌号保存在 a(i)中,对应的违章原 因保存在 b(i)中。 程序界面如图 VB-1 所示,在文本框 Text1 中输入车牌号,单击“开始查找”按钮 (Command1) ,电脑就开始查找该汽车所有的违章记录,如果找到对应的信息,就统计所有 违章次数并在标签 Label3 中显示违章总次数, 同时在列表框 List1 中显示所有违章的原因, 如果没有找到,则在列表框中显示“没有任何违章记录” 。 解决此问题的算法流程图如图 VB-2 所示,相应程序如下,在程序①和②划线处填入适 当的语句和代码,把程序补充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As Integer List1.Clear s = 0 x = ① For i = 1 To n If x = a(i) Then s = s + 1 List1.AddItem b(i) End If Next i Label3.Caption = Str(s) If ② Then List1.AddItem "没有任何违章记录" End Sub 程序中①划线处应填入___ val(Text1.text)____________ 程序中②划线处应填入_______ s=0_________
第 18 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

图 VB-1

图 VB-2

第 19 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

2009 年 6 月高中信息技术会考 算法与程序设计题(第九套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a = "Test" b = "is" c = "easy" c = a + b + c 该程序段运行后,变量 c 的值为_______。 2. 有如下 Visual Basic 程序段: x = 36: y = 27 If x / 3 > y / 3 Then Label1.Caption = "x>y" Else Label1.Caption = "x<=y" End If 该程序段运行后,在标签 Label1 上显示的是___ x>y _______。 3.有如下 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 < a(i) Then m = a(i) i = i + 1 Loop 已知数组 a 中 a(1)、a(2)、?、a(10)保存的数值分别为:56、32、12、24、77、89、90、 7、3、11,问: (1)循环刚退出时,变量 i 的值为___11________。 (2)该程序段运行后,变量 m 的值为_90________。 4.团体总分统计。下列程序的功能是根据输入的班级编号,统计该班的团体总分。每个运 动员的编号、所属班级编号、得分情况分别保存在数组 a、b、c 中,a(i)保存第 i 位运动员 的编号,b(i)保存第 i 位运动员所属班级编号,c(i)保存第 i 位运动员得分。 程序界面如图 VB-1 所示,在文本框 Text1 中输入班级编号,单击“开始统计”按钮 (Command1) ,程序统计该班的团体总分并在文本框 Text2 中显示。 解决此问题的算法流程图如图 VB-2 所示,相应的程序如下,程序中变量 n 表示总的运 动员人数,在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As Integer x = Text1.Text s = 0 For i = 1 To n
第 20 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

If ① Then s = s + c(i) ② Next i Text2.Text = Str(s) End Sub 程序中①划线处应填入____x=b(i) _ _____________ 程序中②划线处应填入___end if ___________

图 VB-1

第 21 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

图 VB-2

2009 年 6 月高中信息技术会考 算法与程序设计题(第十套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a = 10: b = 8: c = 2 d = b * b - 4 * a * c 该程序段运行后,变量 d 的值为____-16______。 2. 有如下 Visual Basic 程序段: x = 13 If x < 7 Then s = "油量不足" Else s = "继续行驶" End If Label1.Caption =s 该程序段运行后,在标签 Label1 上显示的是__继续行驶_ ______。 3.有如下 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 的值为__30________。 (2)程序运行后,刚退出循环时变量 i 的值为____13______。 4.猜密码。电脑产生一个 8 位密码,用户输入猜测的密码,电脑判断用户所猜密码的正确 性,如果用户输入的密码和电脑产生的密码完全一致则输出“恭喜你猜中了密码!,否则程 ” 序将输出用户密码和计算机产生密码之间不同的字符数。 电脑产生的 8 位密码分别保存在数 组 pass 的 8 个下标变量 pass(1)、pass(2)、?、pass(8)中。 程序界面如图 VB-1 所示,用户在文本框 Text1 中输入密码,单击“密码校验”按钮 (Command1)后,程序在标签 Label3 中输出密码校验结果。 解决此问题的算法流程图如图 VB-2 所示,相应的程序如下,在程序①和②划线处,填 入适当的语句或表达式,把程序补充完整。 Dim pass(1 To 8) As Integer Private Sub Command1_Click() Dim x(1 To 8) As Integer, i As Integer, s As Integer For i = 1 To 8 x(i) = Val(Mid(Text1.Text, i, 1)) '把文本框中数字逐个分割出来并转化成数值
第 22 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

Next i s = 0 '变量 s 保存不同字符的总数 For i = 1 To 8 If pass(i) <> x(i) Then ① Next i If ② Then Label3.Caption = "恭喜你猜中了密码!" Else Label3.Caption = "你输入的密码共有" + Str(s) + "个字符和密码不符" End If End Sub Private Sub Form_Load() Dim i As Integer For i = 1 To 8 '产生 8 位密码,每位一个非负整数,保存到数组 pass pass(i) = Fix(Rnd * 10) Next i End Sub 程序中①划线处应填入______s=s+1___________ 程序中②划线处应填入_____s=0___________

图 VB-1

第 23 页 共 24 页

浙江省 2009 年高中信息技术会考(6 月卷)

图 VB-2

第 24 页 共 24 页


相关文章:
2012年6月信息技术会考-算法与程序设计试题
浙江省 2012 年高中信息技术会考-算法与程序设计题(6 月卷) 2012 年 6 月高中信息技术会考 算法与程序设计题(第一套)四、程序设计题(本题共 3 小题,第 1...
2009年6月信息技术会考-算法与程序设计试题。。。
2009年6月信息技术会考-算法与程序设计试题。。。 隐藏>> 浙江省 2009 年高中信息技术会考(6 月卷) 2009 年 6 月高中信息技术会考 算法与程序设计题(第一套...
2012年6月信息技术会考-算法与程序设计试题-评分标准
浙江省 2012 年高中信息技术会考算法与程序设计评分标准(6 月卷) 2012 年浙江省高中信息技术会考(6 月卷) 算法与程序设计题评分标准特别说明: (1)答案中的英文...
2011年6月信息技术会考-算法与程序设计试题
2011 年 6 月高中信息技术会考 算法与程序设计题(第一套)四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1...
2011年6月信息技术会考-算法与程序设计(含答案)
2011年6月信息技术会考-算法与程序设计(含答案)_其它课程_高中教育_教育专区。...高中学业水平考试总复习《技术》模拟试卷(一) 第一部分 信息技术(共 35 分) ...
2009年6月高中信息技术会考算法与程序设计题(第五套)
2009年6月高中信息技术会考算法与程序设计题(第五套)2009年6月高中信息技术会考算法与程序设计题(第五套)隐藏>> 2009 年 6 月高中信息技术会考 算法与程序设计...
2009年6月福建省信息技术会考试题
2009年6月福建省信息技术会考试题_其它课程_高中教育_教育专区。2009年6月福建省信息技术会考试题机密★2009 年 6 月 13 日 2009 年福建省普通高中学生学业基础会...
2009年6月高中信息技术会考
2009年6月高中信息技术会考_其它课程_高中教育_教育专区。2009 年 6 月高中信息技术会考 算法与程序设计题(第六套)四、程序设计题(本题有 4 小题,第 1-3 ...
09年会考算法与程序设计试题参考答案
2009年6月信息技术会考-算... 24页 5财富值 2009年6月高中信息技术会考......09年会考算法与程序设计试题参考答案 隐藏>> 第一套 1 2 3 4 "VBis easy...
2009年6月高中信息技术会考
2009年6月高中信息技术会考_专业资料。2009 年 6 月高中信息技术会考 算法与程序设计题(第六套)四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 ...
更多相关标签:
程序员算法面试题 | php校招笔试会考算法 | 音乐会考试题 | 高中物理会考试题 | 2015山东会考语文试题 | 河北省高中会考试题 | 会考试题 | 高中信息技术会考试题 |