Private Sub btnCheckAge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckAge.Click Dim age As Integer Dim strResp As String = Val(TextBox1.Text) If IsNumeric(strResp) Then age = CInt(strResp) Select Case age Case 1 To 12 MessageBox.Show("คุณยังเด็กมาก", "age=" & age.ToString) Case 13 To 14 MessageBox.Show("คุณยังเป็นวัยรุ่น", "age=" & age.ToString) Case 25 MessageBox.Show("คุณอยู่ในวัยเบญจเพส", "age=" & age.ToString) Case 26 To 60 MessageBox.Show("คุณอยู่ในวัยทำงาน", "age=" & age.ToString) Case 61 To 120 MessageBox.Show("คุณอยู่ในวัยชรา", "age=" & age.ToString) Case Else MessageBox.Show("ลองระบุอายุของคุณอีกครั้ง", "age=" & age.ToString) End Select End If MessageBox.Show("ลองระบุอายุของคุณอีกครั้ง", "age=" & age.ToString)
Private Sub btnCheckDay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckDay.Click Dim day As Integer = Now.DayOfWeek Select Case day Case 0 MessageBox.Show("วันนี้เป็นวันอาทิตย์", Now.Day.ToString) Me.BackColor = Color.Red Case 1 MessageBox.Show("วันนี้เป็นวันจันทร์", Now.Day.ToString) Me.BackColor = Color.Yellow Case 2 MessageBox.Show("วันนี้เป็นวันอังคาร", Now.Day.ToString) Me.BackColor = Color.Pink Case 3 MessageBox.Show("วันนี้เป็นวันพุธ", Now.Day.ToString) Me.BackColor = Color.Green Case 4 MessageBox.Show("วันนี้เป็นวันพฤหัสบดี", Now.Day.ToString) Me.BackColor = Color.Orange Case 5 MessageBox.Show("วันนี้เป็นวันศุกร์", Now.Day.ToString) Me.BackColor = Color.SkyBlue Case 6 MessageBox.Show("วันนี้เป็นวันเสาร์", Now.Day.ToString) Me.BackColor = Color.Purple
ทำเปงเขียนจาวา
แล้วอธิบายได้ป่าวที่เขียนอ่ะ
โห
หื่นไม่พอยังยร้าอิก
เฮ้อเพื่อนฉาน