1樓：網友
第六行是"else" 你寫錯們置了。 還有缺出if 結束語句 . 還有第3行也不知道是什麼意思~~~setfocus 是不是沒有定義呀 在試試 要光弄除法的好弄呀 你不知道你做的什麼。
關於vb中if 語句的巢狀問題
2樓：【都市精靈
標準的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，否則只要乙個。
注：注意巢狀的時候最好 用空格 把子判斷推後幾格，看著舒服。頂格寫也行，就是看著亂。
哥們兒 這可全是我乙個字乙個字地打的啊～您就給個辛苦費吧～呵呵 有不懂的再通過 補充 問我】
3樓：
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編譯錯誤 else 沒有if 但是明明寫了if
4樓：網友
更改方法一：
private sub command1_click()
if val(text1) <40 or val(text2) <40 or val(text3) <40 then
text4 = "不合格"
elseif val(text1) <60 or val(text2) <60 or val(text3) <60 then text4 = "達標"
elsetext4 = "合格"
end if
text5 = format(((val(text6) +val(text7) +val(text8)) / 3), "")
end sub
更改方法二：要是我的話就會是這樣寫的。
private sub command1_click()
if val(text1) <40 or val(text2) <40 or val(text3) <40 then
text4 = "不合格"
elseif val(text1) <60 or val(text2) <60 or val(text3) <60 then
text4 = "達標"
elsetext4 = "合格"
end if
text5 = format(((val(text6) +val(text7) +val(text8)) / 3), "")
end sub
5樓：網友
if 格式不對。
if elseif
elseif
end if
看懂了嗎，程式設計不是造句，有些地方要注意。
簡單visual basic（vb）程式設計問題，for語句、if語句、迴圈....題目如圖，**等，
6樓：聽不清啊
private sub command1_click()a = cint(
b = cint(
if b > a and b / a < then= "警告，您的車速超過限速！"
elseif b / a >= and b / a < then= "您的車速超過限速20%，處200元罰款，駕駛證記6分！"
elsec = (b - a) / a * 100y = c * 20
if y > 2000 then y = 2000= "您的車速超過限速" & c & "%，處" & y & "元罰款，駕駛證記12分！"
end if
end if
end sub
private sub form_load()= "限速" "時速"
計算" "清除"
退出"end sub
private sub command2_click()call form_load
end sub
private sub command3_click()endend sub
private sub command1_click()t = cint(
n = cint(
sum = 0
y = 0s$ = ""
for i = 1 to n
y = y * 10 + t
sum = sum + y
if i < 4 then s$ = s$ &y & "+"
if i = n then s$ = s$ &"..." & y & "="
next i
s$ = s$ &sum
s$end sub
private sub command2_click()call form_load
end sub
private sub command3_click()endend sub
private sub form_load()= "t=" "n="
計算" "清除"
退出"end sub
vb中的if語句
7樓：荀曾顏念雁
檢測事件是在文字框中的change事件中判斷，也就是說只要文字框有改變就檢測！
如果把其中的。
and改寫成。
or就可以判斷其中乙個文字是否為空！
private
subtext1_change()
判斷文字框最快的速度還是判斷它的長度是否為0iflen(
andlen(
thenfalse
elsetrue
endifendsub
private
subtext2_change()
iflen(
andlen(
thenfalse
elsetrue
endifendsub
完美財經網。
http：
8樓：檢霽杜鵾
if《條件》then
語句》語句》
.endif與c語言不同，(vb)的條件語句更符合英語的語法，如果then後面所跟的語句只有一條，可以寫成：
if《條件》
then不用end
if有時還用到：
if《條件》then
語句》else
語句》endif
還可以在else裡再巢狀if語句，如。
if《條件》
then語句》
elseif《語句》
else語句》
endif
9樓：樂觀的召喚師
每一層要用end if來結束本層判斷。
10樓：取名字嚴重難
private sub text1_keypress(keyascii as integer)
select case len(
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
elsekeyascii = 0
end if
end select
end sub
我這個測試了效果很好 在顯示前做判斷。
vb中if語句的巢狀
11樓：板樹枝童鶯
不需要了。假如判斷條件a=b為真，執行suba，否則執行subb，用下面的**格式可以省略end
if,else不用也可以。ifa=b
thensuba
elsesubb
寫在一行可以省略end
if。如果a=b你要同時執行suba和subb的話，語句間用半形的：隔開就可以了。ifa=b
thensuba:subb
elsesubb
用：符號可以在一行**中寫n行**。
例如。a=b:a=c:a=d
等價於。a=b
a=ca=d
這樣也是不會出錯的。
你上面所提到的。
ifkeyascii=13
等價於。if
keyascii=13
如果分開兩行寫必須有end
if因為編譯器需要知道你在什麼時候結束if判斷，判斷條件和處理結果寫在一行編譯器可以知道你什麼時候結束if語句，如果寫在兩行，編譯器就無法識別了，所以必須新增endif。
12樓：碧魯玉蓉靳酉
if條件為真。
then執行語句。
endif(判斷結束)ifa=3
thenif
b=2thenifc=7
thenif
d=8then
以上條件都成立的時候執行下邊一段話。
.執行**並結束這個判斷。
假如d=5,則執行下邊的**）
else...執行**。endif
這裡是結束d=8
這個條件的）
endif（這裡是結束c=7這個條件的）
endif（這裡是結束b=2這個條件的）
endif（這裡是結束a=3這個條件）
13樓：時梓維光嬋
if語句可以像下面這樣子寫。
第一種。if
then第二種。if
thenendif
第三種。if
thenelse
endif第四種。if
thenelse
總的來說，如果是分開兩行寫的話，就要endif，一行的就不用了。
14樓：考彩榮汲寅
vb6中。if
then可以允許寫在一行中，如果一行中的then後需要跟不止乙個語句，可以在語句間加冒號，如：if
要理解這一點，你只需要記住。
vb語句與語句之間可以通過換行符來識別．．．
15樓：網友
private sub form_load()x = 5 'x的值你可以自己改。
if x <=2 then
msgbox "x <=2"
else if x < 4 then
msgbox "2 < x < 4"
else msgbox "x >=4"
end if
end if
end sub
以上就是最基礎的if語句巢狀。
16樓：衛玉枝釗璧
pforj
toppqfork
toppqq
nextknextj
printp;
q寫成這樣看的清楚些。
巢狀迴圈的作用：外層迴圈每執行1次，內層迴圈執行4次。
所以最終是外層迴圈執行了4次，內層迴圈執行了16次。
外層迴圈每次p
1，內層迴圈每次p+1，p初始值為1，所以最終為。
而q在外層迴圈每次都重新賦值為0，在內層迴圈每次。
p+1，所以最終q為。
我用C語言寫了很短的程式，但是，有錯誤。請高手指點
l dx dy dz int t cycling numberdouble dx double dy double dz double dx double dy double dz double l 1 limate dx dy dzdouble l float x1 float x2 float ...
VB用exit do語句，產生隨機的兩位數，當偶數的個數為6的時候結束
private sub form click static i as integer static j as integer static k as integer k 0 j 0 me.cls randomize dok k 1 i rnd 90 10 mod 100me.print i if i...
我買的是正版用了半年，現在有錯誤，不能夠公升級，怎麼辦阿
卸了重灌看一下啊，現在瑞星防毒好像有半年免費公升級的，瑞星應該不看什麼正版不正版的，主要是id正確就可以公升級了啊。不會有事的。我沒直接就公升級到了旗艦版，有什麼問題啊？以前是正版的，現在會不會被黑屏啊？我也是向朋友要的，他說公升級的時候一步一步來，我也不知道可能會出現什麼問題。如果出了問題那你可能得重灌系...