vb.netmin,vbnet命名空间代码

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 简单基础小问题

t= min : min = i : min = i

和t= min

min = i

min = i一个意思

cstr是一个把任意类型转成字符串的函数。

比起Str来说，转换时不会在头上加空格

rnd()随机函数 ≥0 ＜1 就按这算，

Int(10+89*Rnd())+1 先去整（Int）再加一，11到100 不包含100 包含1 1.

Xor 抑或 T XOR F = T T XOR T =F

一真一假为真 否者为假

Q2: 问一个VB.NET中关于时间操作的问题。

1、时间可以直接比较大小，定义两个时间的变量，直接使用或者即可判断，跟数据大小判断是一样的

2、时间差值，可以使用DateDiff函数进行

3、比如取一个现在的时间now，使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒