Module Module1
Sub Main()
Dim EmployeeName As String
Dim EmployeePhoneNumber As String
Dim EmployeeSalary As Double
Dim NumberOfEmployees As Integer
EmployeeName = "James Bond"
EmployeePhoneNumber = "555-1212"
EmployeeSalary = 45.0
NumberOfEmployees = 1
Console.WriteLine("Number of employees: " & NumberOfEmployees)
Console.WriteLine("Employee name: " & EmployeeName)
Console.WriteLine("Employee phone number: " & EmployeePhoneNumber)
Console.WriteLine("Employee salary: " & EmployeeSalary)
End Sub
End Module
|