Question

Open the Chang Solution (Chang Solution.sln) file contained in the VbReloaded2015\ Chap11\Chang Solution folder. The application should display a grade based on the number of points entered by the user. The grading scale is shown in Figure 11-47. Create a structure that contains two members: an Integer variable for the minimum points and a String variable for the grades. Use the structure to declare a class-level one-dimensional array that has five elements. The MainForm_Load procedure should store the minimum points and grades in the array. The application should search the array for the number of points earned and then display the appropriate grade from the array. Code the application. Save the solution and then start and test the application. Close the solution. (4, 9)

Answer 1

Output will be like

Code will be like

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim arr As student() = New student(4) {}
arr(0).grade = "A"
arr(0).points = 10
arr(1).grade = "B"
arr(1).points = 9
arr(2).grade = "C"
arr(2).points = 8
arr(3).grade = "D"
arr(3).points = 7
arr(4).grade = "E"
arr(4).points = 6

For i As Integer = 0 To arr.Length - 1
richTextBox1.Text += Convert.ToString(arr(i).points) & vbTab
richTextBox1.Text += Convert.ToString(arr(i).grade)
richTextBox1.Text += vbLf
Next
End Sub

Structure student
Public points As Integer
Public grade As String
End Structure
End Class

Designer code will be like

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form

'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.  
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(103, 41)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'RichTextBox1
'
Me.RichTextBox1.Location = New System.Drawing.Point(55, 117)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(100, 96)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = ""
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 261)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)

End Sub
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox

End Class

Note: I have developed a sample code using the grade points and respective grade and using for loop to iterate each element in the array.

Please rate it if the above solution helps you in any way or if you have any concerns comment it, I will help you through again.