酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88289

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

九九乘法表的數字對齊方法

Private Sub Command1_Click()
i = 1
j = 1
Do Until i > 9
Do Until j > 9
  If 10 > i * j Then
     Print ; j; "x"; i; "="; i * j; Spc(1);
  Else
     Print j; "x"; i; "="; i * j;
  End If
  j = j + 1
Loop
 Print
 i = i + 1
 j = 1
Loop
End Sub

相簿設定
標籤設定
相簿狀態