Private Sub Command1_Click()
A = Val(InputBox("蘋果一顆10元，數量?"))
B = Val(InputBox("水梨一顆20元，數量?"))
C = Val(InputBox("柳丁一顆30元，數量?"))
Money = A * 10 + B * 20 + C * 30
Print "金額=", Money
End Sub
Private Sub Command2_Click()
For A = 1 To 9
For B = 1 To 9
Print A * B;
Next
Print
Next
End Sub
|