1樓：肥仙女
1、啟動vb新建工程1，在form1的合適位置畫出3個label框、2個text框以及1個command按鈕（可以預先對各控制元件的caption等屬性進行修改）。
2、雙擊「統計」（即command1）按鈕，在彈出的**框中編寫如下**：
privatesubcommand1_click()dimxasstringa=text1.textb=text2.textn=0fori=1tolen(a)
x = mid(a, i, 1) if x = b then n = n + 1 next i label3.caption = "字元" & b & "在字串」" & a & "「中" & vbcrlf & "共出現了" & n & "次。"end sub
這樣便達到了檢索所有字元、統計某個字元出現次數的需求了。
3、為了使輸入操作更加的方便，我們可以加入setfocus語句：
privatesubtext1_keypress(keyasciiasinteger)ifkeyascii=13thentext2.setfocusendsub
這樣當輸入游標停留在text1，點選回車（enter）鍵時，游標便會跳到text2中，方便對text2進行輸入。
當游標停留在text2中，按下回車鍵時，游標將跳到command上，方便操作：
privatesubtext2_keypress(keyasciiasinteger)ifkeyascii=13thencommand1.setfocusendsub
4、最後點選執行試試看功能。
2樓：我要問問題
用isnumeric函式判斷一個變數是不是數字，
vb操作題輸入一個字串,統計大小寫字母和數字個數
用vb 輸入一行字元,統計出數字,字母,空格和其它字元的個數
vb 輸入一個字串，統計各種字元的個數
輸入一串字元統計其中某字母個數vb
3樓：匿名使用者
's : 字串
'c : 指定的字元
public function charcount(byval s as string, byval c as string) as integer
dim i as integer, count as integer
i = 1
count = 0
do while (i <= len(s))
if (mid(s, i, 1) = c) then count = count + 1
i = i + 1
loop
charcount = count
end function
'呼叫dim count as integer
count =charcount("aaabbeeezzccc", "a")
'結果：count = 3
count =charcount("aaabbeeeeezzccc", "e")
'結果：count=5
count =charcount("aaabbeeeeezzccc", "z")
'結果：count=2
4樓：聽不清啊
private sub command1_click()
s = text1.text
for i = 1 to len(s)
if mid(s, i, 1) = "a" or mid(s, i, 1) = "a" then
na = na + 1
else
if mid(s, i, 1) = "e" or mid(s, i, 1) = "e" then
ne = ne + 1
else
if mid(s, i, 1) = "z" or mid(s, i, 1) = "z" then
nz = nz + 1
end if
end if
end if
next i
print "na="; na, "ne="; ne, "nz="; nz
end sub
excel中怎樣統計單元格中的數字個數並按重複次數多少排列
a 10 1,column a 1 陣列公式，即同時按shift ctrl enter結束公式編輯，會自動生成一對 右拉 function f rg as range,p as integer dim a 1 to 10 set d createobject scripting.dictionary...
excel中如何統計一組數字中重複數字的次數
你的問題不是很明確哦 首先 你得說明你這組數字存在的形式 比如 同一行 每個數字一個單元格 或同一列 每個數字一個單元格 再或 這組數字都在同一單元格內 連續的字串形式的 還是字元之間有空格 等等 在統計過程中對運用的公式影響很大的 再有 標題問的是重複數字出現的次數吧 可是下面你給出的說明中 給人...
中如何輸入羅馬數字，word中如何輸入羅馬數字？
在word中，將頁尾設定為羅馬數字的操作步驟 1 在頁尾處雙擊滑鼠，進入頁尾編輯狀態 2 單擊頁首和頁尾工具設計 頁碼 設定頁碼格式 3 彈出頁碼格式對話方塊，在編號格式處選擇羅馬數字格式 在頁碼編號處選擇起始頁碼，輸入框中輸入1 4 單擊頁首和頁尾工具設計 頁碼 頁面底端 普通數字2即可，如圖所示...