锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net怎么求最大值 vb求最大值和最小值和平均值

IT技术最大值

vb如何确定最大值 下面6个步骤帮你解决1、在窗体上添加一个命令按钮 。
2、对控件进行命名vb.net怎么求最大值，分别为“输出”和“退出”vb.net怎么求最大值，并设置窗体中命令按钮vb.net怎么求最大值的属性 。
3、双击“输出”命令按钮，编辑其代码 。
4、双击“退出”命令按钮，编辑其代码 。
5、运行程序，点击“输出”命令按钮，跳出下面的页面 。随机输入三个数字 ， 比较它们的大小 。假设比较6，3, 7 三个数字的大小 。
6、在页面中输入数字“6”，点击“确定”，再依次输入“3”，“7”数字 。
VB中如何求最大值和最小值，我写了下面的代码可是只能求最大值和平均值 。最小值一直显示0原因：代码不正确造成的 。
1、首先打开需要编辑的Excel表格vb.net怎么求最大值，进入到编辑页面中 。
2、然后在编辑的窗口中vb.net怎么求最大值，鼠标右键单击工作表vb.net怎么求最大值，选择打开“查看代码” 。
3、然后在弹出来的窗口中点击输入下方的代码：
Private Sub Command1_Click()
Dim Num As Integer, Max As Integer, Min As Integer, s As Integer
For i = 1 To 20
Num = Int(150 * Rnd50)
Print Num;
If i = 1 Then Max = Num: Min = Num '第一次循环时，先对最大最小值赋初值
If MaxNum Then Max = Num
If MinNum Then Min = Num
s = sNum
Next i
Print '换行
Print "最大值："; Max;
Print "最小值："; Min; "平均值："; s / 20
End Sub
4、然后点击工具栏中的“运行”图标 。
5、然后就完成了 。
怎么编写VB 取最大值求最大值就是 ， 取第一个数给临时变量，然后用临时变量去跟数组的数比较，如果数组的值大于临时变量的值，则用数组的值替换临时变量的值，数组检索完成最后得到的就是数组里面最大的值 。取最小值也是一样的道理 。
例子，取最大最小值：
Private Function Max(Data() As Double) As Double'求实数最大值函数
Dim i As Long
Dim x1 As Long, x2 As Long
x1 = LBound(Data)
x2 = UBound(Data)
Max = Data(x1)
For i = x1 To x2
If Data(i) = Max Then Max = Data(i)'如果数组当前值比Max值大，替换Max中的值
Next
End Function
Private Function Min(Data() As Double) As Double'求实数最小值函数
Dim i As Long
Dim x1 As Long, x2 As Long
x1 = LBound(Data)
x2 = UBound(Data)
Min = Data(x1)
For i = x1 To x2
If Data(i) = Min Then Min = Data(i)'如果数组当前值比Min值大，替换Min中的值
Next
End Function
Private Sub Command1_Click()'点击按钮求随机数组最大值
Dim a As Integer, b As Integer
Dim Maxs As Double, Mins As Double
Dim temps(100) As Double
Randomize'定义生成的随机数为不重复模式
For i = 0 To 100
If Rnd()0.5 Then temps(i) = 100 * Rnd() Else temps(i) = -100 * Rnd() '生成101个100以内的随即实数
Next
Maxs = Max(temps)'调用Max函数求实数最大值
Mins = Min(temps)'调用Min函数求实数最小值
Me.Cls
Me.Print Maxs'显示实数到窗体
Me.Print Mins
End Sub
vb.net程序，利用随机函数产生100个1到100之间的整数，求其中的最大最小值 。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()'产生随机数种子 以防止每次生成结果都一样
Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer'声明两个变量存最大值和最小值
min = 1000 : max = 0 '设置初值
For i = 0 To 99'循环100次
a(i) = Int(Rnd() * 10001) '用rnd生成一个随机数由于rnd范围为0-1之间vb.net怎么求最大值的小数.所以*1000设置vb.net怎么求最大值他vb.net怎么求最大值的范围为0到999之间 加1变成1到1000之间
If a(i) = max Then max = a(i) '如果当前数值大于最大值vb.net怎么求最大值的变量就保存
If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存
Next
MsgBox("最大值为"max)
MsgBox("最小值为"min)
End Sub
vb 。net中的最大值及最小值函数的编写'vb.net2008
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim min, max As Integer
Dim a() As Integer = {3, 2, 4, 1}
min = Proc(a)(0)
max = Proc(a)(1)
End Sub
Private Function Proc(ByVal a() As Integer)
Dim a_out(a.GetUpperBound(0)), a_m(1) As Integer
System.Array.Copy(a, a_out, a.GetUpperBound(0)1)
System.Array.Sort(a_out)
a_m(0) = a_out(0)
a_m(1) = a_out(a_out.GetUpperBound(0))
Return a_m
End Function
End Class
用vb.net求三个数中的最大值以及最小值函数的编写MaxOrMin 指示返回最大还是最小.
Private Function Math(ByVal num1 As Integer, ByVal num2 As Integer, ByVal num3 As Integer, ByVal MaxOrMin As Short) As Integer
Dim s() As Integer = {num1, num2, num3}
Dim max, min As Integer
If s(0)s(1) Then
min = s(0)
max = s(1)
End If
If s(1)s(2) Then
min = s(1)
max = s(2)
End If
If MaxOrMin = 0 Then Return max
If MaxOrMin = 1 Then Return min
End Function
【vb.net怎么求最大值 vb求最大值和最小值和平均值】关于vb.net怎么求最大值和vb求最大值和最小值和平均值的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：电脑属于财务什么类别，电脑属于什么项目

    下一篇：小米手机系统下载，小米手机系统安装包