34.若要下列VB程式執行結果如表列’則空格⑴部份應填入 (A)i+j =6 (B) i+j >6 (C) i>j (D) i+j<4。
Private Sub Commandl一Click()
Dim a(5, 5)
For i = 1 To 5 Forj = lTo5 If ⑴ Then a(i,j) = i+j
Else a(lj) = 0 End If Next j Next i
For i = 1 To 5 Forj = 1To5 Print a(i,j); ••
Next j Print Next i End Sub 執行結果:
00000 00007 00078 00789 0 7 8 9 10
程式排版 Dim a(5, 5) For i = 1 To 5 Forj = lTo5 If ⑴ Then a(i,j) = i+j Else a(l,j) = 0 End If Next j Next i For i = 1 To 5 Forj = 1To5 Print a(i,j); Next j Print Next i End Sub 執行結果: 00000 00007 00078 00789 0 7 8 9 10