VB编程题目,制作手机APP订餐界面,单击 “提交”按钮后弹出MsgBox.在Command1的Click事件中编写代码。

2025-03-18 22:30:37
推荐回答(1个)
回答1:

'很简单的
Private Sub Command1_Click()
Dim a, b, c, d As String
If Check1.Value = 1 Then
a = "馒头"
End If
If Check2.Value = 1 Then
b = "米饭"
End If
If Check3.Value = 1 Then
c = "西红柿炒蛋"
End If
If Check4.Value = 1 Then
d = "土豆丝"
End If
MsgBox "点的主食有:" & a & b & vbCrLf & "点的热菜有:" & c & d, vbYesNo, "确认页面"
End Sub