Public Class Form1
Public course, grade As String
Public gpa, creditHours, totalGradePoints, totalCreditHours, gradePoints, gradePointsFactor As Double
Private Sub Button1_Click( sender As System.Object , e As System.EventArgs ) Handles Button1.Click
Do
course = InputBox( " Enter course name or Cancel to exit " )
If course.ToUpper = "Cancel" Then
Exit Do
End If
creditHours = InputBox( "Enter credit hours for this course" )
totalCreditHours += creditHours
grade = InputBox( "Enter course grade" )
grade = grade.ToUpper
gradePointsFactor = grades( )
gradePoints = creditHours * gradePointsFactor
totalGradePoints += gradePoints
ListBox1.Items .Add ( course & " " & creditHours & " " & grade & " " & gradePoints)
Loop
gpa = totalGradePoints / totalCreditHours
ListBox1.Items .Add ( " " )
ListBox1.Items .Add ( " " )
ListBox1.Items .Add ( "Your total course hours were " & totalCreditHours & ", and your total grade points were " & totalGradePoints)
ListBox1.Items .Add ( "Your GPA is " & gpa)
End Sub
Function grades( )
'Dim GradePoints As Double
If grade = "A" Then
gradePointsFactor = 4
ElseIf grade = "A-" Then
gradePointsFactor = 3.7
ElseIf grade = "B+" Then
gradePointsFactor = 3.33
ElseIf grade = "B" Then
gradePointsFactor = 3
ElseIf grade = "B-" Then
gradePointsFactor = 2.7
ElseIf grade = "C+" Then
gradePointsFactor = 2.3
ElseIf grade = "C" Then
gradePointsFactor = 2
ElseIf grade = "C-" Then
gradePointsFactor = 1.7
ElseIf grade = "D+" Then
gradePointsFactor = 1.3
ElseIf grade = "D" Then
gradePointsFactor = 1
ElseIf grade = "D-" Then
gradePointsFactor = 0.7
ElseIf grade = "F" Then
gradePointsFactor = 0
End If
Return gradePointsFactor
End Function
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
UHVibGljIENsYXNzIEZvcm0xCiAgIFB1YmxpYyBjb3Vyc2UsIGdyYWRlIEFzIFN0cmluZwogICBQdWJsaWMgZ3BhLCBjcmVkaXRIb3VycywgdG90YWxHcmFkZVBvaW50cywgdG90YWxDcmVkaXRIb3VycywgZ3JhZGVQb2ludHMsIGdyYWRlUG9pbnRzRmFjdG9yIEFzIERvdWJsZQogICBQcml2YXRlIFN1YiBCdXR0b24xX0NsaWNrKHNlbmRlciBBcyBTeXN0ZW0uT2JqZWN0LCBlIEFzIFN5c3RlbS5FdmVudEFyZ3MpIEhhbmRsZXMgQnV0dG9uMS5DbGljawogICAgICBEbwogICAgICAgICBjb3Vyc2UgPSBJbnB1dEJveCgiIEVudGVyIGNvdXJzZSBuYW1lIG9yIENhbmNlbCB0byBleGl0ICIpCiAgICAgICAgIElmIGNvdXJzZS5Ub1VwcGVyID0gIkNhbmNlbCIgVGhlbgogICAgICAgICAgICBFeGl0IERvCiAgICAgICAgIEVuZCBJZgogICAgICAgICBjcmVkaXRIb3VycyA9IElucHV0Qm94KCJFbnRlciBjcmVkaXQgaG91cnMgZm9yIHRoaXMgY291cnNlIikKICAgICAgICAgdG90YWxDcmVkaXRIb3VycyArPSBjcmVkaXRIb3VycwogICAgICAgICBncmFkZSA9IElucHV0Qm94KCJFbnRlciBjb3Vyc2UgZ3JhZGUiKQogICAgICAgICBncmFkZSA9IGdyYWRlLlRvVXBwZXIKICAgICAgICAgZ3JhZGVQb2ludHNGYWN0b3IgPSBncmFkZXMoKQogICAgICAgICBncmFkZVBvaW50cyA9IGNyZWRpdEhvdXJzICogZ3JhZGVQb2ludHNGYWN0b3IKICAgICAgICAgdG90YWxHcmFkZVBvaW50cyArPSBncmFkZVBvaW50cwogICAgICAgICBMaXN0Qm94MS5JdGVtcy5BZGQoY291cnNlICYgIiAiICYgY3JlZGl0SG91cnMgJiAiICIgJiBncmFkZSAmICIgIiAmIGdyYWRlUG9pbnRzKQogICAgICBMb29wCiAgICAgIGdwYSA9IHRvdGFsR3JhZGVQb2ludHMgLyB0b3RhbENyZWRpdEhvdXJzCiAgICAgIExpc3RCb3gxLkl0ZW1zLkFkZCgiICIpCiAgICAgIExpc3RCb3gxLkl0ZW1zLkFkZCgiICIpCiAgICAgIExpc3RCb3gxLkl0ZW1zLkFkZCgiWW91ciB0b3RhbCBjb3Vyc2UgaG91cnMgd2VyZSAiICYgdG90YWxDcmVkaXRIb3VycyAmICIsIGFuZCB5b3VyIHRvdGFsIGdyYWRlIHBvaW50cyB3ZXJlICIgJiB0b3RhbEdyYWRlUG9pbnRzKQogICAgICBMaXN0Qm94MS5JdGVtcy5BZGQoIllvdXIgR1BBIGlzICIgJiBncGEpCiAgIEVuZCBTdWIKICAgRnVuY3Rpb24gZ3JhZGVzKCkKICAgICAgJ0RpbSBHcmFkZVBvaW50cyBBcyBEb3VibGUgCiAgICAgIElmIGdyYWRlID0gIkEiIFRoZW4KICAgICAgICAgZ3JhZGVQb2ludHNGYWN0b3IgPSA0CiAgICAgIEVsc2VJZiBncmFkZSA9ICJBLSIgVGhlbgogICAgICAgICBncmFkZVBvaW50c0ZhY3RvciA9IDMuNwogICAgICBFbHNlSWYgZ3JhZGUgPSAiQisiIFRoZW4KICAgICAgICAgZ3JhZGVQb2ludHNGYWN0b3IgPSAzLjMzCiAgICAgIEVsc2VJZiBncmFkZSA9ICJCIiBUaGVuCiAgICAgICAgIGdyYWRlUG9pbnRzRmFjdG9yID0gMwogICAgICBFbHNlSWYgZ3JhZGUgPSAiQi0iIFRoZW4KICAgICAgICAgZ3JhZGVQb2ludHNGYWN0b3IgPSAyLjcKICAgICAgRWxzZUlmIGdyYWRlID0gIkMrIiBUaGVuCiAgICAgICAgIGdyYWRlUG9pbnRzRmFjdG9yID0gMi4zCiAgICAgIEVsc2VJZiBncmFkZSA9ICJDIiBUaGVuCiAgICAgICAgIGdyYWRlUG9pbnRzRmFjdG9yID0gMgogICAgICBFbHNlSWYgZ3JhZGUgPSAiQy0iIFRoZW4KICAgICAgICAgZ3JhZGVQb2ludHNGYWN0b3IgPSAxLjcKICAgICAgRWxzZUlmIGdyYWRlID0gIkQrIiBUaGVuCiAgICAgICAgIGdyYWRlUG9pbnRzRmFjdG9yID0gMS4zCiAgICAgIEVsc2VJZiBncmFkZSA9ICJEIiBUaGVuCiAgICAgICAgIGdyYWRlUG9pbnRzRmFjdG9yID0gMQogICAgICBFbHNlSWYgZ3JhZGUgPSAiRC0iIFRoZW4KICAgICAgICAgZ3JhZGVQb2ludHNGYWN0b3IgPSAwLjcKICAgICAgRWxzZUlmIGdyYWRlID0gIkYiIFRoZW4KICAgICAgICAgZ3JhZGVQb2ludHNGYWN0b3IgPSAwCiAgICAgIEVuZCBJZgogICAgICBSZXR1cm4gZ3JhZGVQb2ludHNGYWN0b3IKICAgRW5kIEZ1bmN0aW9uCgogICBQcml2YXRlIFN1YiBCdXR0b24yX0NsaWNrKHNlbmRlciBBcyBTeXN0ZW0uT2JqZWN0LCBlIEFzIFN5c3RlbS5FdmVudEFyZ3MpIEhhbmRsZXMgQnV0dG9uMi5DbGljawogICAgICBMaXN0Qm94MS5JdGVtcy5DbGVhcigpCiAgIEVuZCBTdWIKCiAgIFByaXZhdGUgU3ViIEJ1dHRvbjNfQ2xpY2soc2VuZGVyIEFzIFN5c3RlbS5PYmplY3QsIGUgQXMgU3lzdGVtLkV2ZW50QXJncykgSGFuZGxlcyBCdXR0b24zLkNsaWNrCiAgICAgIE1lLkNsb3NlKCkKICAgRW5kIFN1YgpFbmQgQ2xhc3MK
compilation info
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
/home/WsGhqh/prog.vb (25,12) : Warning VBNC42024: Function without an 'As' clause; Object return type assumed.
/home/WsGhqh/prog.vb (4,94) : Error VBNC30451: Could not resolve the name 'Button1'
/home/WsGhqh/prog.vb (17,19) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/WsGhqh/prog.vb (20,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/WsGhqh/prog.vb (21,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/WsGhqh/prog.vb (22,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/WsGhqh/prog.vb (23,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/WsGhqh/prog.vb (55,94) : Error VBNC30451: Could not resolve the name 'Button2'
/home/WsGhqh/prog.vb (56,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/WsGhqh/prog.vb (59,94) : Error VBNC30451: Could not resolve the name 'Button3'
/home/WsGhqh/prog.vb (60,10) : Error VBNC30456: 'Close' is not a member of 'Form1'.
There were 10 errors and 1 warnings.
Compilation took 00:00:00.9598970
stdout