![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0NmY3Fc5Ju8hm5EKzwASWVAakv_IoiDZUxYUxtF62hyvH83__MZ9fpAGqi6IHeYUiWrY0ILnfYpBsTh9ZJ5hTQXUuuvQV1UFp1gMxBUNtM6ZEL4eUn4MS9TbD5Kl77PY6wolC3quvvxYzmNzIFYXJt50YLR4Lqag-trIpbR978bi3ePT425ng96-KzA/s320/Untitled.png)
Berikut adalah contoh percabangan Visual Basic .Net :
1. If-Then
Sintak :
If kondisi1 then
Statemen
.......
......
End if
Contoh :
Dim nilai1 As integer
Dim nilai2 as integer
nilai1 = 3
nilai2 = 5
If nilai1 <> nilai2 Then
Console.WriteLine("Nilai1 tidak sama dengan nilai2 itu Benar")
End If
2. If-Then-Else
Sintak :
If kondisi1 then
Statement
.......
......
ElseIf kondisi2 then
Statement
.......
......
Else
Statement
.......
......
End if
Contoh 1:
Dim nilai1 As integer
Dim nilai2 as integer
nilai1 = 3
nilai2 = 5
If nilai1 = nilai2 Then
Console.WriteLine("Nilai1 sama dengan nilai2")
Else
Console.WriteLine("Nilai1 tidak sama dengan nilai2")
End If
Contoh 2 :
Dim nilai1 As integer
Dim nilai2 as integer
nilai1 = 3
nilai2 = 5
If nilai1 = nilai2 Then
Console.WriteLine("Nilai1 sama dengan nilai2")
ElseIf nilai1 > nilai2 Then
Console.WriteLine("Nilai1 lebih besar dari nilai2")
Else
Console.WriteLine("Nilai1 tidak sama dengan nilai2")
End If
3. Select - Case
Sintak :
Select Case ekspresi
Case daftar ekspresistatements 1Case Eise
End Select
Contoh :
Dim nomor As Integer
nomor = 8
Select Case nomor
Case 1 To 3
MsgBox("Nilai terletak antara 1 sampai 3")
Case 4, 5, 6
MsgBox("Nilai terletak antara 4, 5 dan 6")
Case 7 To 10
MsgBox("Nilai terletak antara 7 sampai 10")
Case Else
MsgBox("Nilai tidak ada dalam jangkauan 1-10")
End Select