1樓：匿名使用者
private sub command1_click()
dim i as integer
dim num9 as byte, num8 as byte, num7 as byte, num6 as byte, numbad as byte
dim arraylist(100) as single
for i = 0 to 99
arraylist(i) = formatnumber(100 * rnd(), 1) '隨機產生100個0到100的分數
next
for i = 0 to 99
select case arraylist(i)
case is >= 90
num9 = num9 + 1 '分數90及以上的
case 80 to 89
num8 = num8 + 1 '分數80到89的
case 70 to 79
num7 = num7 + 1 '分數70到79的
case 60 to 69
num6 = num6 + 1 '分數60到69的
case is < 60
numbad = numbad + 1
end select
next
msgbox "統計結果：" & vbcrlf & "90分及以上的：" & num9 & "人" & vbcrlf & _
"80-89分的：" & num8 & "人" & vbcrlf & _
"70-79分的：" & num7 & "人" & vbcrlf & _
"60-69分的：" & num6 & "人" & vbcrlf & _
"不及格的：" & numbad & "人", vbokonly, "統計完成"
end sub
vb6下測試通過。
2樓：匿名使用者
有個更簡單的程式：
#include
using namespace std;
void main()
cout<<"90以上的人數:"< cout<<"80~90的人數:"< cout<<"70~79的人數:"< cout<<"60~69的人數:"< cout<<"不及格的人數:"< int num 10 for int i 1 i 9 i for int j 0 j 10 j c語言編寫函式,對具有10個整數的陣列如下操作 從第n個元素開始直到最後一個,依次向前一個位置,輸出結果.include int main void s int a 10 n 編寫函式，對具有效期0個整數... 用c 有很簡單的方法 把元素存vctor或list的容器裡邊 然後反響遍歷 如果是練習資料結構 樓上的思路很好了 還可以用起泡排序演算法或者二叉排序等，具體演算法可以去看資料結構排序一章的內容 include 簡單選擇排序 using namespace std int main if flag b... 我這有一個簡單的例子，當在陣列中找到第一個和給定數值相同的數時，返回其在陣列中的位置。若沒找到，返回 1.當從0開始搜尋時，和 搜尋一維陣列 的功能是一樣的。將陣列按照被搜尋陣列的個數來分成若干個子陣列，然後迴圈比較就好了！labview中怎麼給陣列特定位置元素直接賦值 labview中並沒有明確的...對在一維陣列中存放的整數進行如下操作 從元素開始直到最後元素，依次向前移動位置
從鍵盤上輸入整數存入一維陣列元素中，然後按逆序輸出該陣列的元素。C 程式設計求高手解答
labview從一維陣列中查詢特定的陣列，返回該數值在陣列中所在的位置，希望能給個程式圖