【单选题】有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim i As Integer Dim a(8) As String For i = 1 To 8 a(i) = LCase(Chr(Asc("A") + (i - 1))) Next i For i = 1 To 8 Print UCase(a(i)); Next i End Sub
【单选题】有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim arr Dim start As Integer, finish As Integer Dim sum As Integer arr = Array(12, 4, 8, 16) start = LBound(arr) finish = UBound(arr) sum = 0 For i ...
【单选题】窗体上有一个名称为Command1的命令按钮,并有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3 If i > 1 And j > 1 Then a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1 Else a(i, j...