For k= 1 To 3 Str(Len(a)+k)&b Print x: End Sub (15)执行下面程序后,输出的结果是 Private Sub Form Click k=0:a=0 Do While k <70 k=k+2 k=k*k+k Print a End Sub (16)执行下面程序后,输出的结果是 Private Sub Form Click Dim M(10)As Long, N(10)As Long For t=1 To 5 N()=2*i+t Next t Print N(: M(i) End sub A.311 B.315 C.1113 D.153 (17)执行下面程序后,输出的结果是 Private Sub Form Click Dim ao Aray(1,2,3,4) For i=3 To 0 Step-1 a()*j Next i Print s End Sub A.1234 B.4321 C.12 D.34 (18)执行下面程序后,输出的结果是 Private Sub Form Click Dim M(10) For k=1 To 10 M(k)=11-k Print M(2+ M(x)) End Sub A.2 B.3 C.4 D.5 (19)执行下面程序后,输出的结果是 Private Sub Form Click Dim a(10)As Integer, p(3)As Integer I To 10 a(1)=1 Next i For 1= 1 To 3For k = 1 To 3 x = Str(Len(a) + k) & b Print x; Next k End Sub （15）执行下面程序后，输出的结果是 。 Private Sub Form_Click() k = 0: a = 0 Do While k < 70 k = k + 2 k = k * k + k a = a + k Loop Print a End Sub （16）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim M(10) As Long, N(10) As Long i = 3 For t = 1 To 5 M(t) = t N(i) = 2 * i + t Next t Print N(i); M(i) End Sub A. 3 11 B. 3 15 C. 11 13 D. 15 3 （17）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim a() a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub A. 1234 B.4321 C. 12 D. 34 （18）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim M(10) For k = 1 To 10 M(k) = 11 - k Next k x = 6 Print M(2 + M(x)) End Sub A. 2 B. 3 C. 4 D. 5 （19）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim a(10) As Integer, p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i)