正文
vb.netmin取小 vb取数值
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.Net中取得一行数据中的最大值与最小值?怎么做？求大神指教!!
正如一楼所说vb.netmin取小，vb.netmin取小你值得是界面中vb.netmin取小的数据vb.netmin取小，还是数据库内的数据vb.netmin取小？请详细描述啊。。。
相关问答
Q1: VB.NET怎么作一题，产生10个100以内的随机正整数，求最大，最小值，并显示。
'产生10个正整数
Dim intArr(10) As Integer
For i As Integer = 1 To 10
intArr(i - 1) = Int(Rnd() * 99) + 1
Next
'取最小值
Dim intMin As Integer = intArr(0)
For j As Integer = 1 To UBound(intArr) - 1
If intMin intArr(j) Then intMin = intArr(j)
Next
'取最大值
Dim intMax As Integer = intArr(0)
For j As Integer = 1 To UBound(intArr) - 1
If intMax intArr(j) Then intMax = intArr(j)
Next
Dim strTemp As String = ""
For tempi As Integer = 0 To UBound(intArr) - 1
strTemp = strTemp intArr(tempi) ","
Next
MessageBox.Show(strTemp ControlChars.CrLf "min: " intMin.ToString ControlChars.CrLf "max: " intMax.ToString)
Q2: VB中怎么用函数MAX和MIN 求出一组数据的最大值和最小值
您好，VB中没有MAX和MIN函数,不过你可以自己编程实现。
给你一个求随机产生6个两位正整数的例子：
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
Randomize
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Max = a(1)
Min = a(1)
For i = 1 To 6
If Max a(i) Then Max = a(i)
If Min a(i) Then Min = a(i)
Next i
Print "最大值为：" Max
Print "最小值为：" Min
End Sub
Q3: 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之间vb.netmin取小的小数.所以*1000设置vb.netmin取小他vb.netmin取小的范围为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
Q4: 用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
Q5: 在VB中 如何定义一个命令 比定义一个min （a,b) 取出二者之中的最小值
你是说定义一个函数min？
Function
min(a
As
Single,b
As
Single)
As
Single
If
a
b
Then
min
=
a
Else
min
=
b
End
Function
把这段代码写进去，你就可以使用min(a,b)了
vb.netmin取小的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb取数值、vb.netmin取小的信息别忘了在本站进行查找喔。
