Maximum Number Calculator

 

This program lets the user input three hidden numbers and the program can calculate the maximum number among the three numbers. To type the password in a hidden mode, you have to set the PasswordChar property to alphanumeric symbols such as * .

You can create a function called calMax that consists of three arguments x,y, z .You also need to write a procedure to call this function. This procedure should employs the  If Then ElseIf statements and the conditional operators to determine the maximum number. The function Str is used to convert a numeric to string.

The Interface

 

The Code

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

 

 
 

 

 

 

 

[Back to Sample VB Programs]
 

Copyright ® 2008 Dr.Liew Voon Kiong . All rights reserved |Contact:admin@vbtutor.net

[Privacy Policy]