Visual Basic Help:
Code a program that reads a test score (number) from a text-box, each time a button is clicked. In other words, every time a new score is entered in the text-box, the score should be taken by the program, stored and the text-box should be cleared, so that the user can enter a new score. The program should be able to check that the user is entering a number. If the user enters something different than a number (or leaves the text-box empty), the program should not continue and it should display a warning message to the user. After entering as many scores as wanted, the user should be able to click on a second button to display the two highest scores, among all the ones entered until that point. The program should also display the total number of scores entered by the user. Also, once the user clicks on the button to display the results and the results are displayed, the program should get ready to get a new set of scores and start again. If the user starts writing a new score, the text-boxes with the results should be cleared.
Example: Assume the user enters the following scores: 10, 5, 20. The scores are entered once at the time in the top text-box; when a score is entered, the user presses the button to "Read" the score. The score is taken by the program and the text-box is cleared, so that the next score can be entered. This process can be repeated as many times as the user wants and for as many scores as the user wants. Once all the scores are entered and read(or taken-in)by the program, the user clicks on the second button to display the results. The program should then display the two highest scores, among the ones entered. So, in the example, this would be 10, 20. And it should display the total number of scores entered by the user. In the example, it would be 3.
After that, the user should be able to repeat the process and enter a new set of scores, if wanted. The program should therefore be ready to take in new inputs and start the process again. When the user starts typing the new score, the text-boxes with the previous results (two highest scores and total num. of scores) should get cleared

Answer:

See text attachment for complete source code (for the answer) where I used comments to explain each line of the program

Explanation:

First, design the form using the following tools (and the accompanying properties) :

1 Label: Property: Text: Score

2 Buttons

Button1: Property: Name: btnAdd; Text: Add

Button2: Property: Name: btnDisplay; Text: Display

1 ListBox: Property: Visible: Hidden

1 TextBox: Property: Name: txtNum1

First, create the following function.

The function (named typecheck) validates input from the user (i.e. integer input only)

Function typecheck(ByVal input As String) As Boolean

       Try

           Convert.ToInt32(input)

           [tex]Return\ True[/tex]

       [tex]Catch\ ex\ As\ Exception[/tex]

           [tex]Return\ False[/tex]

       End Try

   End Function

It returns true if the input is integer and false, if otherwise.

Next, double-click on the "Add" button and write the following lines of code:

Dim num1 As String

       num1 = txtNum1.Text

       If num1 IsNot String.Empty Then

           If typecheck(num1) Then

               [tex]ListBox1.Items.Add(num1)[/tex]

               [tex]txtNum1.Text = String.Empty[/tex]

           Else

               [tex]MsgBox("Only[/tex] [tex]Integer[/tex] [tex]Inpu t")[/tex]

               [tex]txtNum1.Text = String.Empty[/tex]

           [tex]End\ If[/tex]

       Else

           [tex]MsgBox("Box[/tex] [tex]can\ not\ be\ empty")[/tex]

           [tex]txtNum1.Text = String.Empty[/tex]

       [tex]End\ If[/tex]

Next, double-click on the "Display" button and write the following lines of code:

If ListBox1.Items.Count > 0 Then

           [tex]Dim\ max1, max2\ As\ Integer[/tex]

           max1 = Convert.ToInt32(ListBox1.Items(0))

           max2 = Convert.ToInt32(ListBox1.Items(0))

           [tex]For\ count\ = 0\ To\ ListBox1.Items.Count - 1[/tex]

               If Convert.ToInt32(ListBox1.Items([tex]count[/tex])) >= max1 Then

                   max1 = Convert.ToInt32(ListBox1.Items([tex]count[/tex]))

               [tex]End\ If[/tex]

           Next

           [tex]For\ count\ = 0\ To\ ListBox1.Items.Count - 1[/tex]

               If Convert.ToInt32(ListBox1.Items([tex]count[/tex])) >= max2 And Convert.ToInt32(ListBox1.Items([tex]count[/tex])) < max1 Then

                   max2 = Convert.ToInt32(ListBox1.Items([tex]count[/tex]))

               [tex]End\ If[/tex]

           Next

           MsgBox("Highest Scores: " + max1.ToString() + " " + max2.ToString())

           MsgBox("[tex]Total[/tex]: " + ListBox1.Items.Count.ToString())

       [tex]End\ If[/tex]

       ListBox1.Items.Clear()

Can software work without Hardware? Why?

45. Our goals are a reflection of our:
O values
O standards
O obstacles
O resources
beliefs
values and beliefs

In the early days of the Internet, most access was done via a modem over an ________.
Question 10 options:

Analog telephone line

Fax

Telegram

None of the above

ERIC'S Company sells cement at 30.0 Ghana Cedis per bag. The company

however gives discount of 15% for customers that buy 100 or more bags, and 0% for

customers that buy less than 100 bags.
Write a pseudo code and present a flowchart that

will display the discount percentage when the quantity of bags purchased is entered.​

BitTorrent, a P2P protocol for file distribution, depends on a centralized resource allocation mechanism through which peers are able to maximize their download rates.
True or False?

Use the drop-down menus to complete the sentences about the Calendar view Arrange command group.


Under the Calendar view, you will see your calendar as

by default.


When you create an appointment, you are creating an activity that will not send

to other people.


A meeting is an activity where individuals are invited and

are shared.



is an all-day incident placed on the calendar.