Percabangan VB6- if...then...else...if

Statement bercabang digunakan untuk melakukan suatu tindakan di dalam suatu program berdasarkan kondisi tertentu. Salah satu percabangan yang tidak asing di telinga kita adalah percabangan if then else karena pada aplikasi excel percabangan tersebut juga kita gunakan. Percabangan if then else ini digunakan untuk menjalankan satu blok perintah yang nilainya tergantung pada kondisi yang diuji. Penulisannya adalah sebagai berikut :

If kondisi then
pernyataan 1
Else
pernyataan 2
End if

Atau kita bisa menambahkan statement ElseIf, sehingga menjadi :

If kondisi 1 then
pernyataan 1
ElseIf kondisi 2 then
pernyataan 2
Else
pernyataan 3
End If

contoh:

private sub form_click()

if  uang  < 1000 then
print "beli roti"
else
print "beli pizza"
end if

run F5 

maka jika kita masukan angka dibawah 1000 di form akan muncul beli roti karna pada fungsi kita tulis" if uang < 1000 then" (jika uang dibawah 1000 maka) print "beli roti (tampilkan beli roti) ,,kalau kita isikan 1000 atau diatas seribu maka dia akan tampilkan pernyataan kedua"print "beli pizza"(tampilkan beli pizza)
  ,,,you understand friend?,,,  


source kode program fungsi if then else if VB6..here