题目内容

阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2) + arr(3, 4)End Sub程序运行后，单击窗体，显示的结果为（）。

A. 8
B. 13
C. 25
D. 21

查看答案

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

更多问题

如果列表框List1中没有选定的项目，则执行语句“List1.RemoveItem List1. ListIndex”的结果是（）。

A. 移去第一项
B. 移去最后加入列表中的一项
C. 移去最后一项
D. 其他都不对

使用（）语句将“北京奥运”添加到列表框List1的首项。

A. List1.AddItem "北京奥运",0
B. List1.AddItem "北京奥运"
C. List1.Text= "北京奥运"
D. List1.List(0)= "北京奥运"

使用（）方法可以删除指定的项目。

A. Remove
B. Cls
Clear
D. RemoveItem

以下程序的运行结果为（）。Option Base 1Private Sub command1_click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub

A. 33
B. 35
C. 37
D. 28