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程序，利用随机函数产生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() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间

If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存

If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存

Next

MsgBox("最大值为" max)

MsgBox("最小值为" min)

End Sub

用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中如何求最大值和最小值，我写了下面的代码可是只能求最大值和平均值。最小值一直显示0

原因：代码不正确造成的。

1、首先打开需要编辑的Excel表格，进入到编辑页面中。

2、然后在编辑的窗口中，鼠标右键单击工作表，选择打开“查看代码”。

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 * Rnd + 50)

Print Num;

If i = 1 Then Max = Num: Min = Num '第一次循环时，先对最大最小值赋初值

If Max Num Then Max = Num

If Min Num Then Min = Num

s = s + Num

Next i

Print '换行

Print "最大值："; Max;

Print "最小值："; Min; "平均值："; s / 20

End Sub

4、然后点击工具栏中的“运行”图标。

5、然后就完成了。

vb如何确定最大值 下面6个步骤帮你解决

1、在窗体上添加一个命令按钮。

2、对控件进行命名，分别为“输出”和“退出”，并设置窗体中命令按钮的属性。

3、双击“输出”命令按钮，编辑其代码。

4、双击“退出”命令按钮，编辑其代码。

5、运行程序，点击“输出”命令按钮，跳出下面的页面。随机输入三个数字，比较它们的大小。假设比较6，3, 7 三个数字的大小。

6、在页面中输入数字“6”，点击“确定”，再依次输入“3”，“7”数字。

网站标题：vb.net怎么求最大值 VB任意五个数求最大值
网站路径：http://scyingshan.cn/article/dodcdph.html