作业帮vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数（使用选择结构、循环结构、数组）.
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/19 06:28:52
vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数（使用选择结构、循环结构、数组）.
vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数（使用选择结构、循环结构、数组）.
vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数（使用选择结构、循环结构、数组）.
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 Sub