percabangan select case

 cara membuat select case di visual basic:
1. klik microsft visual basic
2. bikin 2 label 2 command button dan 1 teks box
3. lalu masukan kodeny yaitu:

PrivateSubButton1_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesButton1.Click

Dim angka As Integer= Integer.Parse(TextBox1.Text)

Select Case angka

Case 80 To 100

MessageBox.Show("A", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 70 To 79

MessageBox.Show("B", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 60 To69

MessageBox.Show("C", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 40 To 59

MessageBox.Show("D", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 0 To 39

MessageBox.Show("E", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

EndSelect

EndSub

4. lalu klik running untuk mengetahui hasil lebih lanjut