residentevil190
8th July 2012, 15:21
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Point As Integer = CInt(TextBox1.Text)
Dim Grade As String = CInt(TextBox2.Text)
If Point <= 80 Then
Grade("a")
End If
If Point <= 75 Then
Grade("b+")
End If
If Point <= 70 Then
Grade("b")
End If
If Point <= 65 Then
Grade("c+")
End If
If Point <= 60 Then
Grade("c")
End If
If Point <= 55 Then
Grade("d+")
End If
If Point <= 50 Then
Grade("d")
End If
If Point >= 49 Then
Grade("e")
End If
Else
End Sub
End Class
อยากทราบมันผิดต่อไหนรันไม่ผ่านสักที (ส่วนที่ขีดเส้นใต้มันมีตรงนั้นซึ่งไม่เข้าใจเลย) ผมอาจมองข้ามไปส่วนหนึ่งซึ่งยังไม่เห็นสักที
ขอบคุณครับที่ให้ความช่วยเหลือ
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Point As Integer = CInt(TextBox1.Text)
Dim Grade As String = CInt(TextBox2.Text)
If Point <= 80 Then
Grade("a")
End If
If Point <= 75 Then
Grade("b+")
End If
If Point <= 70 Then
Grade("b")
End If
If Point <= 65 Then
Grade("c+")
End If
If Point <= 60 Then
Grade("c")
End If
If Point <= 55 Then
Grade("d+")
End If
If Point <= 50 Then
Grade("d")
End If
If Point >= 49 Then
Grade("e")
End If
Else
End Sub
End Class
อยากทราบมันผิดต่อไหนรันไม่ผ่านสักที (ส่วนที่ขีดเส้นใต้มันมีตรงนั้นซึ่งไม่เข้าใจเลย) ผมอาจมองข้ามไปส่วนหนึ่งซึ่งยังไม่เห็นสักที
ขอบคุณครับที่ให้ความช่วยเหลือ