1樓：林漠煙
private sub form_load()dim score
score = inputbox("請輸入成績", "成績")while not isnumeric(score)msgbox "請輸入數字"
score = inputbox("請輸入成績", "成績")wend
if score < 60 then
lblshow.caption = "成績不及格"
elseif score > 90 thenlblshow.caption = "成績優秀"
else
lblshow.caption = "成績優良"
end if
end sub
***********************************=
在單擊核取方塊的**中判斷單擊的這個核取方塊是否被選中，如果沒被選中（也就是再次單擊），那麼將字型還原為正常。
拖入一個文字框控制元件text1和3個核取方塊控制元件chkb,chki,chku分別表示粗體、斜體和下劃線
private sub chkb_click()if chkb.value = 1 thentext1.fontbold = trueelse
text1.fontbold = falseend if
end sub
private sub chki_click()if chki.value = 1 thentext1.fontitalic = trueelse
text1.fontitalic = falseend if
end sub
private sub chku_click()if chku.value = 1 thentext1.fontunderline = trueelse
text1.fontunderline = falseend if
end sub
2樓：匿名使用者
第一個程式lz最好把你的程式完整的帖出來
第二個問題，當你再次單擊滑鼠時，核取方塊的視覺效果會變成未選中，但你必須手動新增未選中對應的**。
vb編寫關於階乘的程式，vb編寫一個關於階乘的程式，
來不及寫，教你怎麼做吧 先把文字框的讀取轉存成整數 對這個整數用if判斷 不滿足條件用msgbox提示 滿足條件的話，呼叫函式，引數就是那個整數，返回值就是結果。剛給你寫的 希望對你有幫助 給個滿意回答吧private sub command1 click dim dat1 as variant d...
vb中關於日期函式的問題，VB中關於日期函式的問題
個人認為 執行結果不是因為cdate的作用強制轉換成日期，而是在於year 函式cdate就是字串強制轉換成日期型，比如text1.text 98 1 a cdate text1.text a就等於 1998 01 01 這就是cdate 函式的作用year 功能得到日期值中的年度 有效取值1000...
vb中關於exit sub問題，VB 中的exit do 怎麼理解
exit sub 的作用是結抄束當前的過程bai 不再執行後續程式。針對本程du序，exit sub 的作用是檢查到 未選zhi擇該新增的項dao目 或 專案已經存在 的時候,就不再執行 list2.additem list1.list list1.listindex exit sub 在一來般情況...