Public Class Form1
Function Function (By Val show())
Dim a,b,c as single
a=CSNG (textbox1.text)
b=CSNG (textbox2.text)
b=CSNG (textbox3.text)
If a>=b& a>=c then
label1.text=a
Elseif a>=b & a<c then
label1.text=b
Elseif a<b & b<c then
label1.text=c
End if
Return label1.text
End Function
Private Sub Button_Click(By Val-----)
show()
End Sub
End Class作者: Unlife 時間: 2009-5-6 12:53 PM