24h購物| | PChome| 登入
2007-09-27 14:59:27| 人氣975| 回應4 | 上一篇 | 下一篇

又來摟VB菜單程式寫法

推薦 0 收藏 0 轉貼0 訂閱站台

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




賣的東西是我亂打的

我要檢舉
台長： 奶茶
人氣(975) | 回應(4)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: VB ☺程式設計 |
此分類下一篇:VB成績計算
此分類上一篇:VB程式-msgbox的成績平均+評語

我要回應
Q魚
噢～
夭壽喔你
每次都打這些怪東西＝　＝＂
2007-09-28 10:56:46
版主回應
哈**
因為無聊的說XD

嗯嗯...
2008-04-17 23:03:04
天才小新，是我&#9786
哈哈= =

感覺你VB很強的說

不過學了半年多....

我還是看不懂@@&quot
2008-02-17 19:46:34
天才小新，是我&#9786
啊對= =

不用宣告嗎!?

我們老師都說要@@
2008-02-17 19:47:05
阿德
有個小問題checkbox有三個
想讓他在1個label出現text
如果勾了三個怎麼讓它同時出現
??
2014-01-10 22:10:45
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文