超星 - 第五六章课后练习 - 查题吧

单选题

有如下事件过程：Private Sub Command1_Click()b=10Do While b<>-1a = InputBox("请输入a的值")a= Val(A)b =InputBox("请输入b的值")b= Val(b)a= a * bLoopPrint aEnd Sub程序运行后，依次输入数值30，20，10，-1输出结果为（）

A. -20
B. 200
C. 600
D. -10

单选题

运行下列程序,单击窗体后输出的结果是( )。 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

单选题

有声明Dim a(-3 To 1,3) As Integer,则下列叙述中正确的是( )。

A. 数组a是一维数组
B. 数组a共有20个元素
C. a(0,0)不是该数组的元素
D. a(1,1)是该数组的第十个元素

单选题

运行下列程序,单击窗体后输出结果是( )。 Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 1 To 3 Print a(5 - i); Next i End Sub

A. 3 2 1
B. 4 3 2
C. 5 4 3
D. 6 5 4

单选题

运行下列程序,单击窗体后输出的结果是( )。 Option Base 0Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub

A. 13
B. 14
C. 不确定
D. 程序出错

单选题

对窗体上的命令按钮编写如下事件过程: Option Base 0Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 2 To 4 For j = 3 To 5 array1(i, j) = i * j Next j Next i Print array1(2, 4) + array1(3, 4) End Sub 运行时,单击命令按钮后输出的结果是(

A. 9
B. 13
C. 20
D. 程序出错

1