1樓：捌零老陳
例如:dim hj as double '把hj變數定義在最上面一行private sub command1_click()...
jg = c * k * h * sl * bcdj / lylxs / 1000000 * 7.85
hj = hj + jg
print "當前金額合計：" & hj
end sub
2樓：紅山人
這是變數的作用域問題.朋友.建議你把這個問題好好弄清楚.參考**:
用模組變數:
dim hj as double '把hj變數定義在模組級裡,即**視窗的通用段裡
private sub command1_click()...
jg = c * k * h * sl * bcdj / lylxs / 1000000 * 7.85
hj = hj + jg
print "當前金額合計：" & hj
end sub
用靜態變數
private sub command1_click()...
static hj as double '把hj變數在過程內部定義為靜態變數
jg = c * k * h * sl * bcdj / lylxs / 1000000 * 7.85
hj = hj + jg
print "當前金額合計：" & hj
end sub
vb中判斷語句問題，請教高手 5
3樓：匿名使用者
同上，至少把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
4樓：
沒有錯,我試驗一下是可以正常執行的,要不你把原程式相關的**發出來,或方便的話貼出全部**?
5樓：匿名使用者
我看著你這些**都滲的慌
6樓：
你的片段真的很難判斷
如果可以的話,希望能貼多一些,才好幫你更快的找出問題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語句問題，請問那位高手看得明白以下的vb語句是什麼意思，請解釋一下。
7樓：匿名使用者
例如private sub modifysinfo_menu_click()
frmmodifysinfo.show （顯示frmmodifysinfo）
end sub
點選按鈕modifysinfo，顯示frmmodifysinfo
vb中select語句使用的問題，請教高手
8樓：
文字型 必須用''註明，而且，如果是否採用時欄位名，不用加「」
adodc1.recordsource = "select * from qbxxdjb where 是否採用 = '是'"
= 要留空格
9樓：網海1書生
adodc1.recordsource = "select * from qbxxdjb where 是否採用='是'"
10樓：匿名使用者
我剛參照回答修改了一下，但還是不行，提示實時錯誤『424』：要求物件
vb中unload語句消失了
11樓：匿名使用者
先插入窗體，然後可以對窗體進行unload比如，在userfomr裡：
private sub commandbutton1_click()unload me
end sub
請教vb（vba）裡的一條語句問題
12樓：匿名使用者
*號是萬用字元，賦值的是找到的第乙個檔名。。
若第二次呼叫 dir 函式，但不帶任何引數，則函式將返回同一目錄下的下乙個檔案
為什麼要把"c:\*.xls"拆成 "c:" & "\*.xls"也許是為了以後調整方便吧。
13樓：亞馬遜選品管家
"c:" &"\*.xls"="c:
\*.xls"，*是萬用字元，即搜尋所有xls型別的文件，每呼叫一次，返回下乙個符合條件的檔案，如果返回「」，說明搜完了。用迴圈吧。
遍歷搜尋結果。
這個vb語句**有問題
請問以下vb編號語句有問題嗎，如果有怎麼修改
14樓：己曼寒
dim a
static i
i = 0
i = i + 1
a = format(i, "00")
這樣就可以了
vb的if語句中的問題，關於VB中IF語句中的理解問題
這個就是正確的 if text1.text thenmsgbox 請輸入內容 end if if len text1.text 0 and text1.text 正確內容 then msgbox 請輸入乙個正確內容 end if if text1.text 正確內容 thenmsgbox 通過 en...
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問題
因為你定義的 adodc1和2 路徑不是form2,和form3的路徑，我認為你應該定義乙個公共模組來存放路徑，未找到方法或資料成員 很可能是路徑根本沒連上。定義公共模組如下 public sub main provider path 生詞庫。mdb persist security info fa...