home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / VBONLINE / VBONLINE.M14 / bm522 (.png) < prev    next >
Multiple Resolution Bitmap  |  1997-04-07  |  17.6 KB  |  574x440  |  4-bit (10 colors)
   ocr: Project1 - Form1 OX Form Click Private Sub Form Click() Dim intage As Integer Dim intRestRate As Integer Dim intTrainRate As Integer intage = Val(txtage.Text) intkestRate = txtRestRate.Text intTrainRate = ((220 - intage - intRestRate) * 0.65) CxtReadout.. Text = Str$ (intTrainRate) & Pr beats per minute" End Sub Hicrosoft Visual Basic SATEE = - 13': AAULAC ER (E) BBLEO #SEDOD