Public Class Conditional
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer = 10
Dim y As Integer = 5
Dim z As Integer = 20
x = CInt(InputBox("ãÊè¤èÒ: "))
If x > 100 Then x = x + 1 : y = y + 2
z = z + 1
MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")
If x > 10 Then
x = x + 10
y = y + 5
End If
z = z + 6
MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")
If x > 100 Then
x = x + 1
Else
y = y + 1
End If
MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")
If x = y Then
z = z + 1
ElseIf x > y Then
z = z - 1
Else
MessageBox.Show("¤èÒäÁè¶Ù¡µéͧ")
End If
MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")
MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")
Dim MyNum As Integer = 10
Dim MyName As String
MyNum = CInt(InputBox("ãÊè¤èÒ: "))
Select Case MyNum
Case 5
MyName = "Five"
Case 15
MyName = "FiFteen"
Case 10
MyName = "Ten"
Case 20
MyName = "Twenty"
Case Else
MyName = "Zero"
End Select
MessageBox.Show("¤ÓµÍº MyName ¤×Í " & MyName, "¤ÓµÍº")
Dim Score As Short
Dim Grade As String
Score = CInt(InputBox("ãÊè¤Ðá¹¹Êͺ: "))
Select Case Score
Case Is >= 80
Grade = "A"
Case Is >= 70
Grade = "B"
Case Is >= 60
Grade = "C"
Case Is >= 50
Grade = "D"
Case Else
Grade = "F"
End Select
MessageBox.Show("¤ÓµÍº Grade ¤×Í " & Grade, "¤ÓµÍº")
Dim MyNum1 As Integer = 10
Dim MyName1 As String
MyNum1 = CInt(InputBox("ãÊè¤èÒ: "))
Select Case MyNum
Case 5, 10
MyName1 = "Five, Ten"
Case 15, 20
MyName1 = "FiFteen, Twenty"
Case Else
MyName1 = "Zero"
End Select
MessageBox.Show("¤ÓµÍº MyName1 ¤×Í " & MyName1, "¤ÓµÍº")
Dim Score1 As Short
Dim Grade1 As String
Score1 = CInt(InputBox("ãÊè¤Ðá¹¹Êͺ: "))
Select Case Score1
Case Is >= 80
Grade1 = "A"
Case 79 To 70
Grade1 = "B"
Case 69 To 60
Grade1 = "C"
Case 59 To 50
Grade1 = "D"
Case Else
Grade1 = "F"
End Select
MessageBox.Show("¤ÓµÍº Grade1 ¤×Í " & Grade1, "¤ÓµÍº")
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น