100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 18:16:29

100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦
100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦

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下测试通过.

100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦 VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素急啊,在线等答案,打下救命! 整型一维数组中存放互不相同的10个数,从键盘输入一个整数,输出与该数相同的数组元素的下标WIN-TC的 C 语言一维整形数组将数组元素逆序存放并把交换后的数组输出要求数组元素的输入,交换和输出分别用函数用C 语言从键盘输入20个数依次存入一维整形数组中输出然后将数组元素逆序存有长度为n的一维数组A,将数组中负数存放在数组前部,所有正数存放在负数后面,设计算法! 已知一个长度为100的一维数组,求数组中所有元素平均值并输出. 有15个数按小到大的顺序存放在一个数组中,输入一个数,要求用折半查找法找出该数组中第几个元素的值. 将30个整数存放于一维数组a中,把其中所有能同时被3和7整除的数依次存入数组b,并按每行最多3个元素格式输出b 用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来. n个整数存放在data数组中,试编写函数fun,它的功能是返回绝对值介于10-100之间的数据元素个数,并将其余的数放在below所指的数组中. 求把1-100内能被3或5整除的所有整数放在数组a中,并输出数组a中实际存放的元素值的程序编译有一个数组长度为100,向里面存放随机数,要求数组中没有重复的值设计一个数组,存放20个范围在(1,100)之间的随机数,每行显示五个.求该数组元素的平均值,最大值,最小值,vb程序随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和. VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且 matlab中如何生成元素未知但元素个数已知的一维数组定义一个含有10个元素的一维数组. 要求：1）用for循环给个元素输入整数. 2）求出该数组中存放的最小整数这是C语言编程,不会做,紧急求助啊数据结构,二维数组sa中,按行存放和按列存放的某元素地址的计算方法有什么不同,举个例子.