Computer Programming Concepts and Visual Basic David I. Schneider

EXAMPLE 1
The following program evaluates each of the functions for a specific input given by the value of the variable
n.
Private Sub cmdEvaluate_Click()
Dim n As Single, root As Single
‘Evaluate functions at a variable
picResults.Cls
n = 6.76
root = Sqr(n)
picResults.Print root; Int(n); Round(n,1)
End Sub
[Run and then click the command button. The following is displayed in the picture box.]
2.6 6 6.8
EXAMPLE 2
The following program evaluates each of the preceding functions at an expression.
Private Sub cmdEvaluate_Click()
Dim a As Single, b As Single
‘Evaluate functions at expressions
picResults.Cls
a = 2
b = 3
picResults.Print Sqr(5 * b + 1); Int(a ^ b); Round(a / b, 3)
End Sub
[Run and then click the command button. The following is displayed in the picture box.]
4 8 0.667
EXAMPLE 3
The following program shows an application of the Sqr function.
Private Sub cmdComputeHyp_Click()
Dim leg1 As Single, leg2 As Single, hyp As Single
‘Find the length of the hypotenuse of a right triangle
picHyp.Cls
leg1 = Val(txtFirst.Text)
leg2 = Val(txtSecond.Text)
hyp = Sqr(leg1 ^ 2 + leg2 ^ 2)
picHyp.Print “The length of the hypotenuse is”; hyp
End Sub
[Run, type 3 and 4 into the text boxes, and then click the command button.]
Built-In Functions 59