華閱文章網vb中的if not語句怎么用啊
If Not不是一個語句？
If 是一個語句，而Not是一個布爾運算符號。
if語句的一種格式如下：
例1:
x = 100
If x >5 Then '這里你要理解因為x=100，所以對于 x >5的判斷結果為True
Print "Ok"
End If
這個代碼結果，輸出"Ok"
以上代碼，用大白話來說就是：“如果x大于5，就輸出OK”
例2:
x = 100
If Not x 5的判斷結果為False，而Not False又為True
Print "Ok"
End If
這個代碼結果，輸出還是"Ok"
以上代碼，用大白話來說就是：“如果不是x小于5，就輸出OK”
比較兩句大白話“x大于5”與“不是x小于5”其實是一個意思。
最后要理解If語句的執行原理：
If Then
語句組
End If
當 的值為True，執行“語句組”，否則就不執行“語句組”。
VB循環語句
循環語句包括For-Next、While-Wend、Do-Loop語句。
暫且先給你介紹一下這些語句的簡單用法：
For-Next語句：
For 變量 = 初值 To 終值 [Step 步長]
循環體
Next
當循環變量的值在初值到終值范圍內時，執行一次循環體中的語句塊，并使初值增加一個步長。當循環變量的值不在初值到終值范圍內時，就退出循環，執行Next后面的語句。For循環語句執行的流程圖。其中，
Step 步長 可省略，省略時，步長=1.
例如：
Private Sub Form_Activate()
For i = 1 To 5 Step 1
Print i
Next
End Sub
在這個例子中，運行程序后，窗體上會寫出如下文字：
1
2
3
4
5
解析：
變量i由初值1到終值5共循環5次，每次循環時，輸出i，并且將i的值加上步長的值1.所以，但第二次循環式，i的值就變為2.循環5此后，i的值變為5.再循環時i就變為6，便超過了終值5，因此循環結束，VB開始運行Next語句之后的代碼。
Do-Loop語句：
Do
循環體
。[Exit Do]
Loop
循環體會在Do 與 Loop 之間不停循環。Exit Do 語句可有可無，是為了設定當滿足一定條件后，運行Exit Do 語句，即退出循環。
如：
Private Sub Form_Activate()
Dim i As Integer
i = 1
Do
Print i
i = i + 1 '每次循環時都使i的值增加1
If i > 5 Then Exit Do '當i的值大于5（即循環5此后）時，退出循環
Loop
End Sub
其運行效果與上面的例子相同。
以上說明絕對不是復制的，給點辛苦分也行，謝謝~~
VB循環語句
For = To [Step ]
……
……
Next
在默認情況下，Step被設為“1”，可以省略，Step也可以設為負值，例如：
Dim a=0
For I=1 To 10
a=a+I
Next I
這是一個最簡單的累加器的例子，把1到10累加在一起，然后賦值給“a”這樣的效果和上面是一樣的，只不過是倒著加罷了，請看：
Dim a=0
For I=10 To 1 Step –1
a=a+I
Next I
While語句也是一個很常用的循環語句，它的形式很多。
Do While …… Loop語句
While …… Wend 語句
Do …… Loop While
While后面都跟邏輯條件判斷，“Do While …… Loop語句”和“While …… Wend 語句”作用相似，都是先判斷While后面的條件是否為“真”，如果為“真”則執行里面的語句，如果為“假”，則退出循環，循環直至條件為“假”終止。“Do …… Loop While ”與前兩者的區別在于，它不管條件的真假，都會先執行“Do”后面的語句，也就是說，它至少執行語句一次。
與While用法相似的還有Until語句，它是直至條件為真則終止循環，句式把While上述三個語句的While換成Until即可，但是因為容易記混，所以我建議只用While即可。Until 可以相當于While Not 。
For循環和Whlie循環應當根據適當的環境使用，它們有時也可替換。
-------------------------------------------------------------
最好找點資料看看，像VB神童教程，新手還是很容易看懂的。希望對你有幫助。
vb6.0語句： if not(* and *) then do循環語句提示下標越界
把條件修改一下：
例如 not * or not *
if not(* or *) then
do white not *(0)=*
*xt
loop
end if
*ns(4).controls("label15").caption=*(2)
