vb.net怎么求最大值 VB任意五个数求最大值
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://pwwzsj.com/article/dodcdph.html
