試題詳解

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