随机产生20个数存到数组,求出最大值最小值及它们的位置
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/14 15:40:39
随机产生20个数存到数组,求出最大值最小值及它们的位置
Private Sub Command1_Click()
Dim i As Integer,data(20) As Integer,max As Integer,maxIndex As Integer,min As Integer,minIndex As Integer
Randomize
min = 100
max = 1
For i = 1 To 20
data(i) = Int(100 * Rnd + 1) '假设随机数为1到100之间整数,如果取其他随机数,详见rnd函数用法
If max < data(i) Then max = data(i):maxIndex = i
If min > data(i) Then min = data(i):minIndex = i
Next
MsgBox "最大值为 " & max & " 在第 " & maxIndex & " 位" & vbCrLf & "最小值为 " & min & " 在第 " & minIndex & " 位"
End Su
Dim i As Integer,data(20) As Integer,max As Integer,maxIndex As Integer,min As Integer,minIndex As Integer
Randomize
min = 100
max = 1
For i = 1 To 20
data(i) = Int(100 * Rnd + 1) '假设随机数为1到100之间整数,如果取其他随机数,详见rnd函数用法
If max < data(i) Then max = data(i):maxIndex = i
If min > data(i) Then min = data(i):minIndex = i
Next
MsgBox "最大值为 " & max & " 在第 " & maxIndex & " 位" & vbCrLf & "最小值为 " & min & " 在第 " & minIndex & " 位"
End Su
VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均
C语言编程随机产生10个10到50的正整数存放到数组中,并求数组中的所以元素最大值、最小值、平均值及各元素
vb程序设计,把100-200之间的20个数存到一个数组里,求最大值最小值和平均值
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行
将随机产生的10个[100,200]范围内的随机整数存入数组,求数组中的最大值和最小值.
利用数组计算输入十个数求出最大值的位置和最小值的位置?
C语言.由键盘输入10个整数存入数组,输出最大值、最小值及它们的位置信息.并将最大、最小值位置互换后,再
VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
定义一个大小为10,数组元素在【20,100】范围内产生的整数;求出该数组中最大值,最小值.平均值
编写VB程序,在窗体上输入5个整数存放在数组中,找出这些数中最大值和最小值及它们所在的位置,
随机产生任意个20个50~100的整数,求最大值、最小值,平均值,并统计高于平均值的个数.
随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和.