高手做个VB的程序 在线等

来源：百度知道 编辑：UC知道 时间：2024/06/12 16:52:46
设计一个程序，一个标签 六个复选框 分别是100米 200米 400米 跳高 跳远 铅球 选中的时候 标签会显示选中的项目 是复选 注意哦 用控件数组的方式做
有

一个标签Label1
复选框数据Chk(控件数组1-6),Caption分别为:100米 200米 400米 跳高 跳远 铅球

加入下列代码:

Private Sub Chk_Click(Index As Integer)
Label1.Caption = "项目：" & Chk(Index).Caption
End Sub

一个标签Label1
复选框数据Check1(控件数组1-6),Caption分别为:100米 200米 400米 跳高 跳远 铅球

Private Sub Check1_Click(Index As Integer)
Dim str As String
Dim i As Integer
str = ""
For i = 0 To 5
str = str & IIf(Check1(i).Value = 1, Check1(i).Caption, "")
Next
Label1.Caption = "项目：" & str
End Sub

放一个groupbox,再放入复选筐就可以了嘛

看“我的消息”