Question

vb这题怎么做?

Answer 1

Private Sub Command1_Click()
 Dim s As String
 
 s = "我是一个" & _
    IIf(Option1.Value, Option1.Caption, Option2.Caption) & _
    IIf(Option3.Value, Option3.Caption, Option4.Caption) & ",爱好:" & _
    IIf(Check1.Value, Check1.Caption & "、", "") & _
    IIf(Check2.Value, Check2.Caption & "、", "") & _
    IIf(Check3.Value, Check3.Caption & "、", "")
    
 s = Left(s, Len(s) - 1) & "。"
 Text1.Text = s
    
End Sub