Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Integer
a = T1.Text
b = T2.Text
c = T3.Text
If a > b And a > c Then
L1.Text = a & "最大"
ElseIf b > a And b > c Then
L1.Text = b & "最大"
Else
L1.Text = c & "最大"
End If
End Sub
End Class