VB 最大值的序号随机产生20个50到350的整数,求上面所产生20个随机整数中的最大值,以及最大值的在这20个数中的序

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/07/07 21:56:10

VB 最大值的序号
随机产生20个50到350的整数,求上面所产生20个随机整数中的最大值,以及最大值的在这20个数中的序号.

在窗体上建三个控件：Listbox,Textbox,CommandButton,名称分别用默认名称,代码如下：
Private Sub Command1_Click()
Dim w(20) As Integer
Dim Max As Integer, imax As Integer
Randomize
For i = 1 To 20
List1.AddItem Int(301 * Rnd + 50) '随机产生20个数
Next i
Max = Val(List1.List(0))

For i = 0 To 19
vali = Val(List1.List(i))
If Max < vali Then '找最大值
Max = vali
imax = i
End If
Next
Text1.Text = "最大值是" & Max & ",是第" & imax + 1 & "个数"
End Su

随机产生任意个20个50~100的整数,求最大值、最小值,平均值,并统计高于平均值的个数. 将随机产生的10个[100,200]范围内的随机整数存入数组,求数组中的最大值和最小值. 写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和 VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数. VB 随机产生35个 20到80的随机整数 VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数 vb 20个100以内的随机整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数. VB,用VB语言写!随机产生10个两位整数,求期中的最大值,最小值和平均值.