2009年6月高中信息技术会考

2009年6月高中信息技术会考

算法与程序设计题（第六套）

四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）

1. 有如下Visual Basic程序段：

m = 10

n = m * 2

t = m * n

该程序段运行后，变量t的值为____________。

2. 有如下Visual Basic程序段：

s = 65

If s >= 60 Then

Label1.Caption = "P"

Else

Label1.Caption = "E"

End If

该程序段运行后，在标签Label1上显示的是____________。

3. 以下Visual Basic程序的功能是：计算表达式1－2＋3－4＋5－6＋ ＋99－100的值，并在文本框Text1中输出计算结果。

Private Sub Command1_Click()

Dim i As Integer, s As Integer

s = 0

i = 1: t = 1

Do While i <= 100 s = s + i

t = -t

i = i + 1

Loop

Text1.Text = Str(s)

End Sub

问：

（1）循环刚退出时变量i的值是____________。

（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为____________。

4．COD（化学需氧量）是衡量水质污染程度的重要指标之一，污水处理时根据污水的COD指标来计算COD去除剂的投放量。

程序界面如图VB-1所示，在文本框Text1中输入COD指标，单击“计算投放量”按钮（Command1）后，程序根据COD指标计算出合适的COD去除剂投放量，并在标签Label3中输出计算结果。

图VB-1

在程序①和②划线处填入适当的语句或表达式，将程序补充完整。 Private Sub Command1_Click()

Dim x As Single, s As Single

x = Val(Text1.Text)

If ① Then

s = 10

ElseIf x <= 500 Then

s = ②

Else

s = x / 4 * 1.5

End If

Label3.Caption = Str(s)

End Sub

程序中①划线处应填入___________________

程序中②划线处应填入___________________