超星 - 数组测试 - 查题吧

填空题

若执行以下程序段时依次输入3，4，5，则执行结果为________。Dim a(4) As Integer, b(4) As IntegerFor k = 0 To 2a(k + 1) =Val(InputBox("请输入数据："))b(3 - k) = a(k+ 1)Next kPrint b(k)

填空题

下列程序段的执行结果为________。Dim M(10), N(10)i= 4For j = 1 To 7M(j) = jN(i) = 2 * i + jNext jPrint N(i); M(i)

填空题

下列程序段的执行结果为________。Dim a(10) As Integer, b() As IntegerDim i As IntegerReDim b(5)For i = 1 To 10a(i) =i*iIf i Mod 2 = 0 Thenb(i/2) = a(i)End IfNext iPrint a(4); b(3)

填空题

运行以下程序，单击命令按钮后在窗体上输出内容_________。Private Sub Command1_Click()Dim a() As IntegerDim i As Integer, j As IntegerReDim a(3, 4)For i = 1 To 3For j = 1 To 4a(i, j) = i* 10 + jNext jNext iReDim a(4, 5)Print a(2, 3)End Sub

填空题

运行以下程序，单击命令按钮后，如果用户从键盘上输入1、2、3、4、5、6，则窗体上输出内容为_________。Private Sub Command1_Click()Dim a() As IntegerDim i As Integer, j As IntegerReDim a(6)For i = 5 To 10a(10- i + 1) = InputBox("input number")Next iReDim Preserve a(10)a(10) = a(3) + a(5)Print a(10)End Sub

填空题

下列程序段的执行结果为 _______。Dim a(3, 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 1 To 5a(i, j) = a(i - 1, j - 1) + (i - 1) * 5 + jNext jNext iPrint a(3, 4)

填空题

有下面程序代码：Private Sub Command1_Click()a=Array(2,3,4,5,6,7,8,9,10,11)n=UBound（A）For k=0 To UBound（A）/2Print a(k)*a(n);n=n-1Next kEnd Sub程序运行后，单击命令按钮Command1，输出结果是___________。

填空题

有下面程序代码：Option Base 1Private Sub Command1_Click()Dim a(10) As Integer,x,bx=InputBox("请输入一个多位整数")For k=1 To Len(x)b=Mid(x,k,1)a(Val（B）+1)=a(Val（B）+1)+1Next kFor k=1 To 10Print a(k);Next kEnd Sub程序运行时，单击命令按钮Command1，输入2345670456，则输出是___________。

填空题

命令按钮Command1的单击事件过程如下：Private Sub Command1_Click()Dim a(10,10) As Integerx=0For i=1 To 3For j=1 To 3a(i,j)=i*3 Mod jIf x

查看答案

填空题

设有如下事件过程：Private Sub Command1_Click()Dim aa = Array(3, 5, 6, 3, 2, 6, 5, 3,5, 4, 3, 9, 4, 5, 6, 3, 5)x = 0n = UBound(a)For i = 0 To nm = 0For j = 0 To nIf a(i) = a(j) Thenm = m + 1End IfNext jIf m > x Then x = m: b = a(i)Next iPrint bEnd Sub运行程序，输出的是________。

3