Did you know? Slexy can save your Name, Language, and Line Numbers preferences. Just click on 'Save Settings' before pasting.
| Author: Anonymous |
Language: text |
| Description: No description |
Timestamp: 2008-10-11 17:21:14 -0400 |
Begin
Dim ID As String
Dim LastName As String
Dim FirstName As String
Dim DOB As String
Dim DOH As String
Dim ManagerID As String
Dim Full As String
Dim pay As String
Dim dummy As String
Dim manager As Integer
Dim Part_time As Integer
Dim Full_time As Integer
manager = 0
Part_time = 0
Full_time = 0
Open "employee" For Input As #3
Input #3, ID
If ID = "0236781" Then
Input #3, LastName
Input #3, FirstName
Input #3, DOH
Else
Input #3, dummy
Input #3, dummy
Input #3, dummy
Input #3, dummy
End If
Input #3, ManagerID
If ManagerID = "032485" Then
manager = manager + 1
Input #3, dummy
Input #3, dummy
End If
Input #3, Full
If Full = True Then
Full_time = Full_time + 1
Input #3, dummy
ElseIf Full = False Then
Part_time = Part_time + 1
End If
Dim total As Integer
total = Part_time + Full_time
Close fn
Print "Employee # 236781", "Last Name", LastName, "First Name", FirstName
Print "Manager ID # 32485", "Employees Under Manager is", manager
Print "Percentage of Part time workers to Full time workers", (Part_time / total) * 100, "%"
End
