搜狗做题网VB取最大值和最小值通过测量得到的N个0到100的数 怎么从中得到最值 最好有程序
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/08/15 09:50:40
VB取最大值和最小值
通过测量得到的N个0到100的数 怎么从中得到最值 最好有程序
通过测量得到的N个0到100的数 怎么从中得到最值 最好有程序
Sub 最值()
Dim arrobj As Variant
arrobj = Array(1,2,3,4,5,6,7,1,3,2,1,56,5,4) '括号内填上你测得的一系列数
Dim tempmax As Double
Dim tempmin As Double
tempmax = arrobj(0)
tempmin = arrobj(0)
For i = 0 To UBound(arrobj)
If arrobj(i) > tempmax Then
tempmax = arrobj(i)
End If
If arrobj(i) < tempmin Then
tempmin = arrobj(i)
End If
Next
MsgBox "最大值为：" & tempmax & vbLf & "最小值为：" & tempmin
End Sub
'说明：先假设一个数,这里比如是数组中的第一项为最大值,则逐个与其比较,如果大于它,则将它替代悼.最终得到最大值.
再问： 那些数不是我填的 是计算机自己填的 就是怎么能让计算机自己填 因为这一块是程序的一部分 我提前不知道数是多少
再答： 这些数是怎样得到的有关程序的结构问题，如果是得到的一个数组，则可利用以上代码。如果得到的数不是数组，则每得到一个数后立即进行对比也是一样的。 如果你能确定知道数据的取得方法和形式，我可以适当地对代码进行修改。
Dim arrobj As Variant
arrobj = Array(1,2,3,4,5,6,7,1,3,2,1,56,5,4) '括号内填上你测得的一系列数
Dim tempmax As Double
Dim tempmin As Double
tempmax = arrobj(0)
tempmin = arrobj(0)
For i = 0 To UBound(arrobj)
If arrobj(i) > tempmax Then
tempmax = arrobj(i)
End If
If arrobj(i) < tempmin Then
tempmin = arrobj(i)
End If
Next
MsgBox "最大值为：" & tempmax & vbLf & "最小值为：" & tempmin
End Sub
'说明：先假设一个数,这里比如是数组中的第一项为最大值,则逐个与其比较,如果大于它,则将它替代悼.最终得到最大值.
再问： 那些数不是我填的 是计算机自己填的 就是怎么能让计算机自己填 因为这一块是程序的一部分 我提前不知道数是多少
再答： 这些数是怎样得到的有关程序的结构问题，如果是得到的一个数组，则可利用以上代码。如果得到的数不是数组，则每得到一个数后立即进行对比也是一样的。 如果你能确定知道数据的取得方法和形式，我可以适当地对代码进行修改。
输入n个 数,求出它们的最大值,最小值和平均值?用VB怎么编写程序
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果
问一个VB基础题啊 怎么随机产生10个30到100的数,求最大值、最小值和平均值.输出结果
编写VB程序,在窗体上输入5个整数存放在数组中,找出这些数中最大值和最小值及它们所在的位置,
用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写
在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值
VB 1到N的平方求和怎么写.程序
VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调
n的平方减2 得到的数中质数有无穷个吗?怎么证明
利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
怎样用VB做随机产生10个1－100以内的整型数,求出其的最大值,最小值,平均值