题目内容

用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是().

A. 6
B. 7
C. 8
D. 9

查看答案

搜索结果不匹配？点我反馈

更多问题

有以下程序: Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2); arr(3, 4) End Sub 程序运行后,单击窗体,输出结果是( )

A. 8 13
B. 0 13
C. 7 12
D. 0 0

在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5) As Integer For i=1 To 5 For j=1 to 5 a (i,j) = (i+j)*5\10 Next j Next i S=0 For i=1 To 5 S=s+a(i,i) Next i Print s End Sub 程序运行后,单击命令按钮,输出结果是( )

A. 15
B. 13
C. 11
D. 9

在窗体上画四个文本框,并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大), 然后编写如下事件过程: Private Sub Command1_Click() For i=0 to 3 Text1(i) = Text1(i).Index Next i End Sub 程序运行后,单击命令按钮,四个文本框中显示的内容分别为( ).

A. 0123
B. 1234
C. 0132
D. 出错信息

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6 x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 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. 10
B. 16
C. 12
D. 20