作者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
1F：推 rike:MsgBox("票价为" & Z & "谢谢你的购买") 04/19 18:11
2F：推 littledofu:谢谢 明天期中考完 再来试试 04/19 23:06