1樓：匿名使用者
同上，至少把r_pass()、r2_ex_h() 的定義和賦值部分貼出來吧
text控制項陣列....兩個text不加任何轉換比較就是逐字比較文字，113和82，8比1大，因此82比113大。用相減的時候vb隱含轉換string為數值，因此正常。
所以說vb的隱式轉換害死人，程式設計習慣會變壞。
if r2_ex_h(i) < r2_ex_h(i + 1) then
改成 if val(r2_ex_h(i).text) < val(r2_ex_h(i + 1).text) then
2樓：
沒有錯,我試驗一下是可以正常執行的,要不你把原程式相關的**發出來,或方便的話貼出全部**?
3樓：匿名使用者
我看著你這些**都滲的慌
4樓：
你的片段真的很難判斷
如果可以的話,希望能貼多一些,才好幫你更快的找出問題r2_ex_h(i) < r2_ex_h(i + 1) 為真,（r2_ex_h(i) - r2_ex_h(i + 1)< 0 為假的話,
那麼只可能兩個都是負數
還有if myexit = vbokonly thenend
end if
可以直接用end,因為你前面是okonly,只有ok乙個按鈕
vb裡if語句判斷有點小問題
5樓：億劫修行
我的視窗控制項如圖所示：
以下**即可滿足你的計算要求：
private sub command1_click()'計算按鈕**
dim a, b, c as integerdim x1, x2 as single
dim dear as single
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
dear = b ^ 2 - 4 * a * clabel1.caption = "dear=" + str(dear)
if dear > 0 or dear = 0 thenx1 = (-b - sqr(dear)) / (2 * a)x2 = (-b + sqr(dear)) / (2 * a)text4.text = str(x1)
text5.text = str(x2)
else
text4.text = "無解"
text5.text = "無解"
end if
end sub
vb中select語句使用的問題，請教高手
6樓：
文字型 必須用''註明，而且，如果是否採用時欄位名，不用加「」
adodc1.recordsource = "select * from qbxxdjb where 是否採用 = '是'"
= 要留空格
7樓：網海1書生
adodc1.recordsource = "select * from qbxxdjb where 是否採用='是'"
8樓：匿名使用者
我剛參照回答修改了一下，但還是不行，提示實時錯誤『424』：要求物件
vb中的if語句
9樓：荀曾顏念雁
檢測事件是在文字框中的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
完美財經網
10樓：檢霽杜鵾
if《條件》then
《語句》
《語句》
...end
if與c語言不同,(vb)的條件語句更符合英語的語法,如果then後面所跟的語句只有一條,可以寫成:
if《條件》
then
不用end
if有時還用到:
if《條件》then
《語句》
else
《語句》
endif
還可以在else裡再巢狀if語句,如
if《條件》
then
《語句》
else
if《語句》
else
《語句》
endif
11樓：樂觀的召喚師
每一層要用end if來結束本層判斷。
12樓：取名字嚴重難
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
我這個測試了效果很好 在顯示前做判斷
13樓：匿名使用者
private sub text1_lostfocus()
if text1.text = "" or isnumeric(text1.text) = false or val(text1.
text) >= 100 then text1.setfocus
end sub
關於vb中if 語句的巢狀問題
14樓：【都市精靈
標準的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，否則只要乙個
注：注意巢狀的時候最好 用空格 把子判斷推後幾格，看著舒服。頂格寫也行，就是看著亂。
【哥們兒 這可全是我乙個字乙個字地打的啊～您就給個辛苦費吧～呵呵 有不懂的再通過 補充 問我】
15樓：
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的select語句問題，VB6 0中select語句使用問題
函式語法錯了，case後面不用加變數，應該這樣修改 private sub command1 click dim a as integer dim b as integer text1.text a select case a case is 1000 print b 10000 case is 2...
請教DOS命令中判斷語句的用法，就是判斷bat中前一行執行成功後在執行下一行，失敗則執行另一行，或不執行
己聞楣 沒有自動選不覆蓋的簡單機制，一般採用只拷貝不存在檔案的思路，批處理如下 echo off setlocal set a errcount 0 pushd f for f in bak do rem 判斷y 沒有這個檔案時，才進行拷貝，無需回答是否覆蓋的問題if not exist y f c...
vb中print語句怎麼用，VB中Print語句怎麼用？
樓主如果還是做不出來的話，可以把郵箱留下，我把我用vb6.0做的乙個例子給你發過去，解壓之後就能執行了，你可以參考下。好像你的郵箱是qinyehong 126.com是吧？我已經發過去了。 豆漠義友珊 print a 是輸出字串a 就是直接輸出引號內的。print a是輸出程式內 a的當前值 pri...