UC知道帮我编个vb程序
来源：百度知道 编辑：UC知道 时间：2024/05/17 08:49:26
窗体的标题为“点餐”。
2)窗体中以下控件：一个框架控件作为窗口，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。
3)要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。
4)完成以下功能：选择所需套餐种类及人数，单击确定按钮后计算所需的钱，并用消息框显示。
2)窗体中以下控件：一个框架控件作为窗口，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。
3)要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。
4)完成以下功能：选择所需套餐种类及人数，单击确定按钮后计算所需的钱，并用消息框显示。
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Enabled = True
Else
Text1.Enabled = False
Text1.Text = ""
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text2.Enabled = True
Else
Text2.Enabled = False
Text2.Text = ""
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text3.Enabled = True
Else
Text3.Enabled = False
Text3.Text = ""
End If
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, sum As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
sum = a * 套餐一的价格 + b * 套餐二的价格 + c * 套餐三的价格
MsgBox "您点的套餐是：" & vbCrLf & "套餐一" & Val(Text1) & "个" & vbCrLf & "套餐二" & Val(Text2) & "个" & vbCrLf & "套餐三" & Val(Text3