001.
Module
Module1
002.
003.
Sub
Main()
004.
005.
Dim
x
As
Integer
006.
Dim
i
As
Integer
007.
Dim
score
As
Integer
008.
Dim
NumF, NumD, NumDD, NumA
As
Integer
009.
Dim
max, min, max2, min2, sum
As
Integer
010.
max = 0
011.
min = 100
012.
Dim
avg
As
Double
013.
014.
While
x <> 6
015.
Console.WriteLine(
" "
)
016.
Console.WriteLine(
"Menu"
)
017.
Console.WriteLine(
"*****************************"
)
018.
Console.WriteLine(
"1. Input and show grade"
)
019.
Console.WriteLine(
"2. Max and SecondaryMax score"
)
020.
Console.WriteLine(
"3. Min and SecondaryMin score"
)
021.
Console.WriteLine(
"4. Average score"
)
022.
Console.WriteLine(
"5. Show Frequency of each grade"
)
023.
024.
Console.WriteLine(
"Enter choice : "
)
025.
026.
x = Console.ReadLine
027.
If
x = 1
Then
028.
Console.WriteLine(
"Input and show grade"
)
029.
For
i = 1
To
10
Step
1
030.
031.
032.
Console.Write(
"Enter int score no :"
& i &
" "
)
033.
score = Console.ReadLine
034.
035.
While
score < 0
Or
score > 100
036.
Console.WriteLine(
"Invalid"
)
037.
Console.Write(
"Enter int score no :"
& i &
" "
)
038.
score = Console.ReadLine
039.
End
While
040.
041.
042.
sum = sum + score
043.
Select
Case
score
044.
Case
0
To
50
045.
Console.WriteLine(
"F"
)
046.
NumF += 1
047.
048.
Case
51
To
60
049.
Console.WriteLine(
"D"
)
050.
NumD += 1
051.
Case
61
To
70
052.
Console.WriteLine(
"D+"
)
053.
NumDD += 1
054.
Case
71
To
100
055.
Console.WriteLine(
"A"
)
056.
NumA += 1
057.
End
Select
058.
Next
059.
End
If
060.
If
x = 2
Then
061.
Console.WriteLine(
"Max and SecondaryMax score"
)
062.
Console.WriteLine(
"- - - - - - - - - - - - - -"
)
063.
If
score > max
Then
064.
max2 = max
065.
max = score
066.
ElseIf
score > max2
Then
067.
max2 = score
068.
End
If
069.
End
If
070.
071.
If
x = 3
Then
072.
Console.WriteLine(
"Min and SecondaryMin score"
)
073.
Console.WriteLine(
"- - - - - - - - - - - - - -"
)
074.
If
score < min
Then
075.
min2 = min
076.
min = score
077.
ElseIf
score < min2
Then
078.
min2 = score
079.
End
If
080.
End
If
081.
If
x = 4
Then
082.
Console.WriteLine(
"Average score"
)
083.
Console.WriteLine(
"- - - - - - - - - - - - - - -"
)
084.
avg = sum / 10
085.
Console.WriteLine(
"Average score = "
& avg)
086.
ElseIf
x = 5
Then
087.
Console.WriteLine(
"Show Frequency of each grade"
)
088.
Console.WriteLine(
"- - - - - - - - - - - - - - -"
)
089.
Console.WriteLine(
"Number of grade A = "
& NumA)
090.
Console.WriteLine(
"Number of grade D+ = "
& NumDD)
091.
Console.WriteLine(
"Number of grade D = "
& NumD)
092.
Console.WriteLine(
"Number of grade F = "
& NumF)
093.
End
If
094.
095.
End
While
096.
097.
End
Sub
098.
099.
End
Module