单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Prirate Sub Command1_Click()
s = 0
For i=1 To 13
x = i * i-1
If x Mod 3 = 0 Then s = s + 1
Next i
Print s
End Sub
程序运行后，单击命令按钮，则窗体中显示的内容是

A．1
B．5
C．27
D．45

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．0 3 7 5
B．0 1 2 3
C．3 2 4 5
D．0 5 8 3

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1 Click() d = 0 ：c = 10 x=Array(10，12，21，32，24) For i = 1 To 5 If x(i) ＞ c Then d = d + x(i) c = x(i) Else d = d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A．89
B．99
C．23
D．77

相关试题