浙教版初中信息技术九年级上学期期末试卷(12)
年级: 学科: 类型:期末考试 来源:91题库
一、单选题(共10小题)








For i = 1 To 10 Step 4
s = s + i
Next i
该程序段运行后,语句s = s + i执行的次数是( )。
二、综合题(共3小题)


Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,输出结果为。
下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,输入的数据超出范围。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值!")
Case x < 50
y=0.8 * x
Case 50 To 100
Print "输入的数据超出范围!"
End Select
Print x, y
End Sub
三、VB程序设计题(共1小题)