Jika Kemudian struktur

Pernyataan jika digunakan untuk memutuskan tindakan apa yang harus memakan waktu antara dua pilihan mungkin. Struktur adalah sebagai berikut:

Kemudian jika <comprabación lógica>
[Tindakan yang akan dilakukan jika kondisi]
Lain
[Tindakan yang akan dilakukan tanpa kondisi tidak terpenuhi]
End If

dalam contoh berikut kita menganggap bahwa kita melewati usia seseorang dalam kebaruan variabel dan kami melaporkan jika orang ini adalah orang dewasa (21 tahun).

 Jika Vedad> = 21 Lalu
 MsgBox ("Ini dewasa")
 Lain
 MsgBox ("Ini adalah kecil")
 End If

untuk menugaskan nilai ke variabel Anda dapat menggunakan pernyataan Iif yang ditulis dalam satu baris:

Iif (<Checking lógica>, Tindakan jika benar, tindakan jika tidak puas)

misalkan saya punya textbox disebut txtCantidad mana saya mengambil nilai numerik dan ditugaskan ke variabel integer disebut vCantidad, tetapi jika textbox kosong alokasi akan gagal, maka kita dapat memecahkan dengan Iif.

 Sebagai vCantidad Dim Integer
 vCantidad = IIF (txtCantidad.Text = String.Empty, 0, txtCantidad.Text)

Kita juga dapat menggunakan bersarang jika itu dan dengan demikian memecahkan hambatan dari dua pilihan untuk memutuskan. Misalkan kita harus menggunakan semáfono (merah, kuning atau hijau) untuk menyoroti tingkat kepatuhan. Pilihannya adalah tiga satu jika satu memungkinkan untuk dua (benar atau salah) menggunakan bersarang jika bisa mengatasi ini dan masalah lainnya.

 "Kami memiliki bentuk (Form1) dengan
 'Textbox (textbox1) yang berisi
 'Nilai merupakan persentase
 'Kepatuhan

 "Kalau lebih besar dari atau sama dengan 100 warna hijau
 "Jika antara 80 dan 100 warna kuning
 "Dan jika di bawah 80 adalah merah

 Jika TextBox1.Text> = 100 Kemudian
 TextBox1.BackColor = Color.green
 Lain
 Jika TextBox1.Text> = 80 Lalu
 TextBox1.BackColor = Color.Yellow
 Lain
 TextBox1.BackColor = Color.Red
 End If
 End If

kita dapat menggunakan elseif seperti ditunjukkan di bawah

 Jika TextBox1.Text> = 100 Kemudian
 TextBox1.BackColor = Color.green
 ElseIf TextBox1.Text> = 80 Lalu
 TextBox1.BackColor = Color.Yellow
 Lain
 TextBox1.BackColor = Color.Red
 End If