Program: Maximum number in three numbers in visual basic


Program: Maximum number in three numbers

User Interface


 



Coding:
Function calMax(x, y, z As Variant)

If x > y And x > z Then

calMax = Str(x)
ElseIf y > x And y > z Then
calMax = Str(y)
ElseIf z > x And z > y Then

calMax = Str(z)


End If


End Function


Private Sub Command1_Click()
Dim a, b, c
a = Val(Txt_Num1.Text)
b = Val(Txt_Num2.Text)
c = Val(Txt_Num3.Text)


Lbl_Display.Caption = calMax(a, b, c)


End Sub

Private Sub Label5_Click()

End Sub

Private Sub Form_Load()

End Sub

Comments

Post a Comment

Popular posts from this blog

Program for calculating Simple Interest using the concept of Default Arguments

Data communication Terminology

Program for Checking whether the given number is Palindrome or not