2014年11月13日 星期四

VB 99乘法表

Private Sub CommandButton1_Click()
For a = 1 To 9 Step 1
 For b = 1 To 9 Step 1
 Cells(a, b) = a * b
 Next
Next

End Sub

張貼者： 於

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)