【简答题】如有以下程序代码,请填空 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim max As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i max=_______ For i = 2 To 10 if _______ then max = a(i) En...
【单选题】如有以下程序代码: Option Base 1 Dim a() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim a(3, 2) For i = 1 To 3 For j = 1 To 2 a(i, j) = i * j Next j Next i ReDim Preserve a(3, 4) For ...
【单选题】如有以下程序代码: Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub 运行程序后,在窗体上输出的内容为
【单选题】如有以下程序代码: prefix="o" ns="urn:schemas-microsoft-com:office:office" ?xml:namespace> Private Sub Command1_Click() Dim arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If j = i Or j = 3 - i + 1 Then arr...
【单选题】如有以下程序代码: Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End S...