1樓：巨集淑敏頻雀
dima
asstringa=
inputbox("輸入乙個字元，如果過位，系統將擷取第一位，如果留空，系統取小寫a")
iflen(a)=0
thena=
"a"elseif
len(a)
>1thena=
mid(a,
1,1)
endif
ifasc(a)
>=asc("a")
andasc(a)
<=asc("z")
then
msgbox
"字元"&a
&"為小寫字母"
ifasc(a)
>=asc("a")
andasc(a)
<=asc("z")
then
msgbox
"字元"&a
&"為大寫字母"
2樓：匿名使用者
這個可以
private sub form_load()dim a as string
a = right(inputbox("輸入"), 1)select case asc(a)
case asc("a") to asc("z")msgbox "小寫字母"
case asc("a") to asc("z")msgbox "大寫字母"
case else
msgbox "非字母"
end select
end sub
3樓：匿名使用者
private sub form_load()dim a as string
a = left(inputbox("輸入"), 1)select case asc(a)
case asc("0") to asc("9")msgbox "數字"
case asc("a") to asc("z")msgbox "小寫字母"
case asc("a") to asc("z")msgbox "大寫字母"
case else
msgbox "其他字元"
end select
end sub
4樓：昔俊能
private sub command1_click()dim strtmp as string
err1:
strtmp = inputbox("請輸入乙個字元：")if len(strtmp) > 1 then goto err1if len(strtmp) < 1 then exit subif not isnumeric(strtmp) thenif asc(strtmp) >= asc("a") and asc(strtmp) <= asc("z") then
msgbox "小寫字母！"
elseif asc(strtmp) >= asc("a") and asc(strtmp) <= asc("z") then
msgbox "大寫字母！"
else
msgbox "非字母！"
end if
else
msgbox "非字母！"
end if
end sub
vb寫程式輸入乙個字元，判斷是數字字元？大小字母？其他字元？
5樓：匿名使用者
if asc(text1.text) < "58" and asc(text1.text) > "47" then
msgbox "數字"
elseif asc(text1.text) < "91" and asc(text1.text) > "64" then
msgbox "大寫字母
"elseif asc(text1.text) < "123" and asc(text1.text) > "96" then
msgbox "小寫字母"
elseif asc(text1.text) < 0 thenmsgbox "漢字或其他版字元
權"else
msgbox "其他字元"
end if
6樓：岔路程式緣
private sub form_click()dim a as string
a=inputbox(「
抄乙個字元」
襲,「輸入bai」,「0」)
if a>=「0」 and a<=「9」 print a;「是du乙個數字zhi」
elseif a>=「a」 and a<=「z」 print a;「是乙個小寫字母」
elseif a>=「a」 and a<=「z」 print a;「是乙個大dao寫字母」
elseif print a;「是乙個其他字元」
end sub
剛學vb 在文字框中輸入乙個字元，判斷是字母還是數字字元 或者其他字元 我寫的有問題 應該怎麼改
7樓：匿名使用者
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
8樓：風雪劍無痕
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
程式設計題：輸入乙個字元，判斷它是否是小寫字母。如果是，將它轉化成大寫字母；如果不是，不轉換。
9樓：匿名使用者
執行成功的
#include
using namespace std;
void main()
10樓：春雨_潤物
#include
#include
#include
main()
11樓：匿名使用者
if (ch >= 'a' &7 ch <= 'z')
ch -= 32;
12樓：匿名使用者
不明白我來做下任務的
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程式題輸入字元，判斷該字元是字母字元 數字字元還是其他字元，並做相應顯示
dim a as string a inputbox 請輸入一個字元 select case a case 0 to 9 msgbox 是數字 case a to z a to z msgbox 是字母 case else msgbox 是其它字元 end select private sub co...
剛學vb在文字框中輸入字元，判斷是字母還是數字字元或者其他字元我寫的有問題應該怎麼改
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...