1樓：匿名使用者
private sub command3_click()dim a%(1 to 100), b%(0 to 9)for i = 1 to 100
a(i) = int(rnd * 100+1)print a(i);
if i mod 10 = 0 then
end if
_____________________上面是隨機產生100個整數～
for i=i to 100 then
j=a(i) mod 10－－－－－這步：整除10的與餘數儲存在j這個函式裡
b(j)=j－－－－這步：因為定義裡是0到9所以只需把餘數存在對應的陣列b(餘數)裡就行了～
next i
print "個位是0的數有" & b(0) & 」個」
print "個位是1的數有" & b(1) & 」個」
print "個位是2的數有" & b(2) & 」個」
print "個位是3的數有" & b(3) & 」個」
print "個位是4的數有" & b(4) & 」個」
print "個位是5的數有" & b(5) & 」個」
print "個位是6的數有" & b(6) & 」個」
print "個位是7的數有" & b(7) & 」個」
print "個位是8的數有" & b(8) & 」個」
print "個位是9的數有" & b(9) & 」個」
end sub
2樓：匿名使用者
private sub command3_click()dim a(100), b(100), c(10) as integer
randomize
for i = 1 to 100
a(i) = int(rnd * 100)print a(i);
if i mod 10 = 0 then printnext i
for i = 1 to 100
b(i) = a(i) mod 10
print b(i);
c(b(i)) = c(b(i)) + 1if i mod 10 = 0 then printnext i
for i = 0 to 9
print "a" & i & "=" & c(i)next i
end sub
vb程式設計：在文字框中任意輸入乙個數字字串,統計各個數字出現的次數。請問如何程式設計？
3樓：匿名使用者
最笨的方法倒是知道乙個 從文字框中提取每乙個字元 然後分別跟10個數字相比較，也就是每提取出來的乙個字元分別跟0到9比較 相同那麼計數值加1 提取完文字框的字元後分別比較出現的次數 也就是每乙個10個變數相比較，用氣泡排序的演算法 呵呵 挑戰下還有比我這個方法更笨的嗎？
4樓：匿名使用者
用ascii**唄
簡單，方便
j**a 怎麼算一組array中每個數字出現的次數， 如果某個數字出現次數是最多的，就輸出這個數，
5樓：兄弟連教育北京總校
public static void main(string args) ; arrays.sort(array);// 給陣列排序 int count=0; int tmp=array[0]; map map=new hashmap(); for(int i=0; i < array.length; i++) else map.
put(array[i], count); } map=sortbyvalue(map); setkey = map.keyset(); for (iterator it = key.iterator(); it.
hasnext();) } public static map sortbyvalue(map map) }); map result=new linkedhashmap(); for(iterator it=list.iterator(); it.hasnext();) return result; }
vb 怎樣統計text中某個字元個數
6樓：匿名使用者
統計某個字元的**如下：
private sub command1_click()dim i as integer, ccount as integer
for i = 1 to len(text1)if mid(text1, i, 1) = "你所需要統計的字元" then ccount = ccount + 1
next i
msgbox "共有" & count & "個e"
end sub
7樓：匿名使用者
統計字元個數
text2=len(text1)-len(replace(text1,"*",""))
要統計個數可以用len函式，在文字框的change事件裡面寫**。
8樓：
假如你的文字框是text1,label是label1private sub text1_change()dim i as long
dim s as long
s = 0
for i = 1 to len(text1.text)if mid(text1.text, i, 1) = "*" then s = s + 1
next i
label1.caption = s
end sub
vb中如何統計輸入的數字的個數 10
9樓：肥仙女
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、最後點選執行試試看功能。
10樓：我要問問題
用isnumeric函式判斷乙個變數是不是數字，
請問下大家知道excel中如何統計一組資料裡大於等於 30小於等於30了解的告訴下喲，真心謝謝大家了喳
例如，假定統計區域是a b countif a b,30 countif a b,30 countif 範圍，條件 看一下excel自帶的教程 看一下excel的教程 麻煩大家看一下excel中如何統計一組資料裡大於等於 30小於等於30.有曉得的人就說下哈，非常謝謝大家4j 用sumif a1 c...
excel中如何統計一組資料裡大於等於 30小於等於30的資料個數
30 30 如何通過函式一次性判斷，在c列中日期等於某天的時候，d e兩列中比如資料是從第一行開始的 f1 sumproduct 1 c 1 c 10 c1 sumproduct a1 a100 30 a1 a100 30 a1 a100 或者如果excel07版 countifs a1 a100,...
怎樣用遞迴找出一組數中的最大數
遞迴？無語了 var a array 1.100 of integer function max integer function max2 x,y integer beginif xr then sub 32767else if l r then sub a l else sub max2 sub...