随机产生20个数存到数组,求出最大值最小值及它们的位置

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/08 17:01:12

随机产生20个数存到数组,求出最大值最小值及它们的位置
随机产生20个数存到数组,求出最大值最小值及它们的位置

随机产生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 Sub

随机产生20个数存到数组,求出最大值最小值及它们的位置 VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均 C语言编程随机产生10个10到50的正整数存放到数组中,并求数组中的所以元素最大值、最小值、平均值及各元素 建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元素的最大值和最小值并输出,求出该数组元素的平均值并输出,要求计算最大值和最小 VB计算：随机产生20个1～100的正整数放入数组中,显示产生的数,并求出其最大值 （1）VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行（矩阵形式）输出到窗体,最大元素及行、列下标输出在数组的下方.（ vb程序设计,把100-200之间的20个数存到一个数组里,求最大值最小值和平均值 用VB编写程序:随机产生三个数,求出其中最小的那个数 在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数 随机产生20个数 查找某数(通过输入)在数组中的位置 VB VB 最大值的序号随机产生20个50到350的整数,求上面所产生20个随机整数中的最大值,以及最大值的在这20个数中的序号. 随机产生50个介于1和200之间的数,存放到数组中,然后输出,每行输出5个数 定义一个大小为10,数组元素在【20,100】范围内产生的整数；求出该数组中最大值,最小值.平均值 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.1.数组元素在10到100范围内2.数组的最大值和乘积由自定义子过程完成3.将数组各元素、 随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和. 怎样用VB产生一个不定个数的随机数组?当数组中前几个数的和大于某一个数时,令text1.text等于前几个数的和. 利用数组计算输入十个数求出最大值的位置和最小值的位置?