1樓：匿名使用者
不知道你是不是這個意思，private sub command1_click()
dim cfg1 as string * 1cfg1 = text1(0).text
select case cfg1
case "l", 1", f"
text2(0).text = 1"
text3(0).text = **"
case "n", 2", m"
text2(0).text = 2"
text3(0).text = **"
case "t", 3", 8"
text2(0).text = 3"
text3(0).text = 童裝"
case else
msgbox "您輸入的第一個字元無效", 提示"
end select
end sub
2樓：匿名使用者
val函式用於將字串轉為數字，那麼後面的判斷就無意義了。
private sub command1_click()dim cfg1 as string
cfg1 = text1(0).text
select case cfg1
case "l, 1, f"
text2(0).text = 1"
text3(0).text = **"
case "n, 2, m"
text2(0).text = 2"
text3(0).text = **"
case "t, 3, 8"
text2(0).text = 3"
text3(0).text = 童裝"
case else
msgbox "您輸入的第一個字元無效", 提示"
end select
end sub
3樓：網友
你是不是函式呼叫錯誤了？val函式是把字串轉換成數字。如果轉換失敗就直接給val函式返回空值用0來代替。
例如輸入0和26個字母轉換都失敗，所以就返回0，然而case語句中l,f也都是空值（即為0）所以就直接執行第一條case語句。
還有，輸入0的應該是text2(0).text = 1" text3(0).text = **"
輸入8應該的是 text2(0).text = 3" text3(0).text = 童裝"
只有輸入4、5、6、7、9時才得到msgbox "您輸入的第一個字元無效", 提示"
高手進！vb問題
4樓：家庭小食堂
你直接放程式裡執行下不就知道了。這樣是成立的啊。b = a - a = 0) 這個的結果是b=1為什麼呢，因為b=0-（0=0）這裡0=0是true轉換過來就是-1所以呢b=0--1就等於1了。
剩下的一個應該不用我解釋為什麼了吧。
幫忙vb考試！！！！
vb 急急急！！！！！！
VB6 0的考試題目急求馬上就要考試了
二 選擇題 4 退出for迴圈可使用的語句為 a exit for bcaad 三 判斷題 判斷下列正確與否，正確的打 錯誤的打 2 若使用者在鍵盤上按下一個鍵，則會產生一個鍵盤事件 keypress事件 4 vb程式語言兩個基本特點是 結構化和事件驅動程式設計。5 工程資源管理器用於檢視和管理工程...
VB傳值的問題，VB中關於傳值和傳地址的問題？
上半部分和問題都不是一個型別的 上半部分是傳值和傳址的問題。加上byval是傳值 private function fun byval x as integer,byval y as single 執行過程中不會改變原來的引數值，傳遞的只是一個備份。比如。x 3,y 4 fun x,y 然後執行時候...
系統硬碟出問題了（很奇怪的問題）請電腦高手進！
硬碟丟失10g是正常的。那是因為，在製造硬碟的時候使用的是工業標準，是千進位制的，也就是說是按 1g 1000m,1m 1000k,1k 1000b.的進率來計算的。而裝上電腦以後，電腦是二進位制的，是按照 1g 1024m,1m 1024k,1k 1024b.來計算的 而硬碟的容量廠家是按照千進位...