求教一个VB作业恩~

来源：百度知道 编辑：UC知道 时间：2024/05/26 11:50:21
题目为:生成10个二位随机数,求出其中的最大值,最小值,平均值,并指出最大最小值是第几个随机数.

谢谢了~
谢谢~

Dim myMax, myMin, myAvg, myMaxN, myMinN, myTemp, a As Integer
Cls
Print "随机产生的10个二位数:"
Randomize (Timer)
For a = 1 To 10
myTemp = Int((90) * Rnd + 10)
If a = 1 Then
myMax = myTemp
myMin = myTemp
myMaxN = 1
myMinN = 1
Else
If myMax < myTemp Then myMax = myTemp: myMaxN = a
If myMin > myTemp Then myMin = myTemp: myMinN = a
End If
Print myTemp;
myAvg = myAvg + myTemp
Next
Print
Print "最大值为:" & myMax & " 排在第:" & myMaxN & vbCrLf & "最小值为:" & myMin & " 排在第:" & myMinN & vbCrLf & "平均值为:"; myAvg / 10

邮箱给我,发给你