1樓：網友
這是乙個case選擇函式！
也就是說當條件滿足asc( 0 ) 或 asc( 9 ),或asc( .抑或 8時，則執行結果句子！
asc 函式是求ascii碼。
例如：asc(「a」) 返回值為97
asc(「.返回值為46
asc(0) 返回值為48
asc(9) 返回值為57
a-z的ascii碼為97-122
a-z的ascii碼為65-90
你的語句中有個錯誤，「.少了引號。
用asc求解後，你的語句可以寫成下面的**。
case 48 to 57,46,8
2樓：網友
asc 函式是求ascii碼。
例如：asc(「a」) 返回值為97
asc(「.返回值為46
asc(0) 返回值為48
asc(9) 返回值為57
a-z的ascii碼為97-122
a-z的ascii碼為65-90
你的語句中有個錯誤，「.少了引號。
用asc求解後，你的語句可以寫成下面的**。
case 48 to 57,46,8
3樓：網友
美國安全委員會情況。
大神幫忙
4樓：網友
結果是17=3+4+2+8
static s as integer
dim c as string
select case keyascii
case asc("0")to asc("9") 只處理0-9之間的按鍵，字母不做處理。
s=s + keyascii - asc("0"蘆敗)) 得到相應的數字，並穗檔和前乙個數相加。
case 13 『如果按回車，就顯示出猜譁亂結果。
print s
trueend select
問一道簡單的vb題，求大神解答
5樓：悠悠周郎
先定義乙個 private 變數，載入對話方塊時，load 事件裡將現有字型大小儲存。
if 新字型大小 <= 0 or not isnumeric(新字型大小) ' 如果新字型大小不是數字或者小於等於零。
新字型大小 = 原字型大小。
else新字型大小 = 下拉組合框的值。
end if
6樓：網友
private sub co4_keypress(keyascii as integer)
if keyascii = 13 thenon error resume next
cint(val(
if <>0 then
end if
end if
select case keyascii
case 8 '允許倒退鍵功能。
case asc("0") to asc("9") ' 只允許輸入0至9的數字。
case else
keyascii = 0
end select
end sub
數字符號0的sacii碼十進位表示為48，數字符號9的ascii碼十進位表示為
7樓：l一
數字符號0的sacii碼十進位表示為48，數字符號9的ascii碼十進位表示為：57。計算方法如下：
0的ascii值為0，'0'的ascii值為48，'9'的ascii自然是48+(9-0)=57
全世界通用的十進位，即1.滿十進一，滿二十進二，以此類推……2.按權，第一位權為10^0，第二位10^1……以此類推，第n位10^(n-1)，該數的數值等於每位位的數值*該位對應的權值之和。
8樓：北魏肖央
0的ascii值為0，'0'的ascii值為48，'9'的ascii自然是48+(9-0)=57
vb裡面asc(1) asc(0) 是什麼意思
9樓：在凌雲山採蘑菇的蘆筍
asc()是將字元轉換成ascii碼值，所以asc(1)就是1的ascii碼值，asc（0）同理。
由8-16個字元組成,區分大小寫(不能為9位以下純數字,不能包含空格什麼意思
10樓：陳學陽
程式如下：clea
j=0 n=0
num=0word=0
spa=0oth=0
sub=space(10)
4,4 say '輸入字串：(小於10個)' get subread j=len(sub)
for i=1 to j
n=subs(sub,i,1)
do case
case asc(n)>=<=122
word=word+1
case asc(n)>=<=90
word=word+1
case asc(n)>=<=57
num=num+1
case asc(n)=32
spa=spa+1
othe oth=oth+1
endcase
endfor
6,4 say sub
7,4 say '字元個數：'
7,14 say word
8,4 say '數字個數：'
8,14 say num
9,4 say '空格個數：'
9,14 say spa
10,4 say '其它字元：'
10,14 say oth
注意：該程式輸入字串時，必須輸入10個，否則尾部的空格會被計算在內，如果想隨意輸入，就必須規定字串不能以空格結尾，程式要稍做改動。
如果對您有幫助，請記得為滿意答案，謝謝！祝您生活愉快！
11樓：塵心
這是密碼設定提示或者說是要求吧。
如何實現這個問題？
12樓：網友
如果你保證兩個數字中間肯定是字母這樣的組合的話，你大可以寫乙個字串分析函式。
具體我就不寫出來了。
比如 s 是你要發音的文字： s=2h11dim l=len(s) as integerdim a as integer
for i= 1 to l
if asc(mid(s,i,1))>=65 & asc(mid(s,i,1))<=90 then a=i
next i
dim s1,s2,s3 as strings1=mid(s,1,i-1) ///s1就是第乙個數字啦，如此類推。
s2=mid(s,i,1)
s3=mid(s,i+1,l-i)
13樓：網友
用split就可以差分出來了 然後迴圈放。
14樓：網友
什麼串分析函式 不嫌累 用正則處理就行。
vb中'if k>=asc("0")and k<=asc("9")then k=0什麼意思
15樓：辛酸之名
如果整數k的值大於字元0的ascii碼值且少於字元9的ascii碼值則k=0
文字框中輸入的必須是數字
16樓：
'只允許輸入數字。
private sub text1_keypress(keyascii as integer)
select case keyascii
case asc("0") to asc("9")
case else
msgbox "請輸入數字"
end select
end sub
只允許輸入字母。
private sub text1_keypress(keyascii as integer)
select case keyascii
case asc("a") to asc("z")
case asc("a") to asc("z")
case else
msgbox "請輸入字母"
end select
end sub
只允許輸入這些符號。
private sub text1_keypress(keyascii as integer)
select case chr(keyascii)
case ".", ",", "/", "<", ">", "?", ":", ";"
case else
msgbox "請輸入符號"
end select
end sub
17樓：好幾碗粥
private sub text1_change()if isnumeric(right(, 1)) = true then
msgbox "輸入的是數字"
elsemsgbox "輸入的不是數字"
end if
end sub
18樓：匿名使用者
輸入的時候，判斷每個字元均為數字即可。
19樓：網友
只允許輸入數字：
private sub command1_click()if isnumeric( = flase thenmsgbox "請輸入乙個數字"
end if
end sub
只允許輸入字母：
private sub text1_keypress(keyascii as integer)
select case keyascii
case asc("a") to asc("z")case asc("a") to asc("z")case else
msgbox "請輸入字母"
end select
end sub
只允許輸入字元：
private sub command1_click()if isnumeric( = true thenmsgbox "請輸入字元"
end if
end sub
漿糊，猜數字0一9數字,漿糊，猜數字三個0一9數字
漿糊，猜數字三個0一9數字 答案 135。一塌糊塗 y t h t 解釋 形容混亂或敗壞到了不可收拾的程度。出處 郭沫若 革命春秋 學生時代 新開設的中學，更是一塌糊塗，笑話百出。結構 偏正式。用法 用作貶義。有時表示程度之深。一般作謂語 定語 賓語。正音 塌 不能讀作 t 辨形 塌 不能寫作 蹋 ...
傳球接住猜0一9數字,傳球接住猜三個0一9數字
傳球接住猜三個0一9數字 答案 792。傳球 讀音 chu n qi 解釋 球模擬賽時將接到的球傳給本方隊員。英文翻譯 pass feed 是 010？究其根源猜三個0一9數字 傳球接住猜三個0一9數字 答案 792。傳球 讀音 chu n qi 解釋 球模擬賽時將接到的球傳給本方隊員 騎馬射箭猜三...
無憂無慮,猜0一9中的數字，無憂無慮,猜0一9中的乙個數字
答案是0，0表示無，什麼都沒有，我的煩惱是0，也就是我沒有煩惱。所以無憂無慮就是0。1，一不做二不休，1是最懶的，所以無憂無慮 51 56 應該是5吧 沒有一點憂愁，顧慮和擔心，形容煩惱盡除 得到解脫，心情安然自得，快樂舒心。1 無憂無慮 w y u w l 解釋 沒有一點憂愁和顧慮。出自 元 鄭廷...