2007-09-27 14:59:27奶茶
又來摟VB菜單程式寫法
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
X1 = InputBox(”你要買多少人肉?”)
Y1 = InputBox(”你要買幾杯豆漿?”)
total = x * X1 + y * Y1
Label5 = ”人肉一個” & x & ”元,你共買” & X1 & ”個.” & ”豆漿一杯” & y & ”元,你共買” & Y1 & ”杯.”
MsgBox ”共花” & total & ”元”
End Sub
Private Sub Form_Activate()
MsgBox ”請先設定價錢”
End Sub
賣的東西是我亂打的
x = Val(Text1.Text)
y = Val(Text2.Text)
X1 = InputBox(”你要買多少人肉?”)
Y1 = InputBox(”你要買幾杯豆漿?”)
total = x * X1 + y * Y1
Label5 = ”人肉一個” & x & ”元,你共買” & X1 & ”個.” & ”豆漿一杯” & y & ”元,你共買” & Y1 & ”杯.”
MsgBox ”共花” & total & ”元”
End Sub
Private Sub Form_Activate()
MsgBox ”請先設定價錢”
End Sub
賣的東西是我亂打的
下一篇：VB成績計算
有個小問題checkbox有三個
想讓他在1個label出現text
如果勾了三個怎麼讓它同時出現
??