1樓：匿名使用者
s是變數，不該打引號。
下面是用選擇語句來處理，可能比較清晰點。
private sub command1_click()dim s as string
s = text1
if len(s) = 1 then
select case s
case "a" to "z", "a" to "z"
msgbox "字母"
case "0" to "9"
msgbox "數字"
case else
msgbox "其它"
end select
else
msgbox "請只輸入乙個字"
end if
end sub
2樓：風雪劍無痕
private sub command1_click()dim s as string
s = text1.text
if len(s) = 1 then
if text1.text like "[a-z]" or text1.text like "[a-z]" then
text2.text = "字母"
elseif isnumeric(text1.text) then text2.text = "數字"
else
text2.text = "其它"
end if
else
msgbox "請只輸入乙個字元"
end if
end sub
VB中如何輸入文字框文字輸入字元，在這字元後加上
private sub text1 change if len text1.text 4 then text1.text text1.text end sub 我精心寫了一段哦！現在針對的是text1這個控制元件只需要放一個text1控制元件在窗體上在複製這段 貼上執行就可以了。我想了3種方法，一個...
vb程式設計題在文字框1中輸入整數n判斷其能否
console.writeline 請輸入一個整數 int n n int.parse console.readline if n 5 0 n 7 0 console.writeline n 能夠同時被5和7整除 console.read elsew console.writeline n 不能夠同...
vb中如何從文字框中提取需要的字元
參考 如下 private sub command1 click dim str5 as string str5 getaline text1,1 取得第二行的字串，以0為基底 end sub 以下在.bas option explicit const em getline hc4 declare ...