vb中求任意六个值中最大值和最小值
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/25 04:14:40
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 Su
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
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 Su
vb中求任意六个值中最大值和最小值
编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值.
VB中如何对数组求最大值与最小值并交换两者的次序
用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值
求数组a中最大值和最小值所在位置
vfp中求N个数的最大值和最小值
用VB求最大值最小值和平均值
求 1-33中任意六个数字的和值为100的所有排列组合
求最大值和最小值
在VB中寻找一个数组的最大值或最小值,可否用Max或Min函数?
VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显 示最大值和最小值相除
编写VB程序,在窗体上输入5个整数存放在数组中,找出这些数中最大值和最小值及它们所在的位置,