没有合适的资源?快使用搜索试试~ 我知道了~
2009年6月信息技术会考-算法与程序设计试题 - 副本.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 178 浏览量
2022-05-06
14:31:00
上传
评论
收藏 265KB DOC 举报
温馨提示
试读
24页
2009年6月信息技术会考-算法与程序设计试题 - 副本.doc
资源推荐
资源详情
资源评论
浙江省 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
第 1 页 共 24 页
浙江省 2009 年高中信息技术会考(6 月卷)
程序界面如图 VB-1 所示,在文本框 Text1 中输入行驶里程数(单位:千米),单击
“开始计算”按钮(Command1)后,在标签 Label3 输出计费结果。
解决此问题的算法流程图如图 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 月卷)
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
第 3 页 共 24 页
开始
输入行程数 x
x 不超过 3 ?
X 不超过 10 ?
输出 s 的值
s←5 + (10 - 3) × 1.5 + (x -
10)×1.8
s←5
s←5+ (x - 3) × 1.5
Y
N
N
图 VB-2
Y
结束
浙江省 2009 年高中信息技术会考(6 月卷)
Do While i <= 2187
t = t + i
i = i + 3
Loop
Text1.Text = Str(t)
End Sub
问:
(1)为了实现这一目标,程序划线处的表达式应更正为___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)_______________
程序中②划线处应填入_____int(x/2)______________
图 VB-1
第 4 页 共 24 页
浙江省 2009 年高中信息技术会考(6 月卷)
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_________。
第 5 页 共 24 页
开始
输入十进制数 x
x≠0 ?
输出 s 的值
将当前 x 被 2 除的余
数保存到变量 r
Y
图 VB-2
结束
s 赋初值(空字符串)
N
s←Str ( r ) +s
将当前 x 被 2 除所得商的
整数部分保存到变量 x
剩余23页未读,继续阅读
资源评论
老帽爬新坡
- 粉丝: 82
- 资源: 2万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功