'很简单的
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