Pokud se pak strukturu

Příkaz if se používá rozhodnout, jaká opatření přijmout mezi dvou možností. Struktura je následující:

Pak, pokud <comprabación lógica>
[Akce, které budou provedeny, pokud podmínka]
Jiný
[Akce, které budou provedeny, aniž by podmínka není splněna]
End If

V následujícím příkladu budeme předpokládat, že jsme dosáhli věku osoby v proměnné novosti a my hlásit, pokud tato osoba je dospělý (21 let).

 Pokud Vedad> = 21 pak
 MsgBox ("Je to dospělý")
 Jiný
 MsgBox ("Toto je menší")
 End If

pro přiřazení hodnoty do proměnné můžete použít příkaz IIf, který je napsán na jednom řádku:

IIf (<Checking lógica> a akce pokud je pravdivá, akce, pokud nejsou spokojeni)

Předpokládám, že mám textové pole s názvem txtCantidad, kde jsem se číselné hodnoty a zadal ji na celé číslo proměnné s názvem vCantidad, ale pokud TextBox je prázdný alokace selže, pak můžeme řešit s IIF.

 As Integer Dim vCantidad
 vCantidad = IIf (txtCantidad.Text = String.Empty, 0, txtCantidad.Text)

Můžeme také použít, pokud je vnořena, a tím prolomit bariéru z těchto dvou možností rozhodnout se. Předpokládejme, že máme použít semáfono (červená, žlutá nebo zelená) upozornit na dodržování míru. Možnosti jsou tři jedna v případě, jeden dovolí pro dva (true nebo false) pomocí vnořených, pokud je možné tento nedostatek odstranit a mnoho dalších problémů.

 "Máme formulář (Form1) s
 "Textové pole (textBox1), který obsahuje
 "Value představuje procento
 "Soulad

 "Pokud je větší nebo rovna 100 barva je zelená
 "Pokud mezi 80 a 100 barva je žlutá
 "A když pod 80 je červená

 Pokud TextBox1.Text> = 100 Pak
 TextBox1.BackColor = Color.green
 Jiný
 Pokud TextBox1.Text> = 80 pak
 TextBox1.BackColor = Color.Yellow
 Jiný
 TextBox1.BackColor = Color.Red
 End If
 End If

můžeme použít elseif jak je uvedeno níže

 Pokud TextBox1.Text> = 100 Pak
 TextBox1.BackColor = Color.green
 ElseIf TextBox1.Text> = 80 pak
 TextBox1.BackColor = Color.Yellow
 Jiný
 TextBox1.BackColor = Color.Red
 End If