在「通用宣告」**區宣告(窗體)模組級變數
option explicit
dim letters as integer '宣告模組級變數，此變數計算字母個數
dim space as integer '空格個數
dim digit as integer '數字個數
dim others as integer '其他字元個數
輸入cmdstat_click()事件過程**
private sub cmdstat_click()
dim inputstr as string '區域性變數，此變數儲存輸入的字串
dim i as integer '迴圈控制變數，整型
dim casestr as string '此變數保儲存所擷取的字元
letters = 0 '初始化為0
space = 0
digit = 0
others = 0
inputstr = txtinput.text '取得輸入的字串
for i = 1 to len(inputstr) '開始分別統計個數
casestr = mid(inputstr, i, 1) '取得某個字元
select case casestr
case "a" to "z", "a" to "z" '如果字元是英文本母
letters = letters + 1
case " " '如果字元是空格
space = space + 1
case 0 to 9 '如果字元是數字
digit = digit + 1
case else '如果字元是其他字母
others = others + 1
end select
next
'以下**用來顯示統計出的結果值
txtresult1.text = letters
txtresult2.text = space
txtresult3.text = digit
txtresult4.text = others
txtresult5.text = len(inputstr)
end sub
VB 字串處理函式
格式 p asc x 返回字串x的第乙個字元的字元碼 範例 1 p asc a p 65 2 p asc ab p 65 2 chr 數值 函式 格式 p chr x 返回字元碼等於x的字元 說明 1 資料範圍在0到255之間 2 chr 返回的是資料型別，chr 返回的是字元型別。3 ansi是a...
PTA 字元統計（map函式）
請編寫程式，找出一段給定文字 現最頻繁的那個英文本母。輸入格式 輸入在一行中給出乙個長度不超過 1000 的字串。字串由 ascii 碼表中任意可見字元及空格組成，至少包含 1 個英文本母，以回車結束 回車不算在內 輸出格式 在一行中輸出出現頻率最高的那個英文本母及其出現次數，其間以空格分隔。如果有...
vb內部函式
內部函式 常用.int x 求不大於x的最大整數，普通整型 例 int 1.5 1 fix x 去掉x的小數部分 hex x 把十進位制值轉換成16進製制 oct x 十進位制轉八進位制 chr x x值轉換成ascii碼 轉換型str x x的值轉換成字串 cint x 進行小數四捨五入 cdbl...