กรณี นักศีกษาใช้ If
Dim p as String
Dim u as String
p = Text1.Text
If p >= 11 And p <= 15 Then
u = "ทั่วไป"
ElseIf p = 16 Or p =18 Or p20 Then
u = "IT"
ElseIf p >= 28 And p <= 28 Or p = 55 Then
u = "Admin"
Else
u = "Error"
End If
List1.AddItem ( u & " " & Now())
===========================================
+++++++++++++++++++++++++++++++++++++++++++
กรณีใช้ Select Case
Select Case p
Case 11 To 15
u = "ทั่วไป"
Case 16,18,20
u = "IT"
Case 25 To 28 , 55
u = "Admin"
Case Else
u = "Error"
End Select
ไม่มีความคิดเห็น:
แสดงความคิดเห็น