向各路大神求助!!用VB制作麻辣香锅点餐的程序,如下图,代码怎么写
发布网友
发布时间：2024-09-09 22:42
共2个回答
热心网友
时间：2024-10-30 19:42
Dim Flavor As String, MeatDishes As String, Vegetables As String, DeliveryAddress As String
For i = 0 To 2
If Option1(i).Value = True Then Flavor = Option1(i).Caption
Next i
For i = 0 To 5
If Check1(i).Value = 1 Then
MeatDishes = MeatDishes + Check1(i).Caption + Space(1)
End If
Next i
For i = 0 To 5
If Check2(i).Value = 1 Then
Vegetables = Vegetables + Check2(i).Caption + Space(1)
End If
Next i
MsgBox "你选择的口味是<" + Flavor + ">" + vbCrLf + "选择的菜品如下：" + MeatDishes + Vegetables + vbCrLf + "收货地址是：" + Text1.Text
End Sub
热心网友
时间：2024-10-30 19:42
声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
E-MAIL:11247931@qq.com