用VB6.0设计一个购买苹果产品的小程序，要求见图
1个回答
展开全部
Private Sub Command1_Click()
Label1 = ""
If Option1.Value = True Then Label1 = Label1 & " " & Option1.Caption
If Option2.Value = True Then Label1 = Label1 & " " & Option2.Caption
If Option3.Value = True Then Label1 = Label1 & " " & Option3.Caption
If Option4.Value = True Then Label1 = Label1 & " " & Option4.Caption
If Option5.Value = True Then Label1 = Label1 & " " & Option5.Caption
If Option6.Value = True Then Label1 = Label1 & " " & Option6.Caption
If Option7.Value = True Then Label1 = Label1 & " " & Option7.Caption
If Option8.Value = True Then Label1 = Label1 & " " & Option8.Caption
If Check1.Value = 1 Then Label1 = Label1 & " " & Check1.Caption
If Check2.Value = 1 Then Label1 = Label1 & " " & Check2.Caption
If Check3.Value = 1 Then Label1 = Label1 & " " & Check3.Caption
End Sub
Private Sub Command2_Click()
Label1 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
以上是根据你的要求 最简单的程序，请自己根据需要完善代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
