Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As String End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End Sub |
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click |
Public Class Form1 Dim Score As Integer Dim GRAD As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click Me.CenterToScreen() LbGrad.Text = "เกรด ::" Score = Val(TxtScore.Text) If Score < 0 Then MsgBox("ป้อนคะแนนที่มากว่าหรือเท่ากับ 0") TxtScore.Clear() TxtScore.Focus() ElseIf Score > 100 Then MsgBox("ป้อนคะแนนที่น้อยกว่าหรือเท่ากับ 100") TxtScore.Clear() TxtScore.Focus() ElseIf Not IsNumeric(TxtScore.Text) Then MsgBox("กรุณาป้อนค่าที่เป็นตัวเลข") TxtScore.Clear() TxtScore.Focus() Else If Score >= 80 Then GRAD = "A" ElseIf Score >= 75 Then GRAD = "B+" ElseIf Score >= 70 Then GRAD = "B" ElseIf Score >= 65 Then GRAD = "C+" ElseIf Score >= 60 Then GRAD = "C" ElseIf Score >= 55 Then GRAD = "D+" ElseIf Score >= 50 Then GRAD = "D" Else GRAD = "F" End If LbGrad.Text &= GRAD End If End Sub |