VBI 4.PNG

Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b And a > c Then
    Label4 = "Largest Number = " & a
ElseIf b > c Then
    Label4 = "Largest Number = " & b
Else
    Label4 = "Largest Number = " & c
End If
End Sub

VBO 4.PNG

Advertisements