Control Statements

Select ..CaseSelect ..Case

คำ��สั่��ง Select Case เป็�นคำ��สั่��งสั่��หรั�บสั่รั��งเง��อนไขก�รัทำ��ง�นมี�ก�รัทำ��ง�นเหมี�อน ก�บคำ��สั่��ง if แต่�จะมี�ก�รัเป็รั�ยบเทำ�ยบข�อมี�ลทำ��เจ�ะจง Select Case ต่�วแป็รั Case เง��อนไข 1

คำ��สั่��งCase เง��อนไข 2

…….Case Else ‘– Case

Else จะมี�หรั�อไมี�มี�ก"ได้�คำ��สั่��งสั่��หรั�บกรัณี�อ��นๆ

End Select

Select ..CaseSelect ..Case

ตั�วอย่�าง 1Dim a as Stringa=“T”

Select Case a Case “T”

MessageBox.Show(“T”)Case “B”

MessageBox.Show(“B”)Case Else

MessageBox.Show(“Not T B”)End Select

Select ..CaseSelect ..Case

ตั�วอย่�าง 2Dim a as Stringa=“T”

Select Case a Case “T”,”Z”,”X”

MessageBox.Show(“T Z X”)Case “B”

MessageBox.Show(“B”)Case Else

MessageBox.Show(“Not T Z X B”)

End Select

Select ..CaseSelect ..Case

ตั�วอย่�าง 3Dim a as Integera=70

Select Case a Case Is >=80

MessageBox.Show(“A”)Case Is >=70

MessageBox.Show(“B”)Case Else

MessageBox.Show(“F”)End Select

Select ..CaseSelect ..Case

ตั�วอย่�าง 3Dim a as Integera=12

Select Case a Case 0 To 2

MessageBox.Show(“ว�ยทำ�รัก”)Case 3 To 12

MessageBox.Show(“ว�ยเด้"ก”)Case Else

MessageBox.Show(“ว�ยรั& �น”)End Select

คำ�าสั่� ง Forคำ�าสั่� ง For

For เป็�นคำ�ย'เว(รั'ด้สั่��หรั�บก��หนด้ก�รัทำ��ง�นแบบวงรัอบหรั�อล�ป็ จ�กคำ��เรั(�มีต่�น จนถึ*งคำ��สั่&ด้ทำ��ยขอต่�วทำ��ใช้�เป็�นต่�วน�บ โด้ยทำ��ต่�วน�บไมี�จ��เป็�นต่�องเรั(�มีต่�นจ�ก 0 และอ�จเป็�นก�รัน�บแบบเพิ่(�มีคำ��หรั�อลด้คำ��ก"ได้�รั�ป็แบบคำ�อ For ต่�วน�บ = คำ��เรั(�มีต่�น To คำ��สั่&ด้ทำ��ย

คำ��สั่��งNext

คำ�าสั่� ง Forคำ�าสั่� ง For

ตั�วอย่�างDim i, sum as integerFor i = 1 To 10

sum+=i MessageBox.Show(i)

Next

คำ�าสั่� ง Forคำ�าสั่� ง For

ตั�วอย่�าง การเพิ่� มลดคำ�าDim i, sum as integerFor i = 10 To 100 Step 10

sum+=i MessageBox.Show(i)

Next

คำ�าสั่� ง Forคำ�าสั่� ง For

ตั�วอย่�าง การเพิ่� มลดคำ�าDim i, sum as integerFor i = 100 To 10 Step -10

sum+=i MessageBox.Show(i)

Next

คำ�าสั่� ง Whileคำ�าสั่� ง While

While เป็�นคำ�ย'เว(รั'ด้สั่��หรั�บก��หนด้ก�รัทำ��ง�นแบบวงรัอบหรั�อล�ป็ โด้ยคำ��เรั(�มีต่�น จะถึ�กสั่�งเพิ่�ยงคำรั�/งเด้�ยว แล�วทำ��ต่�มีเง��อนไขของ while ซึ่*�งก�รัทำ��ง�นจะถึ�กต่รัวจสั่อบก�อนถึ��ต่รังต่�มีเง��อนไขถึ*งให�ทำ��ง�นได้� While เง��อนไข

คำ��สั่��งEnd While

คำ�าสั่� ง Whileคำ�าสั่� ง While

ตั�วอย่�าง

Dim n As Integer =0 While (n<=10)

n+=1MessageBox.Show(n)

End While

คำ�าสั่� ง Do..Whileคำ�าสั่� ง Do..While

Do While เป็�นคำ�ย'เว(รั'ด้สั่��หรั�บก��หนด้ก�รัทำ��ง�นแบบวงรัอบหรั�อล�ป็ โด้ยคำ��เรั(�มีต่�น จะถึ�กสั่�งเพิ่�ยงคำรั�/งเด้�ยว แล�วทำ��ต่�มีเง��อนไขของ while ซึ่*�งก�รัทำ��ง�นจะถึ�กต่รัวจสั่อบหล�งจ�กก�รัทำ��ง�นแล�ว จ�กน�/นจ*งต่รัวจสั่อบเง��อนไข ถึ��ผ่��นถึ*งให�ทำ��ง�นต่�อได้� Do

คำ��สั่��งLoop While เง��อนไข

คำ�าสั่� ง Do Whileคำ�าสั่� ง Do While

ตั�วอย่�าง

Dim n As Integer =0 do

n+=1MessageBox.Show(n)

Loop While (n<=10)

คำ�าสั่� ง IsNumeric()คำ�าสั่� ง IsNumeric()

คำ�าสั่� งในการตัรวจสั่อบตั�วเลข

Dim n As Integer if(IsNumeric(TextBox1.Text)) Then

n=TextBox1.TextMessageBox.Show(“OK”)

ElseMessageBox.Show(“NO”)

End if