Anything Forums

Code: Select all

' Tests my neophyte programming skills!

' I am honing in my skills and practicing on programming!

' A student database with name and grade.



Dim stds$(100) ' Allows for at most 100 student entries.

Dim stdga(100) ' Allows for at most 100 student grade entries.

Print "Student Database Storage Program" ' Prints fallacious title of so called "program".

Print "Enter up to 100 students into the database." ' Directions for user.

Print ' Prints an extra blank line.

[Beginning] ' Anchor for later "Goto"

    Print "*********************************************************************" ' Prints a line separating the inputs with actual printed list data for clearer view.

    Input "How many students in total? "; nums ' User enters the total number of students.

    If (nums = 0) Then

        Print "Sorry, do not enter 0 or a non-numeric symbol. Try again. "

        Goto [Beginning] ' Returns to beginning after printing an error message if the user enters an invalid value for "nums".

    Else

        For i = 1 to nums ' Reiterates the below process as many times as there are students.

            Input "Enter full name of student: "; std$ ' Name of student entered here.

            stds$(i) = std$ ' Sets array value to assign each individual student a unique "stds$" id.

            Input "Enter that student's grade: "; stdg ' The student's grade is entered here.

            stdga(i) = stdg ' Each individual student's grade is stored with a unique "stdga" id.

            Gradetotal = Gradetotal + stdga(i) ' Counter to add up total points for calculating the average.

        Next i

        Input "Do you want to view the complete list of names? (y/n) "; ans$ ' Asks user if he/she wants to view the complete list of entered names.

        If (ans$ <> "no") and (ans$ <> "No") and (ans$ <> "NO") and (ans$ <> "n") and (ans$ <> "N") and (ans$ <> "nO") Then ' Basically, if the user wants...

            Print "*********************************************************************" ' Prints a line separating the inputs with actual printed list data for clearer view.

            Print "Name  -  Grade"

            Print

            For i = 1 to nums

                Print stds$(i);" ";"-";" ";stdga(i) ' Prints name and grade for each student.

            Next i

            Print

            Print "The average grade for this list of ";nums;" ";"students is ";(Gradetotal / nums);"." ' Displays the average score.

        End If

        Print

        Input "Do you want to enter a new list? (y/n) "; new$ ' Asks user if he/she wants to repeat the entire process again.

        If (new$ <> "no") and (new$ <> "No") and (new$ <> "NO") and (new$ <> "n") and (new$ <> "N") and (new$ <> "nO") Then

            Gradetotal = 0 ' Resets Gradetotal value to 0 if the process is to be repeated.

            Print

            Goto [Beginning] ' If the user wants to do it again, this loops the whole process.

        End If

    End If

End