vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数”

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/17 07:43:33

Private Sub Command2_Click()
Dim a(11) As Integer,s As String
Dim i As Integer,m1 As Integer,m2 As Integer,av As Double,sum As Integer 'm1 最大值,m2最小值
Dim H As Integer,L As Integer
Randomize
H = 1
L = 1
sum = 0
For i = 1 To 10
a(i) = Int(89 * Rnd + 10)
If i = 1 Then
m1 = a(1)
m2 = a(1)
End If
If m1 < a(i) Then
m1 = a(i)
H = i
End If
If m2 > a(i) Then
m2 = a(i)
L = i
End If
sum = sum + a(i)
s = s & " " & a(i)
If i Mod 5 = 0 Then
s = s & Chr(13)
End If
Next i
av = sum / 10
Print
Print "随机数为：" & Chr(13) & s
Print "平均值为：" & av & Chr(13) & "最大数：" & m1 & ",是第" & H & "个随机数" & Chr(13) & "最小数：" & m2 & ",是第" & L & "个随机数"
End Su

vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数” 在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值 vb语句设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数 vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值, VB,先产生100个0~67之间的随机数,编一子过程计算这些随机数的平均值、最大值、最小值. 怎样用VB做随机产生10个1－100以内的整型数,求出其的最大值,最小值,平均值利用VB如何设计下面问题：利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值. 随机生成3个正整数,其中一个1位数,一个2位数,一个3位数,计算他们的平均值.VB程序设计 C程序设计之输入n个整数并求出这n个数中的最大值 ,平均值,最小值,请高手帮小弟看看哪错了! Vb小编程用随机函数生成10个100以内的的整数找出最大值并指出是第几个数 VB 求10个元素所构成108个元素个位数最大值,最小值,平均值统计低于平均值且元素之和 excel求出一列中的最大值和最小值,并以红色、绿色表示,并求出除最大和最小值以外数的平均值.