作者littledofu (豆餅好吃)
看板Visual_Basic
標題[VB6 ] 購票系統
時間Wed Apr 19 17:24:35 2006
我是vb新手,冒昧請問各位
我們作業要用visual basic 2005
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim X, Y, Z, C
Z = Val(TextBox1.Text * 6000)
C = Z * 0.8
X = MsgBox("你是會員嗎?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)
If X = MsgBoxResult.No Then
MsgBox("票價為" & Z, "謝謝你的購買")
Else
Y = InputBox("請輸入會員帳號")
MsgBox("歡迎" & Y, )
End If
寫到這邊 我按debug
我在textbox1 打上張數1
按下button2
接著按否
如果無誤 接著會計算金額
可是我好像寫錯
系統這行是黃底
MsgBox("票價為" & Z, "謝謝你的購買")
請問應該怎麼寫才對
請各位不吝指教
--
K ◣◣▅◢
u ◢ _▂ ◣
n ◢ ▇﹍` ◣
i ◥ ╳◎╳ ◤
o ◥ ▲ˍ▲ ◤ 我們把這個標誌搶回來吧
◢▅▅◣ -
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.134.242.170
推 rike:MsgBox("票價為" & Z & "謝謝你的購買") 04/19 18:11
推 littledofu:謝謝 明天期中考完 再來試試 04/19 23:06