VB 最大值的序号随机产生20个50到350的整数,求上面所产生20个随机整数中的最大值,以及最大值的在这20个数中的序
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/08 01:25:36
VB 最大值的序号
随机产生20个50到350的整数,求上面所产生20个随机整数中的最大值,以及最大值的在这20个数中的序号.
随机产生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
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个两位整数,求期中的最大值,最小值和平均值.