VB题随机生成10个两位数整数,并统计出最大者,最小者及平均值显示出来

Question

VB程序语言

Answer 1

Private Sub Command1_Click()
Randomize
Dim sum As Integer, a(10) As Integer, Mas As Integer, Min As Integer
Min = 100
For i = 1 To 10
a(i) = Int(Rnd * (90) + 10)
sum = sum + a(i)
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
Print "平均值："; sum / 10; "最大值："; Max; "最小值："; Min
End Sub

Answer 2

Dim a(9) As Integer
Dim maxa As Integer
Dim mina As Integer
Dim tota As Integer
Dim avga As Integer
Randomize
maxa = 0
mina = 100
tota = 0
For i = 0 To 9
a(i) = Int((99 - 10 + 1) * Rnd + 10)
If a(i) > maxa Then
maxa = a(i)
End If
If a(i) < mina Then
mina = a(i)
End If
tota = tota + a(i)
Text1(i) = a(i)
Next i
avga = tota / 10
Text2.Text = maxa
Text3.Text = mina
Text4.Text = avga

a(i)中包含10个两位数整数，最大值maxa,最小者为mina,平均值avga本回答被提问者采纳