vb 程序编辑

来源：百度知道 编辑：UC知道 时间：2024/05/27 00:40:57
一个复选框练习
(兴趣调查)
复选框内容 书法 旅游 唱歌 健身
选择你感兴趣的(复选) 单击确定按钮
在label1中输出你所爱好的兴趣
比如 输出我的爱好是书法旅游健身

'添加一个Label控件为 Label1
'添加一组Check1数组控件
'下面是实时改变，放在一个Command1_click代码中能实现“确定”后才改变

Private Sub Check1_Click(Index As Integer)
tmp = "我的爱好是 "
For i = 0 To Check1.Count - 1
If Check1(i).Value = 1 Then
tmp = tmp + Check1(i).Caption
End If
Next i
Label1.Caption = tmp
End Sub

Private Sub Form_Load()
Check1(0).Caption = "书法"
Check1(1).Caption = "旅游"
Check1(2).Caption = "唱歌"
Check1(3).Caption = "健身"
End Sub

新建一个vb窗体，建立command1,check1...check4,label1,然后在代码窗口写入以下代码：
Private Sub Command1_Click()
Label1.Caption = "我的爱好是："
Label1.AutoSize = True
If Check1.Value = 1 Then
Label1.Caption = Label1.Caption & Check1.Caption & Space(2)
End If

If Check2.Value = 1 Then
Label1.Caption = Label1.Caption & Check2.Caption & Space(2)
End If

If Check3.Value = 1 Then