(超級急急急.....) 關於Visual Basic !!!!!

2007-03-15 2:36 am
Private Sub Command2_Click()

Dim price As Single

Dim money As Single

Dim exchange As Single

exchange = 0
price = 0
money = 0

If money >= price Then
exchange = exchange + money - price
End If
.
.
.
.

If money >= price Then
MsgBox "You need to pay $" & price & " thank you! And exchange $" & exchange
End If

End Sub


中間中有d講checkbox的~~ (就係"..."果part)
究竟錯乜???
我原意係想佢show要找ge $$ 出黎~!

如果中有野唔明,my msn:
[email protected]
更新1:

the first person: Please add me in MSN

回答 (3)

2007-03-15 12:57 pm
✔ 最佳答案
I haven't test the following Sub, but hope can help you.
Private Sub Command2_Click()

Dim price As Single, money As Single ,exchange As Single

price = textbox1.value 'you need add new two textbox
money =textbox2.value
If money > price Then
exchange=money - price
MsgBox "You need to pay $" & price & " thank you! And exchange $" & exchange
else
MsgBox "You need to pay $" & price & " thank you! "
End If
End Sub
2008-09-14 9:27 am
you can click the website it help you.
www.money128.biz and www.fast-beauty.6289.us
2007-03-15 2:48 am
5明你up乜!!!!!
參考: me


收錄日期: 2021-04-29 18:03:32
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070314000051KK02917

檢視 Wayback Machine 備份