01.
Module
Module1
02.
03.
Sub
Main()
04.
Dim
x
As
Integer
05.
Dim
i
As
Integer
06.
Dim
score
As
Integer
07.
Dim
NumF, NumD, NumDD, NumA
As
Integer
08.
Dim
max, min, max2, min2, sum
As
Integer
09.
max = 0
10.
min = 100
11.
Dim
avg
As
Double
12.
13.
While
x <> 6
14.
Console.WriteLine(
" "
)
15.
Console.WriteLine(
"Menu"
)
16.
Console.WriteLine(
"*****************************"
)
17.
Console.WriteLine(
"1. Input and show grade"
)
18.
Console.WriteLine(
"2. Max and SecondaryMax score"
)
19.
Console.WriteLine(
"3. Min and SecondaryMin score"
)
20.
Console.WriteLine(
"4. Average score"
)
21.
Console.WriteLine(
"5. Show Frequency of each grade"
)
22.
Console.WriteLine(
"Enter choice : "
)
23.
24.
x = Console.ReadLine
25.
If
x = 1
Then
26.
Console.WriteLine(
"Input and show grade"
)
27.
For
i = 1
To
10
Step
1
28.
29.
30.
Console.Write(
"Enter int score no :"
& i &
" "
)
31.
score = Console.ReadLine
32.
33.
While
score < 0
Or
score > 100
34.
Console.WriteLine(
"Invalid"
)
35.
Console.Write(
"Enter int score no :"
& i &
" "
)
36.
score = Console.ReadLine
37.
End
While
38.
39.
40.
sum = sum + score
41.
Select
Case
score
42.
Case
0
To
50
43.
Console.WriteLine(
"F"
)
44.
NumF += 1
45.
46.
Case
51
To
60
47.
Console.WriteLine(
"D"
)
48.
NumD += 1
49.
Case
61
To
70
50.
Console.WriteLine(
"D+"
)
51.
NumDD += 1
52.
Case
71
To
100
53.
Console.WriteLine(
"A"
)
54.
NumA += 1
55.
End
Select
56.
Next
57.
End
If
58.
If
x = 2
Then
59.
Console.WriteLine(
"Max and SecondaryMax score"
)
60.
Console.WriteLine(
"- - - - - - - - - - - - - -"
)
61.
If
score > max
Then
62.
max2 = max
63.
max = score
64.
ElseIf
score > max2
Then
65.
max2 = score
66.
End
If
67.
End
If
68.
If
x = 3
Then
69.
Console.WriteLine(
"Min and SecondaryMin score"
)
70.
Console.WriteLine(
"- - - - - - - - - - - - - -"
)
71.
ElseIf
score < min
Then
72.
min2 = min
73.
min = score
74.
ElseIf
score < min2
Then
75.
min2 = score
76.
End
If
77.
78.
If
x = 4
Then
79.
Console.WriteLine(
"Average score"
)
80.
Console.WriteLine(
"- - - - - - - - - - - - - - -"
)
81.
avg = sum / 10
82.
Console.WriteLine(
"Average score = "
& avg)
83.
ElseIf
x = 5
Then
84.
Console.WriteLine(
"Show Frequency of each grade"
)
85.
Console.WriteLine(
"- - - - - - - - - - - - - - -"
)
86.
Console.WriteLine(
"Number of grade A = "
& NumA)
87.
Console.WriteLine(
"Number of grade D+ = "
& NumDD)
88.
Console.WriteLine(
"Number of grade D = "
& NumD)
89.
Console.WriteLine(
"Number of grade F = "
& NumF)
90.
91.
End
If
92.
93.
End
While
94.
95.
End
Sub
96.
97.
End
Module