2008年6月高中信息技术会考
算法与程序设计题（第一套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1．有如下Visual Basic程序段：
a = 3 : b = 2 : c = 3
b = a+b*c
  该程序段运行后，变量b的值为        。
2．有如下Visual Basic程序段：
a=39
b=93
If a+b>100 Then py="太大"
If a+b=100 Then py="相等"
If a+b<100 Then py="太小"
Label1.Caption=py
该程序段运行时，在Label1标签上显示的是  　。
3．以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为_____________。
Private Sub Command1_Click()
Dim i As Integer,s As Long
s = 0
i = 1
Do While i <= 1024
  s = s + 2*i
  i = i * 2
Loop
Text1.Text=Str(s)
End Sub
4．有一道趣味题，张老师问李老师:“你今年几岁？你爱人今年几岁？”李老师笑笑说：“我年龄的平方与我爱人年龄之和恰好等于1053。而我爱人年龄的平方与我的年龄之和却等于873。你计算一下吧！”
设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：
x2 + y  = 1053     
x + y2  = 873     
解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()
Dim x As Integer, y As Long
x = 1   
y = 1053 - x * x
Do While       ①       
          ②   
  y = 1053 - x * x
Loop
Text1.Text = Str(x)
Text2.Text = Str(y)
End Sub
程序中划线处①应填入             
程序中划线处②应填入             
2008年6月高中信息技术会考
算法与程序设计题（第二套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1．有如下Visual Basic程序段：
    a = "Happy"
    b = "ness"
    c = a + b
  该程序段运行后，变量c的值是___________。
2．有如下Visual Basic程序段：
Dim x As Single, c As String
x=Val(Text1.Text)
If x>12 Then
c= "PM"
Else
  c= "AM"
End If
Label1.Caption=c
该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是  　。
3.下列Visual Basic程序的功能是：计算表达式12+42+72+…+972do while语句流程图的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为__________________。
Private Sub Command1_Click()
Dim sum As Long
Dim i As Integer
sum = 0
      For i =1 To 97 Step     
    sum = sum + i*i
Next i
Text1.Text = Str(sum)
End Sub
4．模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。
程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，
在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。
当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。
解决上述问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()
Dim a As Single, b As Single, ch As String
a = Val(Text1.Text)
b = Val(Text2.Text)
        ①     
If ch = "+" Then
  Text4.Text = Str(a+b)
ElseIf ch = "*" Then
  Text4.Text = Str(a*b)
ElseIf ch = "-" Then
  Text4.Text = Str(a–b)
ElseIf ch = "/" Then
  If     ②    Then Text4.Text = Str(a/b) Else Text4.Text ="除数不能是零"
Else
  Text4.Text = "运算符不正确"
End If
End Sub
程序中划线处①应填入                 
程序中划线处②应填入                 
2008年6月高中信息技术会考
算法与程序设计题（第三套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1. 有如下Visual Basic程序段：
a=3 : b=4
c=a+b
b=c*b
    该程序段运行后，变量b的值为_________。
2．有如下Visual Basic程序段：

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