题库 高中信息
题干
某VB程序如下:
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s = 1: i = 1
Do While i <= 10
s = s * i
i = i + 1
Loop
Label1.Caption = Str(s)
End Sub
运行该程序，单击按钮Command1后，出现如上图所示的出错信息。此时正在执行的语句是
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s = 1: i = 1
Do While i <= 10
s = s * i
i = i + 1
Loop
Label1.Caption = Str(s)
End Sub
运行该程序，单击按钮Command1后，出现如上图所示的出错信息。此时正在执行的语句是
| A．Dim s As Integer | B．s = s * i |
| C．i = i + 1 | D．Label1.Caption = Str(s) |
答案(点此获取答案解析）
