100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/15 18:11:08
100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦
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下测试通过.
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下测试通过.
100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语
VB如何统计二维数组中相同元素的个数?
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
编一个SUB过程:对一个一维数组a(n)的各个元素,分别统计90以上,80~89,70~89,69~79,60~69,6
利用一维数组存储由键盘输入10个学生的成绩,分别统计优、良、中、及格、不及格的人数.
VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素
一个班有45人,用a数组存放一门课的成绩,编程输入a的成绩,统计不及格(
VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数(使用数组
整型一维数组中存放互不相同的10个数,从键盘输入一个整数,输出与该数相同的数组元素的下标
VB编程题:统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并在标签中显示.
vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来
C 语言 一维整形数组将数组元素逆序存放并把交换后的数组输出 要求数组元素的输入,交换和输出分别用函数