【简答题】如有以下程序代码,请填空 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...
【单选题】如有以下程序代码: prefix="o" ns="urn:schemas-microsoft-com:office:office" ?xml:namespace> 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 ...
【单选题】如有以下程序代码: 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...