VB作业！！速输入三个数，输出其中最大的数、最小的数，求代码....

VB作业！！速输入三个数，输出其中最大的数、最小的数，求代码....

你这是要写个函数，还是要完整的程序啊？
函数如下：
Function FindMaxMin(x,y,z)as Variant
dim iMax,iMin as Variant
dim VA(1 to 2) as Variant
iMax=x
iMin=x
if iMax<y then iMax=y
if iMax<z then iMax=z
if iMin>y then iMin=y
if iMin>z then iMin=z
VA(1)=iMax
VA(2)=iMin
FindMaxMin=VA
end function
函数范围一个数组，第一个元素为最大值，第二个元素为最小值

Private Sub Command1_Click() Dim a%, b%, c%, t% a = InputBox("输入你要比较的数：", "提示", 1) b = InputBox("输入你要比较的数：", "提示", 1) c = InputBox("输入你要比较的数：", "提示", 1) If a < b Then t = a: a = b: b = t End If If a < c Then t = c: c = a: a = t End If If b < c Then t = c: c = b: b = t End If Print a; ">"; b; ">"; c End Sub

在键盘按下那个事件里写！判断按下的键的ascll码就可以了！那个码表网上一堆！随便找个看下就可以了！好像a的码是94吧！记不清了