1樓：荀曾顏念雁
檢測事件是在文字框中的change事件中判斷，也就是說只要文字框有改變就檢測！
如果把其中的
and改寫成
or就可以判斷其中一個文字是否為空！
private
subtext1_change()
'判斷文字框最快的速度還是判斷它的長度是否為0iflen(text1.text)=0
andlen(text2.text)=0
then
image5.visible
=false
else
image5.visible
=true
endif
endsub
private
subtext2_change()
iflen(text1.text)=0
andlen(text2.text)=0
then
image5.visible
=false
else
image5.visible
=true
endif
endsub
完美財經網
2樓：檢霽杜鵾
if《條件》then
《語句》
《語句》
...end
if與c語言不同,(vb)的條件語句更符合英語的語法,如果then後面所跟的語句只有一條,可以寫成:
if《條件》
then
不用end
if有時還用到:
if《條件》then
《語句》
else
《語句》
endif
還可以在else裡再巢狀if語句,如
if《條件》
then
《語句》
else
if《語句》
else
《語句》
endif
3樓：樂觀的召喚師
每一層要用end if來結束本層判斷。
4樓：取名字嚴重難
private sub text1_keypress(keyascii as integer)
select case len(text1.text)case 0
if keyascii < 49 or keyascii > 57 then keyascii = 0
case 1
if keyascii < 48 or keyascii > 57 then
if keyascii <> 8 thenkeyascii = 0
end if
end if
case else
if keyascii = 8 then
else
keyascii = 0
end if
end select
end sub
我這個測試了效果很好 在顯示前做判斷
5樓：匿名使用者
private sub text1_lostfocus()
if text1.text = "" or isnumeric(text1.text) = false or val(text1.
text) >= 100 then text1.setfocus
end sub
關於vb中if 語句的巢狀問題
6樓：【都市精靈
標準的if格式你應該知道吧 我就不說了 只說一下巢狀
在一次if判斷裡，可以巢狀無數個子if判斷（我沒遇到過巢狀到頂的情況），無非是在then後或else後進行巢狀，因為互不影響 所以我就合起來說了：
if [真假判斷語句] then
*** '星號表示其餘的**
if [巢狀的真假判斷語句1] then
[巢狀中if成立 執行的**]
else '可以不要 看情況
[巢狀中if不成立 執行的**]
end if
*** 』星號表示其餘的**
else if [巢狀的真假判斷語句2] then '這裡的if可以跟在if後（加個空格），另起一行也行。如果在巢狀前還有別的**需要執行的話，就參照上面所寫的進行巢狀。
end if '如果if另起一行的話，要兩個end if，否則只要一個
注：注意巢狀的時候最好 用空格 把子判斷推後幾格，看著舒服。頂格寫也行，就是看著亂。
【哥們兒 這可全是我一個字一個字地打的啊～您就給個辛苦費吧～呵呵 有不懂的再通過 補充 問我】
7樓：
if 條件為真 then
執行語句
end if(判斷結束)
if a=3 then
if b=2 then
if c=7 then
if d=8 then
以上條件都成立的時候執行下邊一段話
.....執行**並結束這個判斷
（假如d=5,則執行下邊的**）
else
...........執行**
end if （這裡是結束d=8 這個條件的）end if（這裡是結束c=7這個條件的）end if（這裡是結束b=2這個條件的）end if（這裡是結束a=3這個條件）
希望這樣你可以看的懂
關於vb巢狀塊if語句的問題
8樓：司經賦庚妃
ifscore>=60
then
....
else
ifscore>=85
then
....
else
.....
endif
st>60
的當然不會小於49，巢狀以後，輸入49
當然就不顯示了，因為49<60
在最外層的if語句就被排除了。不會執行if內部的語句了。
9樓：匿名使用者
因為你把
if score < 60 then
st = "不合格"
end if
這段寫在了最後一個end if裡面。只要把那段程式和輸出語句寫拉出到你現在的最後一個
end if之後就可以了。
寫巢狀格式的時候一定要注意。
10樓：扣
因為少了一個end if
vb for 迴圈語句 問題
「vb，do until」迴圈語句問題？
11樓：匿名使用者
數值0等同於布林值常量的false,而do until則是當表示式為真時跳出迴圈,這與do while剛好相反,所以:
do until 0
相當於do until false
相當於do while not(false)相當於do while true
所以,如果不在迴圈體中跳出迴圈或跳出所在過程或end或goto的話,這將是一個死迴圈.
自然,迴圈體將至少被執行一次.
很簡單的一個vb if 語句的用法！！！！
12樓：匿名使用者
if n=1 then
msgbox"1"
elseif n=2 then
msgbox "2"
else
msgbox "其它"
end if
或者你的意思是：
if n=1 or n=2 then
msgbox""
end if
是不是這樣，只要n不為空，就出現msgboxif n <> "" then
msgbox""
end if
你要說一下，需要判斷的條件是什麼。n要滿足什麼條件。
13樓：匿名使用者
select case n
case 1，2，3，4，6，7，78，6，4，9，44，5，0，5msgobx ""
end select
不如說一下你到底想實現什麼目的，可能有更好的辦法。
vb中的if語句問題
14樓：
private sub command1_click()
dim a as integer, b as integer, c as boolean
text1.text = a
text2.text = b
text3.text = c
if a mod 3 = 0 and b mod 3 = 0 then
print c = true
else
print c = false
end if
end sub
改這個？
private sub command1_click()
dim a as integer, b as integer, c as boolean
text1.text = a
text2.text = b
text3.text = c
if a mod 3 = 0 and b mod 3 = 0 then
print c = true
'print c = true 如果你的變數"c"是true則輸出true,否則輸出false。
'如果你想輸出「c = true」這個表示式，就用這條語句：print "c = true"
'如果你想設定變數「c」為true則把print取消，直接用 c=true 這條語句就行了。
else
print "c = false"
'print c = false 如果你的變數"c"是false則輸出true,否則輸出false。
'如果你想輸出「c = false」這個表示式，就用這條語句：print "c = false"
'如果你想設定變數「c」為false則把print取消，直接用 c=false 這條語句就行了。
end if
end sub
'順便說一句，你的if語句不能再改了。
15樓：
if (a>5) and (b>5) then
16樓：匿名使用者
if a = c and b = c then
end if
17樓：丹溪藍終覓
因為fori=1
to3forj=1toi
m=m+j
next
j,i相當於
fori=1to
3for
j=1to
im=m+j
next
jnext
i每執行一次next
i變數i的值加1，然後判斷i的值是否大於
fori=1to
3to後面的3，如果是迴圈結束，如果不是迴圈繼續，當i=3時，i的值不大於3，繼續執行迴圈，然後執行next
i語句，i的值加1變為4，此時i大於3，迴圈結束，所以最終輸出的i是4
vb中的case語句，VB中的CASE語句
在vb.net中vb.net case語句就是比較常用的一種，下面是詳細的介紹和 的演示 1 可以用 select.case 語句來替換 if.then.else 語句，所不同的是if 和 elseif 語句可在每個語句中計算不同的表示式，而 select 語句對單個表示式只計算一次，然後將其和不同...
VB中正確的迴圈語句是，vb中的迴圈語句
for x 迴圈變數 1 初始值 to 10 終止值 step 2 步進 next 以上為完整的迴圈結構 1.沒有終止值 所以錯 3.初始值比終止值小 所以步進應該為整數 而它是負數 所以也錯4.初始值大於終止值 預設步進為1 無法迴圈 所以也錯 for語句 for counter start to...
vb中關於exit sub問題，VB 中的exit do 怎麼理解
exit sub 的作用是結抄束當前的過程bai 不再執行後續程式。針對本程du序，exit sub 的作用是檢查到 未選zhi擇該新增的項dao目 或 專案已經存在 的時候,就不再執行 list2.additem list1.list list1.listindex exit sub 在一來般情況...