Question

循环语句只执行一次如何写VB语句

1,3,5,7,9五个数值中,我想写一个语句,判断是否其中有一个值为6,如果是给出结果:有6(不要得到具体几个6,直接退回,减少运算时间),如果没有则给出结果:没有6
我的语句:
Private Sub ()
For i = 1 To 5
If Cells( i, 1) = 6 Then
cells(1,2)="有6"

Exit For

else

Cells(1, 2) = "没有6"
End If
Next i
End Sub
因为这条语句Cells(1, 2) = "没有6"实际是重复执行了,我想只要判断全部都不是6后只执行一次,如果将这条语句放在循环外面,则出现结果是:没有6,求给正确答案

Answer 1

解决方法一：简单
Private Sub ()
For i = 1 To 5
If Cells( i, 1) = 6
Then
cells(1,2)="有6"
Exit sub
end if
Next i
Cells(1, 2) = "没有6"

End Sub

如果找到有6的直接跳出程序，如果始终没有跳出程序就说明没有6.

解决方法二：易理解
Private Sub ()
dim j as integer
j=0For i = 1 To 5
If Cells( i, 1) = 6
Thencells(1,2)="有6"
Exit For
else
j=j+1
if j=5 then
Cells(1, 2) = "没有6"
end if
End If
Next i
End Sub

加一个变量j，来进行判断，没执行一次else就对j加1，如果j最后的结果等于5就说明，没有6.

Answer 2

额，你这是什么变量。。可以赋值文本型，上面又写=6 又不是文本，你真是牛。。。上面又识得退出循环，下面又不懂了。。

Private Sub ()
For i = 1 To 5
If Cells(i, 1) = 6 Then
Cells(1, 2) = "有6"
Exit For
Else
Cells(1, 2)  = "没有6"
Exit For
Next i
End Sub

Answer 3

Private Sub ()
dim aaa as boolean
aaa = false

For i = 1 To 5
If Cells( i, 1) = 6 Then
aaa = true
exit for
Next i

if aaa = true then
cells(1,2)= "有6"
else
cells(1,2) = "没有6"
end if

End Sub

Answer 4

Private Sub ()
yes=0
For i = 1 To 5
If Cells( i, 1) = 6 Then
cells(1,2)="有6"
yes=1
Exit For
End If
Next i
if yes=1 then Cells(1, 2) = "没有6"
End Sub

Answer 5

Private Sub ()
For i = 1 To 5
If Cells( i, 1) = 6 Then
cells(1,2)="有6" :goto 99
End If
Next i
Cells(1, 2) = "没有6"
99
End Sub