运行下列程序,单击窗体后输出的结果是( )。 Option Base 0Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub
A. 15
B. 48
C. 120
D. 720
查看答案
设有数组定义语句Dim a(5) As Integer,则下列给数组元素赋值的语句错误的是( )。
A. a(5) = Val(InputBox("Input Data:"))
B. a(0)=3
C. a(1) = "123"
D. a=Array(1,2,3,4,5,6)
窗体上有一个命令按钮Command1,编写如下事件过程: Option Base 0Private Sub Command1_Click() Dim a(10) For j = 6 To 10 a(j) = j - 5 Next j Text1.Text = a(0) + a(a(10) / a(6)) End Sub 运行时,单击按钮,Text1中显示(
A. 0
B. 1
C. 2
D. 3
下列语句错误的是( )。
A. Dim a(-10 To 5) As Integer
B. Dim n as Integern=10Dim a(n) As Integer
Const n As Integer = 5Dim a(5) As Integer
Dim a%(10,-10 To -10)
设有如下程序: Option Base 0Private Sub Form_Click()Dim Arr1(10) As Integer, Arr2(10) As Integer n = 3 For i = 1 To 5 Arr1(i) = i Arr2(n) = 2 * n + i Next i Print Arr2(n); Arr1(n) End Sub 程序运行后,单击窗体,则在窗体上显示的内容是( )
A. 11 3
B. 3 11
C. 13 3
D. 3 13