1樓：
(多謝樓下提醒，寫的時候忘記了，現已改正)先把結果存在字串的變數裡
dim a as string
a=str(結果)
if val(right(a,1))>=5 then a=left(a,len(a)-1)+"9"
if val(right(a,1))<5 then a=left(a,len(a)-1)+"4"
最後把a換回數字
最後結果=val(a)
2樓：
參考mid函式
用法:mid(要擷取的字串，開始位置，擷取長度)也就是mid(變數,一共幾位數,1)
再用個判斷
大於等於5 則顯示9
3樓：帳號已登出
以下text1輸入,text2輸出
if val(right(text1.text, 1)) >=5 then
text2.text = left(text1.text, len(text1.text) - 1) & "9"
else
text2.text = left(text1.text, len(text1.text) - 1) & "4"
end if
4樓：一碑電影
二樓表示式有錯，應該這樣：
if val(right(a,1))>=5 then a=left(a,len(a)-1)+"9"
if val(right(a,1))<5 then a=left(a,len(a)-1)+"4"
數學取值範圍，數學問題 取值範圍
3x b 4的解集中的整數有且僅有1 2,3,則b的範圍 3x b 4 4 3x b 4 b 4 3x 4 b b 4 34 4 b 3 3,8 b 54 5 所以5 參考 解 由 3x b 4 得 3x 4 當x取1是 的 1 2 當x取3時 得 5 由 1 2 3 綜合得 5 所以，b的取值範圍...
幫忙vb問題，VB問題 幫忙啊
autoredraw 字面意思就是 自動重畫vb中的意義 返回或設定從圖形方法到持久圖形.的輸出持久的圖形 microsoft windows 操縱螢幕圖象，來造成重疊視窗的影像。當一個視窗移到其它視窗上時，可暫時隱藏其它視窗，移過後，被覆蓋的視窗和它的內容需要重新顯示。windows 管理和控制視...
VB基礎問題，VB一個基礎問題
private sub command1 click static i as integer dim a a array 小1 王2 小3 李4 太5 多6 了7 不8 寫9 了10 label1.caption a i if i 9 then i i 1end sub private sub co...