文档介绍：2009年6月高中信息技术会考
算法与程序设计题(第一套)
四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分)
1. 有如下Visual Basic程序段:
m = "VB"
n = "is"
t = "easy"
t = m + n + t
该程序段运行后,变量t的值为____________。
2. 有如下Visual Basic程序段:
a = 23
b = 34
If a > b Then
= "a>b"
Else
= "a<=b"
End If
该程序段运行后,在标签Label1上显示的是____________。
Basic程序的功能是:计算表达式1×3+2×3+3×3+…100×3的值,并在文本框Text1中输出计算结果。
Private mand1_Click()
Dim i As Integer, s As Integer
s = 0
i = 1
Do While i <= 100
s = i * 3
i = i + 1
Loop
= Str(s)
End Sub
问:
(1)刚退出循环时,变量i的值是____________。
(2)为了实现上述表达式的计算,程序中划线处的表达式应更正为____________。
:出租车启动后行程不超过3千米(包含3千米)计费5元;如果行程超过3千米且不超过10千米(包含10千米),(3千米及以内部分计费仍为5元);若行程超过10千米,则在前面计费基础上,。
假定某出租车行程为x千米,计费标准如下:
当x≤3千米时,计费为5元;
当3<x≤10千米时,计费为5+(x-3)×
当x>10千米时,计费为5+(10-3)×+(x-10)×
程序界面如图VB-1所示,在文本框Text1中输入行驶里程数(单位:千米),单击“开始计算”mand1)后,在标签Label3输出计费结果。
解决此问题的算法流程图如图VB-2所示,相应的Visual Basic程序如下,在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。
Private mand1_Click()
Dim x As Single, s As Single
x = Val()
If ① Then
s = 5
ElseIf x <= 10 Then
s = 5 + (x - 3) *
Else
s = 5 + (10 - 3) * + (x - 10) *
End If
②= Str(s)
End Sub
程序中①划线处应填入___________________
程序中②划线处应填入___________________
图VB-1
开始
输入行程数x
x不超过3 ?
X不超过10 ?
输出s的值
s←5 + (10 - 3) × + (x - 10)×
s←5
s←5+ (x - 3) ×
Y
N
N
图VB-2
Y
结束
2009年6月高中信息技术会考
算法与程序设计题(第二套)
四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分)
1. 有如下Visual Basic程序段:
a = 12
b = 32
c = a
c = c + b
该程序段运行后,变量c的值为____________。
2. 有如下Visual Basic程序段:
x = 12
If x <= 10 Then
s = 8
Else
s = x
End If
该程序段运行后,变量s的值为____________。
Basic程序的功能是:计算表达式1+3+9+27+81+…2187的值,并在文本框Text1中输出计算结果。
Private mand1_Click()
Dim i As Integer, t As Long
t = 0
i = 1
Do While i <= 2187
t = t + i
i = i + 3
Loop
= Str(t)
End Sub
问:
(1)为了实现这一目标,程序划线处的表达式应更正为____________。
(2)运行更正后的程序,循环刚退出时变量i的值为__