vb6中关于if语句,其中的and条件能否由变量控制

发布网友 发布时间：2024-10-23 21:21

我来回答

共4个回答

热心网友 时间：2024-11-03 12:31

可以用select case 来实现
i= text1.text
select case i
case 2
if check1(2).value=1 and check1(1).value=1 then

case 3
if check1(3).value=1 and check1(2).value=1 and check1(1).value=1 then

End Select

热心网友 时间：2024-11-03 12:32

你好，if语句中是可以用And连接的。但是我没有明白你的意思，你是在用复选框做什么呢？其实你可以用一个frame把那些单选复选都放在一起。

热心网友 时间：2024-11-03 12:32

Select Case Val(Text1)
Case 1
'你的代码
Case 2
'你的代码
Case 10
'你的代码
End Select

参考资料：Hi hyyly520

热心网友 时间：2024-11-03 12:33

Private Sub Command1_Click()
Dim f As Boolean
If Text1 = 2 Then
For i = 1 To 2
f = Me("check" & i).Value = 1
If Not f Then Exit For
Next

ElseIf Text1 = 3 Then
For i = 1 To 3
f = Me("check" & i).Value = 1
If Not f Then Exit For
Next

End If

If f Then MsgBox f

End Sub

VB6专家百度Hi群1358368