Contoh Program : Struktur IF .... Then

ada bentuk If...Then...Else ada dua percabangan atau bagian. Percabangan yang pertama untuk pernyataan-pernyatan jika kondisi tercapai, dan percabangan yang kedua untuk pernyataan-pernyataan jika kondisi tidak tercapai.

Perbedaan If...Then dan If...Then...Else

If...Then	If...Then...Else
hanya ada satu percabangan (percabangan tunggal)	terdapat dua percabangan
hanya jika kondisi tercapai yang dapat dijalankan	kondisi tercapai atau tidak tercapai dapat dijalankan

Bentuk If...Then...Else

If   Then

...

Else

...

End If

Contoh program :

1.  Buat New project, standard exe
2. Tambahkan 3 buah label, 3 buah textbox, dan 1 commandbutton
3.  Atur properti label,textbox dan commandbutton seperti di bawah

Label1	Caption = Nilai A
Label2	Caption = Nilai B
Label3	Caption = Hasil
Command1	Caption = Lihat Hasil

            4.  Kosongkan properti text pada text1, text2, dan text3. Dan atur tampilan seperti ini :

   5. masukan code program di bawah !!!

Private Sub Command1_Click()

Dim a, b As Integer

Dim hasil As String

a = Text1.Text

b = Text2.Text  

If a > b Then       

hasil = "nilai A lebih besar dari nilai B" 

Else       

hasil = "nilai B lebih besar dari nilai A" 

End If 

Text3.Text = hasil 

End Sub

         6.   Jalankan Programnya !!