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