问题标题:
产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数Dimx(1To30)AsIntegerDimsumAsInteger,aveAsIntegerDimiAsIntegerDimcountAsIntegersum=0Fori=1T
问题描述:
产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数
Dimx(1To30)AsInteger
DimsumAsInteger,aveAsInteger
DimiAsInteger
DimcountAsInteger
sum=0
Fori=1To30
Randomize
x(i)=Int(Rnd*100)+1
sum=sum+x(i)
Form1.Printx(i);Space(2);
IfiMod5=0ThenForm1.Print
Nexti
ave=sum/30
Form1.Print"平均值:";ave
Form1.Print"在平均值之上的数据是:"
Fori=1To30
Ifx(i)>aveThen
count=count+1
Form1.Printx(i);Space(2);
IfcountMod5=0ThenForm1.Print
EndIf
Nexti
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