vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数（使用选择结构、循环结构、数组）.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/04/29 03:09:29

Dim a(1 To 10) As Integer '定义10个数组
Dim aa(1 To 9) As Integer '定义9个空格数组
Dim n As Integer '定义空格数
Dim s As Integer '数组和
Form1.Cls '清除prints = 0n = 0For i = 1 To Len(Text1) '从text1第1位开始数到最后位
If Mid(Text1,i,1) = " " Then '使用空格判断整数个数n = n + 1If n < 10 Then
aa(n) = i 'aa(n)储存空格所在位数
If n = 1 Then
a(n) = Mid(Text1,1,aa(n) - 1) '第一个整数Elsea(n) = Mid(Mid(Text1,1,i - 1),aa(n - 1) + 1) '第2到9个整数End IfElseIf n 9 Then
Exit For '退出循环End IfEnd IfIf Mid(Text1,i + 1,1) = " " Then '超过2个空格,则输入格式不对.
MsgBox "第" & i & "位输入格式不对,数字间只能一个空格!"Exit ForEnd IfEnd IfNext iIf n = 9 Then '当存在9个空格时
a(10) = Mid(Text1,aa(9) + 1) '第10个数组
For i = 1 To 10
s = s + a(i)Next iFor i = 1 To 10
If a(i) s / 10 Thenj = j + 1ElseIf a(i) = s / 10 Thenk = k + 1ElseIf a(i) < s / 10 Thenm = m + 1End IfNext iPrint "大于平均数的有：" & j & "个"
Print "等于平均数的有：" & k & "个"
Print "小于平均数的有：" & m & "个"ElseMsgBox "请输入10个整数." '不存在9个空格时表示没有10个数End IfEnd Su

vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数（使用选择结构、循环结构、数组）. 输入100个整数存入数组a,求出这100个整数的平均数.计算并输出小于等于平均值的元素个数 C语言输入10个整数,输出大于等于其平均值的数的个数 C语言从键盘上输入10个数据,求出该10个数据的总和、平均值及大于平均值数据的个数（用数组完成）. VB循环结构编写程序计算任意10个整数的平均值 c语言循环结构编程输入若干个学生成绩,若输入数据大于100或小于0则循环结束,最后求成绩的平均值用c语言.定义一个数组存储10个整数,用户输入10个数值存储到数组里,计算平均值,并统计低于平均值的个数输入n个数,并求出小于平均值的数的个数计算数组x中N个数的平均值（规定所有数均为正数）,将x数组中大于平均值的数据移至x数组的前端,小于等于平均值的数据移至x 由键盘输入10个实型数到数组,求它们的平均值,输出平均值和其中大于平均值的数向一个数组中输入十个数,计算十个数的平均值,并统计大于平均值的数的个数.C语言. 从键盘输入10个整数,计算并输出大于等于60的数的平均值