【单选题】请阅读程序: Sub subP(b( )As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Commandl Click( ) Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a( ) For i=1 To 4 Print a(i) Next i End Sub 运...
【单选题】( 26 )有以下程序: Sub subP(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 a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 subP a() For i = 1 To 4 Print...
【简答题】有一过程如下: Sub Sub1(m As Integer,total As Long) Dim i As Integer total=1 For i=1 To m total=total*i Next End Sub 调用它的事件过程如下: Private Sub Command1_Click() Dim tot As Long,a As Integer a=Val(InputBox('请输入数...