早教吧作业答案频道 -->其他-->
VB随机产生30个[10,99]的自然数.随机产生30个[10,99]的自然数.(1)每行10个输出这30个随机数;(2)输出去掉最大、最小值后的平均值.要代码
题目详情
VB随机产生30个[10,99]的自然数.
随机产生30个[10,99]的自然数.
(1)每行10个输出这30个随机数;
(2)输出去掉最大、最小值后的平均值.
要代码
随机产生30个[10,99]的自然数.
(1)每行10个输出这30个随机数;
(2)输出去掉最大、最小值后的平均值.
要代码
▼优质解答
答案和解析
Option Base 1
Dim a(30) As Integer
Private Sub Command1_Click()
Dim max As Integer '储存最大值
Dim min As Integer '储存最小值
Dim sum As Integer '储存总分
Dim n As Integer '储存分数
Dim aver As Integer '平均数
'产生随机数3行10列输出
For i = 1 To 30
Randomize
a(i) = Int(Rnd * 90) + 10
Print a(i);
s = s + 1
If s = 10 Then
Print vbCrLf
s = 0
End If
Next i
max = a(1)
min = a(1)
sum = a(1)
For i = 2 To 30
sum = sum + a(i)
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
Next i
sum = sum - max - min
aver = sum / 28
Print max,min,sum
Print "输出去掉最大、最小值后的平均值是:" & aver
End Sub
Dim a(30) As Integer
Private Sub Command1_Click()
Dim max As Integer '储存最大值
Dim min As Integer '储存最小值
Dim sum As Integer '储存总分
Dim n As Integer '储存分数
Dim aver As Integer '平均数
'产生随机数3行10列输出
For i = 1 To 30
Randomize
a(i) = Int(Rnd * 90) + 10
Print a(i);
s = s + 1
If s = 10 Then
Print vbCrLf
s = 0
End If
Next i
max = a(1)
min = a(1)
sum = a(1)
For i = 2 To 30
sum = sum + a(i)
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
Next i
sum = sum - max - min
aver = sum / 28
Print max,min,sum
Print "输出去掉最大、最小值后的平均值是:" & aver
End Sub
看了VB随机产生30个[10,99...的网友还看了以下:
抽中三个相同数的几率?在由0-9组成的10组100个数中抽三个数,这三个数相同的,有多少,怎么算? 2020-04-26 …
1/2×2/6×3/2×4/6×5/2×6/6×7/2×...×99/2×100/6的结果正好是个 2020-05-13 …
关于夏天的词语10个最好10个四字词语 2020-05-13 …
一串珠子按3个红,4个绿,5个蓝的顺序串在一起,共有100个,最后10个珠子中红珠子有几个. 2020-05-14 …
例1、一本书共150页,需要多少个数字编页码?1~9页9个数字10~~99页90×2=180个数字 2020-06-12 …
同底数幂的除法题目!把1.001×10^-9、9.99×10^-8、1.002×10^-8、9.9 2020-06-14 …
1到10000包含多少个“0”?我自己算的;10000/10=1000个;10000/100=10 2020-07-01 …
0.9÷10=53.8÷100=0.8÷10=6.5×100=0.12+0.98=(99-9)÷9 2020-07-09 …
一个角中加一条线是3个角,加二条线是6个角,加三条线是10个角问加n条线是多少个角,99条线时是多 2020-07-18 …
0.99..(循环)=1吗?设n=0.99..(循环)则10n-n=0.99..*10-0.99. 2020-07-24 …