【单选题】Public Sub Proc ( a% ()) Static i% Do a ( i ) = a ( i ) + a ( i + 1 ) i = i + 1 Loop While i < 2 End Sub Private Sub Command1_Click () Dim m%, i%, x% ( 10 ) For i=0 To 4: x ( i )=i + 1 : Next i F...
【单选题】阅读程序: Option Base 1 Sub P(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Form_Click() Dim a(4) As Integer For i = 1 To 4 a(i) = i + 4 Next i P a For i = 1 To 4 Print a(i) Next ...
【简答题】以下程序的运行结果是 。 Sub s1(b() As Integer) For
i = 1 To 4 b(i)
= 2 * i Next
i End Sub Private Sub Command1_Click() Dim
a(1 To 4) As Integer For
i = 1 To 4 a(i)
= i + 5 Next
i s 1 a () For
i = 1 To 4 Print
a(...
【单选题】请阅读程序: Option Base I Private Sub Form_ Click() Dim Arr(4, 4)As Integer For i=1 To 4 For j=I To 4 Arr(i, j)=(i - 1)*2+j Next j Next i For i=3 To4 For j=3 To 4 Print Arr(j, i); Next j Print Next i End S...
【单选题】以下程序的运行结果是( ) Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print ...