1樓：匿名使用者
這個就是正確的：
if text1.text = "" thenmsgbox "請輸入內容"
end if
if len(text1.text) > 0 and text1.text <> "正確內容" then
msgbox "請輸入乙個正確內容"
end if
if text1.text = "正確內容" thenmsgbox "通過"
end if
在給你分析一下你的錯誤在哪，
if text1.text = "" thenmsgbox "請輸入內容"
else （在這裡，else的意思是只要text1.text不為空，就執行下面的語句，所以包括你輸入「正確內容」，都會執行下面的語句）
msgbox "請輸入乙個正確內容"
end if
if text1.text = "正確內容" thenmsgbox "通過"
end if
2樓：孤本輕狂
你所說的正確內容是什麼？比如數字？文字？沒有標準可沒辦法呀！
3樓：樹葉當作衣
正確的應該這樣寫：
if text1.text = "" thenmsgbox "請輸入內容"
else if text1.text = "正確內容" thenmsgbox "通過"
else
msgbox "請輸入乙個正確內容"
end if
4樓：匿名使用者
樹葉當作衣
是正確的
關於vb中if語句中的理解問題
5樓：匿名使用者
不妨把第1、2句改寫成如下形式:
if option1.value thenn = 60
endif
if option2.value thenn = 360
endif
第1行option1.value值為真時，執行第2行，否則順序執行if...endif結構後的那一行，即第4行
而現在的形式：if option1.value then n = 60，按語法規定不需要寫endif，意思同上：如果條件滿足執行then後面的語句，否則，執行if 結構後面的那句
6樓：匿名使用者
這個很好理解，一組option可以同時不被選中，但不會同時被選中，一般我們會在程式裡或控制項屬性裡設定一組option裡的某個option預設是被選中的，這樣再來看你的程式，假如option1和option2預設設定為option1是預設選中的，你就應該明白這段程式的意思了。
7樓：匿名使用者
if then 寫成一行，可以不用end if第一句：option1.value 為真，則n=60;
。。。。
逐句執行，程式初始化常用這種方式。
vb中的if語句問題
8樓：
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語句不能再改了。
9樓：
if (a>5) and (b>5) then
10樓：匿名使用者
if a = c and b = c then
end if
11樓：丹溪藍終覓
因為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中if語句問題 20
12樓：公子七哥
如果已經15級再點選就不能強化了唄？所以在強化之前先判斷是不是到了15級，如果是15級了就直接結束子程式。
private sub label1_click()
if cmdint =15
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
end sub
end if
cmdint = cmdint + 1
if cmdint = 1 then
msgbox "恭喜您強化成功！當前強化等級為+1，不愧是被龍神選中的人啊"
else
if cmdint <15
msgbox "恭喜您強化成功！當前強化等級為+" & str(cmdint) & "不愧是被龍神選中的人啊"
end if
if cmdint = 15 then
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
end if
end if
end sub
好像，不用判斷cmdlnt是不是等於1吧，如下：
private sub label1_click()
if cmdint =15
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
end sub
end if
cmdint = cmdint + 1
msgbox "恭喜您強化成功！當前強化等級為+" & str(cmdint) & "不愧是被龍神選中的人啊"
if cmdint = 15 then
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
end if
end sub
個人認為，後面第二處if cmdlnt = 15 then ... end if 這幾行可以不用的。如下：
private sub label1_click()
if cmdint =15
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
end sub
end if
cmdint = cmdint + 1
msgbox "恭喜您強化成功！當前強化等級為+" & str(cmdint) & "不愧是被龍神選中的人啊"
end sub
13樓：匿名使用者
dim cmdint
private sub label1_click()cmdint = cmdint + 1
if cmdint = 1 then
msgbox "恭喜您強化成功！當前強化等級為+1，不愧是被龍神選中的人啊"
else
if cmdint >= 15 then
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
else
msgbox "恭喜您強化成功！但前強化等級為+" & str(cmdint) & "不愧是被龍神選中的人啊"
end if
end if
end sub
14樓：
private sub label1_click()
cmdint = cmdint + 1
if cmdint = 1 then
msgbox "恭喜您強化成功！當前強化等級為+1，不愧是被龍神選中的人啊"
else
if cmdint <15
msgbox "恭喜您強化成功！但前強化等級為+" & str(cmdint) & "不愧是被龍神選中的人啊"
end if
if cmdint = 15 then
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
end if
if cmdint >15
msgbox "當前已為最高端，暫時無法繼續強化哦！快拿起你的+15神器去擊敗黑暗大將吧！"
end if
end if
end sub
15樓：介澤秘俊賢
private sub form_click()dim x
'此時，雖然沒有給x賦初值，但系統已經把它的值設為0if x then '非0為真，0為假
print x
else
'x=0，所以執行到這裡，此時x+1=1
print x + 1
end if
end sub
vb中關於 if語句 的小問題，都來看看！！！
16樓：
if 語句的兩種使用方式
方式一：
i f ..... then
......
else(可選）
.......(可選)
end if
方式二：
if ..... then .......
17樓：匹諾曹_浩
一班 if和endif裡 只有一句執行時 都寫做這種形式 寫成 if then endif 也可以 都是對的
18樓：ii個人的寂寞
呵呵。通常情況下，if語句需要end if 結束，但是如果執行塊中只有一句，並且和if語句寫在同一行就不需要endif了。這個是非常常用的。
並且還可以這麼用
if 表示式 then 語句1：語句2也是可以的
例子：if 1=1 then msgbox 「test1」:msgbox 「test2」
等同於if 1=1 then
msgbox 「test1」
msgbox 「test2」
end if
以上解釋希望可以幫到你。
還是關於VB迴圈語句的問題
上次有個朋友提過類似問題，結合msdn上的說法，我的理解是這樣，迴圈開始時會建立乙個迴圈條件，迴圈條件在迴圈過程中不會被改變，如果step是正數，迴圈條件應為迴圈變數 計數器 小於等於計數器的終值，注意這裡，msdn中從未將終值描述成為變數，而對於計數器才描述其為變數，舉例說明 e 10 for i...
vb中的for語句，VB中的For語句
一 vb中的for語句格式 for 迴圈變數 初值 to 終值 step步長 迴圈體 exit for next 迴圈變數 二 vb中的for語句功能 當迴圈變數的值在初值到終值範圍內時，執行一次迴圈體中的語句塊，並使初值增加乙個步長。當迴圈變數的值不在初值到終值範圍內時，就退出迴圈，執行next後...
VB迴圈語句，vb中的迴圈語句
for 迴圈變數 初賦值 to 終值 step 步長 next 迴圈變數 在預設情況下，step被設為 1 可以省略，step也可以設為負值，例如 dim a 0 for i 1 to 10 a a i next i 這是乙個最簡單的累加器的例子，把1到10累加在一起，然後賦值給 a 這樣的效果和上...
vb中if 語句的運用，VB中if 語句的運用
你的理解不對。第乙個if語句執行後，m取的是a，b中的最大值 第二個if語句執行後，m取的是c，m中的最大值 當c m為假，m還是原來的m，不需些else子句。所以最後text4.text m,顯示的是a,b,c三者中的最大數。if 語句有幾種型式，如果直接寫成 if 判斷 theh 表示式 這時是...
vb程式設計問題，關於VB程式設計的小問題
這個問題你問的比較到位。在vb裡面，子窗體和父窗體之間有乙個選單是否重疊的設定。你可以進行選擇當子窗體最大化是，子窗體的選單是否和父窗體的重疊。焦點，就是當前的活動物件，也就是說，如果有3個文字框，當你把滑鼠點到第二個上時 你輸入的內容就會在第二個顯示，而其他兩個不會有反應，這個時候其實就是第二個是...