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

2007年浙江省信息技术会考算法与程序设计题


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

2007 年 6 月高中信息技术会考 算法与程序设计题(第一套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1.有如下 Visual Basic 程序段: a = 30 b = 20 a = b 该程序段运行后,变量 a 的值为_____

___。 2.有如下 Visual Basic 程序段: Dim a As Single, py As String a=Val(Text1.Text) If a>0 Then py="正数" If a=0 Then py="零" If a<0 Then py= "负数" Label1.Caption=py 在文本框 Text1 中输入 100,则在 Label1 标签上显示的是 。 3. 以下 Visual Basic 程序的功能是:计算表达式 1×2×3×4×5×6×7×8×9×10 的值, 并在文本框 Text1 中输出结果。为了实现这一功能,程序中划线处的语句应更正为 _____________。 Private Sub Command1_Click() Dim i As Integer,sum As Long sum = 0 For i = 1 To 10 sum = sum * i Next i Text1.Text=Str(sum) End Sub 4.从改革开放以来,浙江省农村家庭的可支配收入逐年增加,近几年每年增长率在 9%左右。 小明一家今年的可支配收入是 32000 元,按现在的增长率 9%计算,小明家几年后可支配收 入将达到 50000 元? 解决此问题的流程图如 VB-1 所示。根据流程图 VB-1 编写的 Visual Basic 程序如下, 在①和②划线处,填入合适的语句或表达式,把程序补充完整。

第 1 页 共 18 页

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

Private Sub Command1_Click() Dim x As Long, p As Double Dim n As Integer x = 32000 p = 0.09 n = 0 Do While ② Loop Text1.Text = Str(n) End Sub
输出 n x←x(1+p) N x<50000 ? Y 增长率:p←9% 可支配收入:x←32000 开始


所需年数:n←0

x = x * (1 + p)

结束

n←n+1

程序中划线处①应填入 程序中划线处②应填入
图 VB-1

第 2 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第二套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1.有如下 Visual Basic 程序段: a="Good" b="Bye" c=a+b 该程序段运行后,变量 c 的值是___________。 2. 有如下 Visual Basic 程序段: x=3 If x>5 Then y=x*x Else y=4*x End If 该程序段运行后,变量 y 的值是___________。 3. 下面程序的功能是:计算表达式 1+3+5+?+(2n-1)的值,在文本框 Text1 中输入 n 的值, 结果在文本框 Text2 中输出。则程序中划线处的语句应更正为__________________。 Private Sub Command1_Click() Dim sum As Long,i As Integer,n As Integer sum = 0 n = Val(Text1.Text) For i = 1 To 2 * n - 1 Step 2 sum = sum + 2 Next i Text2.Text=Str(sum) End Sub 4.依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》,血液中酒精含量大 于或等于 0.3mg/ml 驾驶机动车的属酒后驾车; 大于或等于 1.0mg/ml 驾驶机动车的属醉酒驾 车。设计一个程序,帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。 解决此问题的流程图如 VB-1 所示。根据流程图 VB-1 编写的 Visual Basic 程序如下, 在①和②划线处,填入合适的语句或表达式,把程序补充完整。

第 3 页 共 18 页

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

开始

将酒精含量的值送变量 x

N

x≥1?

Y

N

x≥0.3?

Y

输出: 你属于醉酒驾车!

输出: 你属于酒后驾车! 输出: 恭喜你没有违法!

结束 图 VB-1 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If ① Then Label1.Caption = "你属于醉酒驾车!" Else If x >= 0.3 Then Label1.Caption = "你属于酒后驾车!" ② Label1.Caption = "恭喜你没有违法!" End If End If End Sub 程序中划线处①应填入 程序中划线处②应填入

第 4 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第三套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a=300 b=400 b=b-a 该程序段运行后,变量 b 的值为_________。 2.有如下 Visual Basic 程序段: a=2 b=5 If a<b Then m=a Else m=b End If 该程序段运行后,变量 m 的值为___________。 3. 下面 Visual Basic 程序的功能是:计算表达式 1+1/3+1/5+?+1/99 的值,并在文本框 Text1 中 输 出 该 表 达 式 的 值 。 为 了 实 现 这 一 功 能 , 程 序 中 划 线 处 的 语 句 应 更 正 为 __________________。 Private Sub Command1_Click() Dim sum As Single,i As Integer sum = 0 For i = 1 To 99 Step 2 sum = sum + i Next i Text1.Text = Str(sum) End Sub 4. 某人走楼梯,方法是每步跨 1 个台阶或跨 2 个台阶。现要计算有 20 个台阶的楼梯,共有 多少种不同的走法? 经分析,台阶数与走法种数如下表: 台阶数 走法种数 1 1 2 2 3 3 4 5 5 8 6 13 7 21 8 34 9 55 ? ?

由上表得,走法种数的规律是:从第 3 项开始,每一项是它相邻的前面 2 项之和。 解决上述问题的 Visual Basic 程序如下,在①和②划线处,填入合适的语句或表达式, 把程序补充完整。 Private Sub Command1_Click() Dim a As Long, b As Long, c As Long, n As Integer a = 1 b = 2 c = a + b For n = 4 To ① a = b
第 5 页 共 18 页

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

b = c ② Next n Text1.Text = Str(c) End Sub 程序中划线处①应填入 程序中划线处②应填入

第 6 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第四套)
四、程序设计题(本题共 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a=2 b=3 c=4 c=b-a 该程序段运行后,变量 c 的值为___________。 2.有如下 Visual Basic 程序段: a=2 b=5 If a>b Then m=a Else m=b 该程序段运行后,变量 m 的值为___________。 3. 下面是一段 Visual Basic 程序: Private Sub Command1_Click() Dim sum As Double,i As Integer sum = 0 For i = 1 To 5 sum=sum+i*i Next i Text1.Text=Str(sum) End Sub 该程序运行后,语句 sum=sum+i*i 共执行了 次。 4. 有一个有趣的兔子繁殖问题:第 1 个月买来 1 对小兔子,两个月后,这对兔子就会生 1 对小兔子,以后每个月都会生一对小兔子;而生下来的这对小兔子,两个月后又会开始生 1 对小兔子。依次类推,试问:几个月后,兔子将超过 50 对? 分析问题得出月份与兔子对数的关系如下表: 月份 兔子对数 1 1 2 1 3 2 4 3 5 5 6 8 7 13 8 21 9 34 ? ?

由表知兔子繁殖规律: 从第 3 个月开始, 以后每月的兔子对数都是它相邻的前面 2 个月 的兔子对数之和。 解决上述问题的 Visual Basic 程序如下,在①和②划线处,填入合适的语句或表达式, 把程序补充完整。 Private Sub Command1_Click() Dim a(1 To 100) As Integer, n As Integer a(1) = 1 a(2) = 1 a(3) = a(2) + a(1) n = 3 Do While a(n) <= 50 n = ① a(n) = ②
第 7 页 共 18 页

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

Loop Text1.Text = Str(a(n)) End Sub 程序中划线处①应填入 程序中划线处②应填入

第 8 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第五套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1.有如下 Visual Basic 程序段: a=2 b=4 b=a+b 该程序段运行后,变量 b 的值是___________。 2.有如下 Visual Basic 程序段: x=1.5 If x>1 Then Label1.Caption = "醉酒!" Else Label1.Caption = "没有醉酒! " End If 该程序段运行后, Label1 标签上显示为___________。 3. 下面 Visual Basic 程序的功能是:计算表达式 1+1/2+1/3+?+1/100 的值,并在文本框 Text1 中 输 出 表 达 式 的 值 。 为 了 实 现 这 一 功 能 , 程 序 中 划 线 处 的 语 句 应 更 正 为 __________________。 Private Sub Command1_Click() Dim sum As Double,i As Integer sum = 0 For i = 1 To 100 sum=sum+i Next i Text1.Text=Str(sum) End Sub 4. 《浙江省道路交通安全法》第八十三条规定:机动车驾驶人驾驶机动车超过规定时速的, 按以下标准处以罚款: (一)超过规定时速未达百分之五十的,处二百元罚款; (二)超过规定时速百分之五十的,处五百元罚款;每多超五公里,加处二百元罚款,但 最高罚款不得超过二千元。 设某公路的规定时速为 80(km/h),用 x 表示车速,y 表示罚款数,该问题的数学式为:
?0 ? ? 200 y ? ? ? 500 ? I nt (( x ? 1 . 5 ? 80 ) / 5 ) ? 200 ? 2000 ? x ? 80 80 ? x ? 120 x ? 120 y ? 2000 ( Int ( x )的 值 为不大于 x 的的最大整数 )

根据上述分析,解决此问题的 Visual Basic 程序如下,在①和②划线处,填入合适的 语句或表达式,把程序补充完整。 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x <= 80 Then
第 9 页 共 18 页

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

y = 0 Else If ① y = 200 Else

Then

② If y > 2000 Then y = 2000 End If End If Label1.Caption = Str(y) End Sub 程序中划线处①应填入 程序中划线处②应填入

第 10 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第六套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1.有如下 Visual Basic 程序段: a=15 b=5 a=a-b 该程序段运行后,变量 a 的值是___________。 2.有如下 Visual Basic 程序段: x=110 If x>100 Then Label1.Caption = "你超速了!" Else Label1.Caption = "你没超速! " End If 该程序段运行后, Label1 标签上显示为___________。 3.下面 Visual Basic 程序的功能是:计算表达式 1×2+3×4+5×6+7×8+9×10 的值。运行 该程序后,语句 sum=sum+i*(i+1)共执行了 次。 Private Sub Command1_Click() Dim sum As Integer,i As Integer sum = 0 For i = 1 To 9 Step 2 sum = sum + i * (i+1) Next i Text1.Text=Str(sum) End Sub 4. 哥哥考弟弟一道数学题,题目是:“有一筐鸡蛋,2 个 2 个数多 1 个,3 个 3 个数多 2 个,4 个 4 个数多 3 个,5 个 5 个数正好数完,问这筐鸡蛋最少是几个?” 为解决此问题,弟弟编了一个如下 Visual Basic 程序,其中 s 表示鸡蛋数,t 用于控制 循环。但此程序存在两处错误,已分别用划线及①、②标注。请改正这二处错误,并将正确 内容按顺序填写在程序下方①和②划线处。 Private Sub Command1_Click() Dim s As Integer, t As Boolean s = 5 t = False Do While Not t s = s + 1 t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 <> 0) '① Next '② Text1.Text = Str(s) End Sub 程序中划线处①改为 程序中划线处②改为
第 11 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第七套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1. 有如下 Visual Basic 程序段: a=8 b=10 b=a*b/2 该程序段运行后,变量 b 的值为 2.有如下 Visual Basic 程序段: a=5 b=10 max=a If b>max Then max=b 该程序段运行后,变量 max 的值为





3.下面程序的功能是:计算表达式 1×2×3×??×10 的值,并在文本框 Text1 中输出表 达式的值。为了实现这一功能,程序中划线处的语句应更正为__________________。 Private Sub Command1_Click() Dim i As Integer,t As Long t=0 For i=1 To 10 t=t*i Next i Text1.Text=Str(t) End Sub 4.我国是人口大国,2007 年初,我国人口总数已达 13 亿 5 千万。假设我国年人口增长率为 0.5%,则从 2007 年起多少年 后我国人口就会达到或超过 15 亿? 解决此问题的流程图如 VB-1 所示。根据流程图 VB-1 编写的 Visual Basic 程序如下,在①和②划线 处,填入合适的语句或表达式,把程序补充完整。 Private Sub Command1_click() Dim n As Integer, r As Single Dim p As Double r = 0.5/100 p = 13.5 n = 0 Do While p < 15 ① n = n + 1 ② Text1.Text = Str(n) End Sub 程序中划线处①应填入 程序中划线处②应填入

开始

今年人口:p←13.5

增长率:r←0.5%

所需年数:n←0

N p<15?

Y

输出 n

p←p(1+r)

结束

n←n+1

图 VB-1
第 12 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第八套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1.有如下 Visual Basic 程序段: k=30 h=5 s=h*k/2 该程序段运行后,变量 s 的值为



2.有如下 Visual Basic 程序段: a=10 b=20 x=30 If x>b Then a= b+a Else a=b-a End If 该程序段运行后,变量 a 的值为 。 3.下面 Visual Basic 程序的功能是:计算表达式 1×2+2×3+3×4+??+8×9+9×10 的值, 并在文本框 Text1 中输出表达式的值。该程序运行后,程序中的语句 sum=sum+i*(i+1)共执 行了 次。 Private Sub Command1_Click() Dim sum As Integer,i As Integer sum = 0 For i = 1 To 9 sum=sum+i*(i+1) Next i Text1.Text=Str(sum) End Sub 4. 铁路托运行李,是根据行李的重量按下列标准收费:若不超过 50 千克,按每千克 0.35 元收费,若超过 50 千克,超过部分则按每千克 0.5 元收费,行李重量不得超过 150 千克。 设计一个 Visual Basic 程序,通过输入托运行李的重量,计算并输出托运行李的费用, 若超过 150 千克,提示“行李超重!”。 设 x 表示行李重量,y 表示托运费。通过分析可以得出该问题的数学表达式为:
? 0 . 35 ? x ? y ? ? 50 ? 0 . 35 ? ( x ? 50 ) ? 0 . 5 ? 行李超重! ? x ? 50 50 ? x ? 150 x ? 150

解决上述问题的 Visual Basic 程序如下,在①和②划线处,填入合适的语句或表达式, 把程序补充完整。 Private Sub Command1_Click() Dim x as Double x=Val(Text1.Text) If x>150 Then
第 13 页 共 18 页

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

Text2.Text="行李超重!" Else If ① Then y=50*0.35+(x-50)*0.5 Else ② End If Text2.Text=Str(y) End If End Sub 程序中划线处①应填入 程序中划线处②应填入

第 14 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第九套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1.有如下 Visual Basic 程序段: e=3 f=7 h=5 s=(e+f)*h/2 该程序段运行后,变量 s 的值为 2.有如下 Visual Basic 程序段: a=10 b=20 x=5 If x>b Then a=a+b Else a=a-b End If 该程序段运行后,变量 a 的值为





3. 下面 Visual Basic 程序的功能是: 1~20 以内的奇数和。 求 运行该程序后, 语句 sum=sum+i 共执行了 次。 Private Sub Command1_Click() Dim sum as Integer,i as Integer sum=0 For i=1 To 20 Step 2 sum=sum+i Next i Text1.Text=Str(sum) End Sub 4.将一张面值为 100 元的人民币等值换成 5 元、1 元的零钞共 40 张,要求每种零钞不少于 1 张,问 5 元和 1 元面值的零钞各多少张? 设 x、y 分别为 5 元和 1 元面值的零钞张数,通过分析可得出该问题的数学表达式为:
? 5 x ? y ? 100 ? ? x ? y ? 40

且 1≤x<20

解决上述问题的 Visual Basic 程序如下,但此程序存在两处错误,已分别用划线及①、 ②标注。请改正这二处错误,并将正确内容按顺序填写在程序下方①和②划线处。 Private Sub Command1_Click() Dim x As Integer, y As Integer y = 1 : x = 1 Do While 5x + y <> 100 '① y = y + 1 x + y = 40 '② Loop
第 15 页 共 18 页

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

Label1.Caption = "5 元钞" + Str(x) + "张" Label2.Caption = "1 元钞" + Str(y) + "张" End Sub 程序中划线处①改为 程序中划线处②改为

第 16 页 共 18 页

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

2007 年 6 月高中信息技术会考 算法与程序设计题(第十套)
四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 4 分,第 4 小题 6 分,共 18 分) 1.有如下 Visual Basic 程序段: a = 3 b = 5 h = 6 v = a * b * h 该程序段运行后,变量 v 的值是 2.有如下 Visual Basic 程序段: For i=l To 10 a(i)=i Next i 该程序段运行后,数组变量 a(5)的值为





3. 下面 Visual Basic 程序的功能是: 计算表达式 1/2+1/4+?+1/100 的值, 并在文本框 Text1 中输出结果。运行该程序后,语句 sum=sum+1/(2*i)共执行了 次。 Private Sub Command1_Click() Dim sum As Double,i As Integer sum = 0 For i = 1 To 50 sum=sum+1/(2*i) Next i Text1.Text=Str(sum) End Sub 4.有一判断健康状况的 Visual Basic 程序,其窗体如下图所示,输入身高和体重后,单击 “健康状况”按扭,将显示相应的健康状况信息。 标准体重=身高-105 当体重高于“标准体重×1.1”时为偏胖,提示“偏 胖,注意节食!”;当体重低于“标准体重×0.9”时为 偏瘦,提示“偏瘦,增加营养!”;其他为正常,提示“正 常,继续保持!”。 设 h 表示身高,g 表示体重,bt 表示标准体重。通 过分析可得出该问题的数学表达式为:
? 偏胖,注意节食! ? y ? ? 偏瘦,增加营养! ? 正常,继续保持! ? g ? 1.1bt g ? 0.9bt 0.9bt ? g ? 1.1bt

解决上述问题的 Visual Basic 程序如下,在①和②划线处,填入合适的语句或表达式, 把程序补充完整。 Private Sub Command1_Click() Dim h As Double, g As Double, bt As Double h = Val(Text1.Text) g = Val(Text2.Text) ①
第 17 页 共 18 页

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

If g > bt * 1.1 Then Label5.Caption = "偏胖,注意节食!" If ② Then Label5.Caption = "偏瘦,增加营养!" If g <= bt * 1.1 And g >= bt * 0.9 Then Label5.Caption = "正常,继续保持!" End Sub 程序中划线处①应填入 程序中划线处②应填入

第 18 页 共 18 页


相关文章:
2007年浙江省信息技术会考算法与程序设计题
浙江省 2007 年高中信息技术会考(六月卷) 2007 年 6 月高中信息技术会考 算法与程序设计题(第一套)四、程序设计题(本题有 4 小题,第 1-3 小题,每小题 ...
高中信息技术_算法与程序设计题库(含答案)
高中信息技术_算法与程序设计题库(含答案)_其它课程...算法与程序设计会考题库算法与程序设计选择题 2、 ...文档贡献者 笑笑_084 贡献于2016-07-17 ...
2011年浙江省信息技术会考 算法与程序设计7
2011年浙江省信息技术会考 算法与程序设计7_电脑基础知识_IT/计算机_专业资料。2011年浙江省信息技术会考 算法与程序设计 2011 年浙江省信息技术会考试题 第7套 ...
2011年6月信息技术会考-算法与程序设计(含答案)
,第 11 题-2 图) (1)在设计应用程序界面时, 应使用第 11 题-2 图所示...2007年浙江省信息技术会... 18页 免费 2011年6月信息技术会考-... 25页 ...
2012年6月信息技术会考-算法与程序设计试题
浙江省 2012 年高中信息技术会考-算法与程序设计题(6 月卷) 2012 年 6 月高中信息技术会考 算法与程序设计题(第一套)四、程序设计题(本题共 3 小题,第 1...
2011年浙江省信息技术会考 算法与程序设计4
2011年浙江省信息技术会考 算法与程序设计4_其它考试_资格考试/认证_教育专区。...桐乡市第一中学 杜宗飞 2011 年浙江省信息技术会考试题 第4套选题题(算法) 8...
2011年浙江省信息技术会考 算法与程序设计10
2011年浙江省信息技术会考 算法与程序设计10_IT认证_资格考试/认证_教育专区。2011...桐乡市第一中学 杜宗飞 2011 年浙江省信息技术会考试题 第 10 套选题题(算法...
2011年浙江省信息技术会考 算法与程序设计1
2011年浙江省信息技术会考 算法与程序设计1_电脑基础知识_IT/计算机_专业资料。...桐乡市第一中学 杜宗飞 2011 年浙江省信息技术会考试题 第1套选题题(算法) 8...
2011年浙江省信息技术会考 算法与程序设计8
2011年浙江省信息技术会考 算法与程序设计8_教学计划_教学研究_教育专区。2011年...桐乡市第一中学 杜宗飞 2011 年浙江省信息技术会考试题 第8套选题题(算法) 8...
更多相关标签:
浙江省会考成绩查询 | 浙江省会考查询 | 浙江省会考时间 | 浙江省高中会考 | 浙江省会考 | 2016浙江省高中会考 | 浙江省物理会考试卷 | php校招笔试会考算法 |