单项选择题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) s = 1234 j = 1000 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print S End Sub运行上面的程序，单击命令按钮，其输出结果是______ 。

A．4321
B．2468
C．34
D．12
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_ Click()Dim arrarr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12)For i = ______For j = ______ If arr(i) ＞= arr(j) Thena = arr(j)arr(j) = arr(i)arr(i) = aEnd IfNext jNext iFor i = 1 To 10Print arr(i);Next iEnd Sub程序运行后，单击命令按钮，将把数组arr中的10个数按升序排序，请填空。
单项选择题
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_ Click () Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub程序运行后，单击命令按钮，输出结果为______ 。
A．35
B．28
C．33
D．37
相关试题