产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数
来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:数学作业 时间:2024/05/15 19:26:58
产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数
Dim x(1 To 30) As Integer
Dim sum As Integer,ave As Integer
Dim i As Integer
Dim count As Integer
sum = 0
For i = 1 To 30
Randomize
x(i) = Int(Rnd * 100) + 1
sum = sum + x(i)
Form1.Print x(i); Space(2);
If i Mod 5 = 0 Then Form1.Print
Next i
ave = sum / 30
Form1.Print "平均值:"; ave
Form1.Print "在平均值之上的数据是:"
For i = 1 To 30
If x(i) > ave Then
count = count + 1
Form1.Print x(i); Space(2);
If count Mod 5 = 0 Then Form1.Print
End If
Next i
Form1.Print
Form1.Print "共有"; count; "个在平均值之上."
这个也调试不出来,
Dim x(1 To 30) As Integer
Dim sum As Integer,ave As Integer
Dim i As Integer
Dim count As Integer
sum = 0
For i = 1 To 30
Randomize
x(i) = Int(Rnd * 100) + 1
sum = sum + x(i)
Form1.Print x(i); Space(2);
If i Mod 5 = 0 Then Form1.Print
Next i
ave = sum / 30
Form1.Print "平均值:"; ave
Form1.Print "在平均值之上的数据是:"
For i = 1 To 30
If x(i) > ave Then
count = count + 1
Form1.Print x(i); Space(2);
If count Mod 5 = 0 Then Form1.Print
End If
Next i
Form1.Print
Form1.Print "共有"; count; "个在平均值之上."
这个也调试不出来,
没问题啊,如图
Private Sub Command1_Click()
Dim x(1 To 30) As Integer
Dim sum As Integer, ave As Integer
Dim i As Integer
Dim count As Integer
sum = 0
For i = 1 To 30
Randomize
x(i) = Int(Rnd * 100) + 1
sum = sum + x(i)
Form1.Print x(i); Space(2);
If i Mod 5 = 0 Then Form1.Print
Next i
ave = sum / 30
Form1.Print "平均值:"; ave
Form1.Print "在平均值之上的数据是:"
For i = 1 To 30
If x(i) > ave Then
count = count + 1
Form1.Print x(i); Space(2);
If count Mod 5 = 0 Then Form1.Print
End If
Next i
Form1.Print
Form1.Print "共有"; count; "个在平均值之上."
End Sub
Private Sub Command1_Click()
Dim x(1 To 30) As Integer
Dim sum As Integer, ave As Integer
Dim i As Integer
Dim count As Integer
sum = 0
For i = 1 To 30
Randomize
x(i) = Int(Rnd * 100) + 1
sum = sum + x(i)
Form1.Print x(i); Space(2);
If i Mod 5 = 0 Then Form1.Print
Next i
ave = sum / 30
Form1.Print "平均值:"; ave
Form1.Print "在平均值之上的数据是:"
For i = 1 To 30
If x(i) > ave Then
count = count + 1
Form1.Print x(i); Space(2);
If count Mod 5 = 0 Then Form1.Print
End If
Next i
Form1.Print
Form1.Print "共有"; count; "个在平均值之上."
End Sub
产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数
通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将这30个随机整数以每行5个数形式输出
随机产生任意个20个50~100的整数,求最大值、最小值,平均值,并统计高于平均值的个数.
C语言编程考试题 用随机函数产生并输出20个[10,99]的随机整数,输出其中大于这20个数的平均值的数.
用c语言.定义一个数组存储10个整数,用户输入10个数值存储到数组里,计算平均值,并统计低于平均值的个数
向一个数组中输入十个数,计算十个数的平均值,并统计大于平均值的数的个数.C语言.
C语言编程:输入十个整数,找出这十个数中的偶数,统计它们的个数并求平均值.
C++ 求一组非0整数的平均值,并统计出这一组数中正数和负数的个数
c++求一组非0整数的平均值,并统计出这一组数中正数和负数的个数.
给定10个实数输出平均值并统计在平均值以上的数的个数
从键盘输入十个实数~计算他们的平均值~并求大于平均值的数的个数
询问c语言,输入十个值,赋给A[10],1:找出最大值与最小值2:求这十个数的平均值3:统计大于平均值的个数.