Question

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

Answer 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