【单选题】有如下程序代码: 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 ...