突然想起第一次寫程式所寫的程式,九九乘法表

不過這版本已經修改過了

程式寫多總會進步的嘛~"~

 

Private Sub Form_Activate()
    Me.Cls '清畫面
    Dim i As Integer
    Dim j As Integer
   
    Print "九九乘法表"
    For i = 1 To 9
        For j = 1 To 9
            Print Tab((j - 1) * 7 + 1); '計算空格
            Print CStr(j); "x"; CStr(i); "="; CStr(j * i); '列印結果
        Next
        Print '新的一行
    Next
End Sub

 

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()