某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后,出现如上图所示的出错信息。此时正在执行的语句是
A.Dim s As Integer | B.s = s * i |
C.i = i + 1 | D.Label1.Caption = Str(s) |