Question

急急急，vb编程题

要求：有一个界面，窗体上有一个text，两个check，一个按钮。两个check一个写着篮球一个写着足球，如果只选“篮球”，单击“确定”按钮，在文本框中显示“观看篮球比赛”，如果只选“足球”，单击“确定”按钮，在文本框中显示“观看足球比赛”。如果同时选择“篮球”和“足球”，单击“确定”按钮，在文本框中显示“观看篮球和足球比赛”，如果两个都不选，则单击“确定”按钮后，文本框显示休息。

Answer 1

Private Sub Command1_Click()
if check1.value=1 and check2.value=0 then text1.text="观看篮球比赛"
if check1.value=0 and check2.value=1 then text1.text="观看足球比赛"
if check1.value=1 and check2.value=1 then text1.text="观看篮球和足球比赛"
if check1.value=0 and check2.value=0 then text1.text="休息"
end sub

Answer 2

private sub command1_click()
dim x as string
x=""
if check1.value=vbchecked then x="篮球"
if check2.value=vbchecked then x=iif(x="","足球",x & "和足球")
text1.text=iif(x="","休息","观看" & x & "比赛")
end sub

Answer 3

Private Sub Command1_Click()
If Check1.Value = True And Check2.Value = True Then
Text1.Text = "观看篮球和足球比赛"
ElseIf Check1.Value = True Then
Text1.Text = "观看篮球比赛"
ElseIf Check2.Value = True Then
Text1.Text = "在观看足球比赛"
Else
Text1.Text = "休息"
End If
End Sub
己测试