[VB6 ] 購票系統
我是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
推
04/19 18:11, , 1F
04/19 18:11, 1F
推
04/19 23:06, , 2F
04/19 23:06, 2F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
