編程輸出對角線元素為0，上三角元素為1，下三角元素為1的5×5方陣如下圖（代碼寫在form1_cl

Private Sub Form_Click()

Form1.FontSize = 16

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 5

? If i = j Then a(i, j) = 0 Else a(i, j) = 1

Next j

Next i

For i = 1 To 5

For j = 1 To 5

? Print a(i, j);

Next j

Print

Next i ?

End Sub

上一篇:什麽型號的蘋果筆記本能帶的動ug

下一篇:豐潤國都教育怎麽樣