vb中求任意六个值中最大值和最小值

来源：学生作业帮助网编辑：作业帮时间：2024/04/30 13:47:02

vb中求任意六个值中最大值和最小值
vb中求任意六个值中最大值和最小值

vb中求任意六个值中最大值和最小值
任意6个值,我就以随机产生6个两位正整数为例好了,代码如下：
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
Randomize
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Print
Max = a(1)
Min = a(1)
For i = 1 To 6
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
Print "最大值为：" & Max
Print "最小值为：" & Min
End Sub

vb中求任意六个值中最大值和最小值 vb中求任意六个值中最大值和最小值是在这种界面上的编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值. 用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值要2个不一样的程序,完整具体点的. 用VB求最大值最小值和平均值求数组a中最大值和最小值所在位置如何求串联电路中电阻最大值和电阻最小值谁有Excel中求最大值和最小值的习题在VB中寻找一个数组的最大值或最小值,可否用Max或Min函数? VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显示最大值和最小值相除的结果比如：4.5 4.96 最大值和最小值相除：4.96/4.5=1.1022222222222 用vb语言：求一组数的最大值最小值中位数和众数 VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且任意输入10个数,求这10个数中最大的间隔值（即是最大值和最小值的差）要求：诺需要排序,必须用选择法排在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和求最大值和最小值, 求最大值和最小值! 求最大值和最小值