1樓：網海1書生
private sub command1_click()if not isnumeric(text1.text) thenmsgbox "輸入非數值資料，請重新輸入", , "資料檢驗"
text1.text = ""
text1.setfocus
else
dim t%, a%, b%, c%
t = val(text1.text)
if t > 999 or t < 100 thenmsgbox "請正確輸入三位數", , "資料檢驗"
text1.text = ""
text1.setfocus
else
a = t mod 10
b = (t mod 100) \ 10
c = t \ 100
text2.text = a * 100 + b * 10 + cend if
end if
end sub
2樓：
用exit sub退出sub過程
private sub command1_click()if not isnumeric(text1.text) thenmsgbox "輸入非數值資料，請重新輸入", , "資料檢驗"
text1.text = ""
text1.setfocus
exit sub '退出此過程
end if
dim t%, a%, b%, c%
t = val(text1.text)
if t > 999 or t < 100 thenmsgbox "請正確輸入三位數", , "資料檢驗"
text1.text = ""
text1.setfocus
exit sub '退出此過程
end if
a = t mod 10
b = (t mod 100) \ 10
c = t \ 100
text2.text = a * 100 + b * 10 + cend sub
if語句，如果不滿足判斷的條件，是返回前面的程式，還是跳過這個判斷執行後面的程式？
3樓：背心_心背
執行後面的程式
希望幫到樓主 給個採納吧 有不懂可以追問
vb中如何用if語句判斷某字串是否以***開頭
4樓：
a="00123456"
if mid(a,1,3)="001" then '在a中從第一個字元開始向後取三個字元
print "是以001開頭"
end if
if left(a,3)="001" then a中從左起三個字元
5樓：在世貿天階灌籃的高飛燕草
通用方法
s="001"
if left("00123456",len(s))=s then
6樓：快樂_無敵
if left("00123456",3)="001" then
語句……
end if
7樓：匿名使用者
切起法:
1. if left("00123456",3)="001" then
2. if mid("00123456",1,3)="001" then
8樓：寒秋清風
if left（a,3)="001" then
vb中什麼時候用if語句後面用end if 結束？什麼時候不用？
9樓：匿名使用者
如果執行語句比較簡單
可以和if書寫在同一行
那麼就可以不寫
例如 if 。。。then 。。。
如果有多條執行語句
就必須多行書寫，結尾必須有endif
在vb裡面的if條件語句，如果要在if後面加兩個條件，然後才是結果(then），該怎麼寫啊？
10樓：蘇州老三石
if a=b and c=d then 兩者都成立時thenif a=b or c=d then 兩者有一個成立就then當有很多個條件同時成立再then時，之間用and連線當很多條件有一個成立就then時，之間用or連線
11樓：匿名使用者
滿足兩個條件用 if .... and ...then
滿足其中一個 if .... or ...then
12樓：
用 and 或者 or 連線各個條件就可以，了！
VB中判斷數是否是整數的語句是什麼
dim a as double a inputbox 輸入一個整 數或小數 12.345 if fix a a then msgbox 是整數 else msgbox 不是整數 end if dim a as single a inputbox 輸入一個整數 或小數 55.345 if int a ...
vb中的case語句，VB中的CASE語句
在vb.net中vb.net case語句就是比較常用的一種，下面是詳細的介紹和 的演示 1 可以用 select.case 語句來替換 if.then.else 語句，所不同的是if 和 elseif 語句可在每個語句中計算不同的表示式，而 select 語句對單個表示式只計算一次，然後將其和不同...
VB問題！IF語句的！懂的來，VB中的If語句
檢測事件是在文字框中的change事件中判斷，也就是說只要文字框有改變就檢測！如果把其中的 and改寫成 or就可以判斷其中一個文字是否為空！private subtext1 change 判斷文字框最快的速度還是判斷它的長度是否為0iflen text1.text 0 andlen text2.t...