fork download

copy

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 EXIT to exit ")
         If course.ToUpper = "EXIT" 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
End Class
 

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/L58qOR/prog.vb (25,12) : Warning VBNC42024: Function without an 'As' clause; Object return type assumed.
/home/L58qOR/prog.vb (4,94) : Error VBNC30451: Could not resolve the name 'Button1'
/home/L58qOR/prog.vb (17,19) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/L58qOR/prog.vb (20,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/L58qOR/prog.vb (21,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/L58qOR/prog.vb (22,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
/home/L58qOR/prog.vb (23,16) : Error VBNC30451: Could not resolve the name 'ListBox1'
There were 6 errors and 1 warnings.
Compilation took 00:00:01.0422730

Standard output is empty