正文
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
相关问答
Q1: VB.net当中用数学函数math.sin出现的问题
-1.52341E-13
科学计数法，10的-13次方表示此数已经接近于0了，应该是single类型的精度导致的，你把精度设置适当应该就可以了。
Q2: vb.net怎么使用函数返回值。。。比如function a() As String 返回一个值，在function b()里怎么使用
1、我有一个function，如下：
function b()
'...
return "abc"
end function
2、调用时，这样子用：
Response.write(b());
3、运行结果:
abc
Q3: vb.net 编写一个函数
注意：参数为动态数组；
Private Function MyF(ByRef d() As Integer)
ReDim d(4, 13) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim MyNum(4) As Integer
For i = 1 To 4
MyNum(i) = 0
Next i
Randomize
For i = 1 To 4
For j = 1 To 13
n = Int(Rnd * 4 + 1)
Do While MyNum(n) = 13
n = Int(Rnd * 4 + 1)
Loop
d(i, j) = n
MyNum(n) = MyNum(n) + 1
Next j
Next i
End Function
