1樓:甕皓月
mid(tmp, instr(1, tmp, "元") - 4, 4) //這句你是不是要取**? 不知道你的**會有多少?如30元 instr(1, tmp, "元") - 4 一會出現負數了。
就要出錯
你要取回「30元」這樣字元中的數字該寫成
mid(tmp, 1, instr(1, tmp, "元") - 1)
2樓:匿名使用者
vb差不多忘光了。不過看你的sub裡沒有定義過list1啊。
"無效的過程呼叫或引數"估計就是指,編譯器不認識list1是什麼。
3樓:取名字嚴重難
private sub form_load()list1.additem "300元"
end sub
private sub list1_click()dim tmp, tmp1 as stringtmp = list1.list(list1.listindex)msgbox instr(1, tmp, "元")tmp1 = mid(tmp, 1, 2)sum = sum - cint(tmp1)list1.
removeitem list1.listindexend sub
你在參考下
4樓:道清真人
tmp1 = mid(tmp, instr(1, tmp, "元") - 4, 4)這句話的問題
應該是tmp的長度不夠mid來擷取的
vb6 0總顯示無效的過程呼叫或引數
錯誤原因解析 c instr 1,a,b 當文字框中什麼空格也沒有輸入時 c 0 v instr c 1,a,b 此時從 c 1 個位置開始往後查詢空格時 v 依然 0 d mid a,1,v c 1 v c 1 0 0 1 1 此時就會彈出你所說的錯誤 點選除錯按鈕即可檢視錯誤 所在的行 滑鼠選中...
VB編譯錯誤 無效外部過程,VB 編譯錯誤 無效外部過程
是把 寫在子過程 函式過程或屬性過程外而發生的錯誤。在過程外無效 該語句必須發生在子過程 函式過程或屬性過程 property get property let 和 property set 內部。這個錯誤的起因與解決方法如下所示 一個可執行的語句,如 static 或 redim,出現在模組級別中...
vb中InputBox函式的引數是用來設定對話方塊的什麼
給你貼出 inputbox引數的說明吧 inputbox prompt title default xpos,ypos helpfile,context 1 prompt 是一個字串,其長度不得超過1 024個字元,它是在對話方塊內顯示的資訊,用來提示使用者輸入。在對話方塊內顯示prompt時,可以...