FIT 100
© Copyright University of
Washington 1999-2000
Including A Procedure
vThe fact that a guess must be made in three places is motivation to
define a procedure to make the guess (despite the fact that it is a trivial
computation)
Option
Explicit
Dim loSide As Integer
Dim increment As
Integer
Private Sub guess()
lblGuess.Caption = loSide + increment
End Sub
Private Sub Form_Load()
increment = 100
loSide = 0
Call guess
End Sub
lblGuess.Caption = loSide +
increment