求帮忙做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;“元”

如果…就会结束

末端接头