vb产生30个100以内的随机整数并统计出优、良、中等、及格、不及格的个数，并统计成绩属于优秀段的平均分 VB编程实现 随机输入20个小于100的整数成绩，通过编程在...
vb \u968f\u673a\u4ea7\u751f100\u4e2a\u6210\u7ee9 \u7edf\u8ba1\u5217\u8868\u6846\u91cc\u7684\u6210\u7ee9\u4e0d\u53ca\u683c\u826f\u597d\u4f18\u79c0\u7684\u4e2a\u6570\u4f60\u7684command3_click\u4e8b\u4ef6\u91cc\u9762\u4f60\u7684i\u662f\u4ec0\u4e48\uff0c\u5f88\u660e\u663e\u9519\u5728\u6ca1\u6709\u5bf9list1\u8fdb\u884c\u904d\u5386\u3002\u4f60\u7684i\u6ca1\u6709\u5b9a\u4e49\u662f\u4e2a\u9ed8\u8ba4\u7684\u201d\u201c
Private Sub Form_Click()
Dim i, you, liang, zhong, cha, bujige As Integer
Dim a(20) As Integer
Randomize (Time)
For i = 1 To 20
a(i) = Int(Rnd * 100)
If a(i) >= 90 Then you = you + 1
If a(i) >= 80 And a(i) < 90 Then liang = liang + 1
If a(i) >= 70 And a(i) < 80 Then zhong = zhong + 1
If a(i) >= 60 And a(i) < 70 Then cha = cha + 1
If a(i) < 60 Then bujige = bujige + 1
Next i
For i = 1 To 20
Print a(i); " ";
Next i
Print
Print "\u4f18"; you, "\u826f"; liang, "\u4e2d"; zhong, "\u5dee"; cha, "\u4e0d\u53ca\u683c"; bujige
End Sub
先给出代码：
Private Sub Form_Click()
Dim a(40), b(40), c(40), d(40), e(40), f(40) As Integer ''''数组开大一点，防止储存溢出
'生成0到100之间的随机数值。
Randomize ' 对随机数生成器做初始化的动作。
For i = 1 To 30
a(i) = Int(101 * Rnd)
Next i
'初始化这五个数为0.它们代表五种成绩分别的数量
j = 0
k = 0
l = 0
m = 0
n = 0
'下边这一行代码的作用是分类。将五种成绩的学生分别放进bcdef五个数组中。
For i = 1 To 30
If a(i) >= 90 Then
j = j + 1
b(j) = a(i)
ElseIf a(i) >= 80 Then
k = k + 1
c(k) = a(i)
ElseIf a(i) >= 70 Then
l = l + 1
d(l) = a(i)
ElseIf a(i) >= 60 Then
m = m + 1
e(m) = a(i)
Else
n = n + 1
f(n) = a(i)
End If
Next i
'sum的作用是求和以便求优秀学生的平均成绩
Sum = 0
'分别输出五种学生，注意输出时候分号和print的用法
Print "优：";
For i = 1 To j
Print b(i) & " ";
Sum = Sum + b(i) '''''累计求90分以上成绩之和
Next i
Print "良：";
For i = 1 To k
Print c(i) & " ";
Sum = Sum + c(i) ''''''将80分以上成绩加入
Next i
Print "中：";
For i = 1 To l
Print d(i) & " ";
Next i
Print "及格：";
For i = 1 To m
Print e(i) & " ";
Next i
Print "不及格：";
For i = 1 To n
Print f(i) & " ";
Next i
Print Sum / (j + k) ''''''''输出平均数
End Sub
回答完毕，亲测可行。
欢迎追问。
多少是优？多少是良？多少是中等，根本就没有一个条件，程序很容易，但没有条件没办法做啊。
绛旓細Option Base 1 Private Sub Form_Load()Dim a(30)For i = 1 To 30 Randomize a(i) = Val(Int(2901 * Rnd + 100))List1.AddItem a(i)Next i End Sub Private Sub Command1_Click()For i = 0 To 29 x = Val(List1.List(i))If x Mod 4 = 0 And x Mod 100 <> 0 Or x...
绛旓細Private Sub Command1_Click()Dim s(1 To 30) As Integer Dim i As Integer, sum As Integer, intmax As Integer, intmin As Integer, sngavg As Single intmax = 29 sum = 0 intmin = 101 Picture1.Cls Picture1.Print "浜х敓鐨30涓鏁版槸锛"For i = 1 To 30 s(i) = Int(30 +...
绛旓細Private Sub Command1_Click()Dim i As Integer, s(0 To 30) As Integer, f(5) As Integer, k As Integer, m As Integer, n As Integer Cls Randomize m = 1 '鏈楂樺垎搴忓彿 n = 1 '鏈浣庡垎搴忓彿 For i = 1 To 30 s(i) = Int(Rnd * 101) '0~100鍒 s(0) = s(0) + s(...
绛旓細Dim i As Integer, Sum_ As Integer, Max_ As Integer, Min_ As Integer, No_(9) As String Randomize Timer '鍒濆鍖栭殢鏈烘暟绉嶈锛屼娇姣忔绋嬪簭杩愯鏃浜х敓鐨勯殢鏈鏁伴兘涓嶇浉鍚 Min_ = 101 '鍒濆鍖栦竴涓渶灏忓 For i = 0 To 9 No_(i) = Int(Rnd * 70 + 30)If Max_ < No_(i) Then...
绛旓細Private Sub Form_Activate()Dim a(1 To 20) As Integer, b As Integer, c As Integer, d As Integer, e As Integer Randomize Print "闅忔満鏁帮細";For i = 1 To 20 a(i) = Int(Rnd * 50) + 50 If a(i) > d Then d = a(i)e = e + a(i)Print a(i);Next c = a(1...
绛旓細绠鍗曟槑浜嗭紝鍗曞嚮绐椾綋杈撳嚭 Private Sub Form_Click()Cls Dim a(19) As Integer For i = 0 To 19 a(i) = Int(Rnd * 100)If a(i) Mod 2 <> 0 Then s1 = s1 & a(i) & ","Else s2 = s2 & a(i) & ","End If Next Print "濂囨暟锛" & s1 Print "鍋舵暟锛" & s2 End Sub...
绛旓細Private Sub Command1_Click()Dim A(10) As Integer, i As Integer, Max As Integer, Min As Integer, s As Integer, Ave As Integer For i = 1 To 10 A(i) = Int(((100 - 30) * Rnd) + 30) ' 鐢熸垚 30 鍒 100 涔嬮棿鐨勯殢鏈鏁板笺侼ext i Max = A(1): Min = A(1): s ...
绛旓細杩欎簺棰 1. 闅忔満浜х敓30~100 (鍖呮嫭30 銆100 )鐨20涓鏁存暟锛屾樉绀烘暣涓暟缁勭殑鍊,骞舵眰鏈澶у笺佹渶灏忓笺佸钩鍧囧硷紝鏄剧ず缁撴灉銆2. 缂栧啓涓涓▼搴忥紝鍦ㄦ枃鏈涓换鎰忚緭鍏ヤ竴涓嚜鐒舵暟N锛屽崟鍑烩滆绠椻濇寜閽垯灏嗘枑娉㈤偅濂戞暟鍒楃殑绗琋椤规樉绀哄湪鏍囩涓紝濡傚浘鍘嬬缉鍖呬腑鎵绀恒俿y62.rar 3. 缂栧啓涓涓嫳鏂囨墦瀛楄缁冪殑绋嬪簭锛...
绛旓細1銆佹墦寮鈥淢icrosoft Visual Basic 6.0 涓枃鐗堚濊蒋浠讹紝鍑嗗涓涓┖鐧界殑宸ョ▼鏂囦欢锛2銆佺劧鍚庨渶瑕佷竴涓懡浠ゆ寜閽紝鍗曞嚮宸︿晶宸ュ叿绠变腑鐨勨滃懡浠ゆ寜閽濓紝鍦ㄧ獥浣撲腑鍙充晶鎷栧姩榧犳爣宸﹂敭鐢诲嚭鍗冲彲锛3銆佸弻鍑昏鍛戒护鎸夐挳锛岃繖閲屾紨绀鸿緭鍏ヤ唬鐮佹墦鍗0锝10涔嬮棿鐨勪换鎰忛殢鍗虫暣鏁帮紝鐢熸垚鍏朵粬鑼冨洿鐨勯殢鏈鏁存暟鍏紡涓衡渋nt锛堬紙涓婇檺-涓嬮檺+1锛*...
绛旓細Private Sub Command1_Click()For i = 1 To 20 Randomize Text1 = Text1 & Space(1) & Int(Rnd * 100 + 1)Next End Sub Private Sub Command2_Click()On Error Resume Next t = Split(Text1, " ")For j = 0 To UBound(t) - 1 If t(j) Mod 2 <> 0 Then Text2 = Text2...
