vb复习计算题.docVIP

1、下列程序段的执行结果为__4 6______。 Dim a(10) As Integer, b() As Integer Dim i As Integer ReDim b(5) For i = 1 To 10 a(i) = i If i Mod 2 = 0 Then b(i/2) = a(i) End If Next i Print a(4); b(3) 2、执行下列程序段，输出结果为 __7 0 ________。 Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = 2 * i - 1 Next i Print a(4); Erase a Print a(4) 执行下列程序段，输出结果为 ___出错 Dim a() As Integer Dim i As Integer ReDim a(10) For i = 1 To 10 a(i) = 2 * i - 1 Next i Print a(4); Erase a Print a(4) 3、执行下面的程序，输出结果是_____18 30______。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1: