求帮忙做vb题。真的没有。
不会是学生吧?给你最基本的代码供你理解。
私有子窗体_Load()
表单1。Caption = "订单"
Frame1。Caption = "菜单"
Check1。Caption = "儿童套餐18元"
检查2。Caption = "标准套餐23元"
检查3。Caption = "商务套餐28元"
Label1 = "份数"
Label2 = "份数"
Label3 = "份数"
Text1 = "": Text2 = "": Text3 = " " "
末端接头
私有子命令1_Click()
Dim a!,b!,c!
如果Check1。那么值= 1
a = 18 * Val(文本1)
其他
a = 0
如果…就会结束
如果检查2。那么值= 1
b = 23 * Val(文本2)
其他
b = 0
如果…就会结束
如果检查3。那么值= 1
c = 28 * Val(文本3)
其他
c = 0
如果…就会结束
如果a = 0,b = 0,c = 0,那么
MsgBox“请选择一个”
其他
MsgBox“one * * *”&;a+b+c & amp;“元”
如果…就会结束
末端接头