VB取最大值和最小值通过测量得到的N个0到100的数 怎么从中得到最值 最好有程序
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/15 09:50:40
VB取最大值和最小值
通过测量得到的N个0到100的数 怎么从中得到最值 最好有程序
通过测量得到的N个0到100的数 怎么从中得到最值 最好有程序
![VB取最大值和最小值通过测量得到的N个0到100的数 怎么从中得到最值 最好有程序](/uploads/image/z/19289827-19-7.jpg?t=VB%E5%8F%96%E6%9C%80%E5%A4%A7%E5%80%BC%E5%92%8C%E6%9C%80%E5%B0%8F%E5%80%BC%E9%80%9A%E8%BF%87%E6%B5%8B%E9%87%8F%E5%BE%97%E5%88%B0%E7%9A%84N%E4%B8%AA0%E5%88%B0100%E7%9A%84%E6%95%B0+%E6%80%8E%E4%B9%88%E4%BB%8E%E4%B8%AD%E5%BE%97%E5%88%B0%E6%9C%80%E5%80%BC+%E6%9C%80%E5%A5%BD%E6%9C%89%E7%A8%8B%E5%BA%8F)
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以内的整型数,求出其的最大值,最小值,平均值