当前位置：首页 → 问答吧 → 关于vb控件checkbox的问题，求解答

关于vb控件checkbox的问题，求解答

时间：2011-07-28

来源：互联网

设定了几个checkbox的控件在界面上，想要通过勾选计算出z的值，但计算结果明显不对，是否checkbox不能使用if语句？应该怎么改啊？我vb刚起步，请指教。

Dim z As Single
z = 0
If Check1.Value = 1 Then
z = z + 0.3
Else
If Check2.Value = 1 Then
z = z + 0.3
Else
If Check3.Value = 1 Then
z = z + 0.4
Else
……
……
……

作者: wiggerzhang 发布时间: 2011-07-28

昨晚发帖太晚嘛，都没有人理我，我自己顶一下，请好心人帮忙啊

作者: wiggerzhang 发布时间: 2011-07-29

可以用if判断的

作者: chibai001 发布时间: 2011-07-29

enf if?

作者: patrickkong 发布时间: 2011-07-29

enf if?应该是用了的，他说结果不对，没end if应该会报错

作者: chibai001 发布时间: 2011-07-29

VB code


Private Sub Command1_Click()
Dim z As Single
z = 0
If Check1.Value Then
z = z + 0.3
ElseIf Check2.Value Then
z = z + 0.3
ElseIf Check3.Value Then
z = z + 0.4
End If
Debug.Print z

   
End Sub