Question

求vb语言的checkbox代码

我想做5个checkbox,
checkbox1,checkbox2,checkbox3,checkbox4,checkbox5
我想实现以下功能
checkbox1=10
checkbox2=20
checkbox3=30
checkbox4=40
checkbox5=50

我选了哪个CheckBox最后按计算按钮结果会根据我选的按钮加上相应数字

求这个代码,checkbox的代码
1L的,我的意思就是说按计算按钮,例如我选了checkbox1和checkbox3,那么我按按钮答案结果要10+30=40,如果我全选了,答案要10+20+30+40+50=150,我想要这样的

Answer 1

呵呵 复选框的功能可不是用在这个上面的
如果你想如此。没办法给你咯
做一个CheckBox控件数组，即建一个复制四个
Private Sub Form_Load()
Command1.caption="计算"
checkbox1(0).Caption="10"
checkbox1(1).Caption="20"
checkbox1(2).Caption="30"
checkbox1(3).Caption="40"
checkbox1(4).Caption="50"
Command1.Caption="计算"
End Sub
Private Sub Command1_Click()
Dim sum As Integer
For i = 0 To 4
If Check1(i).Value Then
sum = sum + Val(Check1(i).Caption)
End If
Next i
Text1.Text = sum
End Sub
“1L的,我的意思就是说按计算按钮”
计算按钮？那个Command1就是计算按钮啊，而且你把所有的全选了就会全加上。楼主你还要什么？你拿回去自己试试