home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / codeprnt / vbppdm / test1.bas < prev    next >
Encoding:
BASIC Source File  |  1993-09-21  |  968 b   |  46 lines
  1. Option Explicit
  2.  
  3. Sub Main ()
  4. 'This is a sample program designed to show the functionality of this software
  5. '
  6. ' declare all variables
  7.  
  8. Dim AnyVariable     As Integer
  9. Dim Better          As String
  10. Dim i               As Integer
  11. Dim Many(100)       As Single
  12.  
  13. 'loop to initialize
  14. For i = 1 To 100
  15.    Many(i) = Rnd        'set each element to a random number
  16. Next i
  17.  
  18. Better = "This is a better way to print a listing"
  19.  
  20. AnyVariable = 17 'a more or less random number
  21.  
  22. End Sub
  23.  
  24. Sub Wrapup ()
  25. 'This procedure wraps up processing
  26.  
  27. Dim i As Integer
  28.  
  29. For i = Forms.Count - 1 To 0 Step -1
  30.    Unload Forms(i)                    ' unload any forms
  31. Next i
  32.  
  33. End                                   ' say goodnight
  34.  
  35. '        VB Pretty Printer
  36. '        Aardvark Software Inc.
  37. '        972 Sheffield Road
  38. '        Teaneck, NJ 07666
  39. '        tel 800-4VBASIC
  40. '        tel 201-833-4355
  41. '        fax 201-833-1216
  42. '        CIS 70544,1372
  43.  
  44. End Sub
  45.  
  46.