下面程序运行时，单击窗体后，窗体上显示的结果是（)。Private Sub Form_ClickDim I As IntegerDim s

下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub

A．3

B．9

C．5

D．6

提问人：网友jnruankao 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“下面程序运行时，单击窗体后，窗体上显示的结果是（)。Priv…”相关的问题

第1题

写出下面程序的运行结果 private sub form_click() m=0 do m=m+1 if m>10 then exit do loop until m<10 print m end>

点击查看答案

第2题

下面程序段执行后，t的值为_________。 Dim i, t As Integer t = 0 For i = 1 To 60 Step 3 If i Mod 5 = 0 Then t = t + 1 End If Next

A、12

B、20

C、15

D、4

点击查看答案

第3题

设有如下程序 Option Base 1 Dim a As Variant Private Sub Cmd1_Click() Dim n As Integer a = Array(12, 9, 13, 5, 8, 16, 7, 3, 18, 3) Call geta(n) Print n End Sub Private Sub geta(j As Integer) Dim n As Integer, c() As Integer n = UBound(a) j = 0 For i = 1 To n If a(i) / 2 = a(i) \ 2 Then j = j + 1 ReDim Preserve c(j) c(j) = a(i) End If Next End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是。

A、3

B、4

C、5

D、6

点击查看答案

第4题

下列程序段的运行结果是( )。 Dim a a = Array(1, 3, 5, 7, 9, 11) For k = 0 To 2 Print a(5 - k) - a(k); Next k

A、10 7 4

B、10 6 2

C、9 5 3

D、10 6 3

点击查看答案