close
突然想起第一次寫程式所寫的程式,九九乘法表
不過這版本已經修改過了
程式寫多總會進步的嘛~"~
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
全站熱搜
留言列表