2009年6月高中信息技术会考
算法与程序设计题（第一套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1. 有如下Visual Basic程序段：
m = "VB"
n = "is"
t = "easy"
do while语句流程图t = m + n + t
  该程序段运行后，变量t的值为____________。
2. 有如下Visual Basic程序段：
a = 23
b = 34
If a > b Then
Label1.Caption = "a>b"
Else
Label1.Caption = "a<=b"
End If
  该程序段运行后，在标签Label1上显示的是____________。
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的值是____________。
（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为____________。
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输出计费结果。
解决此问题的算法流程图如图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
程序中①划线处应填入___________________
程序中②划线处应填入___________________
              图VB-1
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的值为____________。
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
  t = t + i
  i = i + 3
Loop
Text1.Text = Str(t)
End Sub
问：
（1）为了实现这一目标，程序划线处的表达式应更正为____________。
（2）运行更正后的程序，循环刚退出时变量i的值为___________。
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
程序中①划线处应填入___________________
程序中②划线处应填入___________________
                  图VB－1
2009年6月高中信息技术会考
算法与程序设计题（第三套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1. 有如下Visual Basic程序段：
m = 8
n = 5
t = m + n
t = t - n

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。