浙教版初中信息技术九年级上学期期末试卷(13)
年级: 学科: 类型:期末考试 来源:91题库
一、单选题(共11小题)
①问题分析,建立数学模型 ②确定算法 ③编写程序 ④调试程序




Private Sub Command1_Click()
Dim a As Single, b As Single
a = Val(Text1.Text)
b = 10
If a >= b
b = a * a + 2 * b
End If
Label1.Caption = Str(b)
End Sub
Dim x As Integer
x=0
Do While x<50
x=(x+2)*(x+3)
Loop
…
For i=0 to 100
s=s+i
Next i
…
二、综合题(共3小题)
⑴ ⑵ ⑶ ⑷ ⑸
Private Sub Command1_Click()
Dim age As Integer, tree As Integer
age = 15
tree = 1
Do While tree
age =
Tree = tree + (age - 14)
Text1.Text = Str(age)
End Sub