Contoh Pemakaian Struktur Penyeleksian dan Perulangan

Desain suatu program untuk menampilkan hasil dari pemakaian ekspresi logika. Ketentuan ketentuan dari program yang harus anda buat sebagai berikut:

Pertama Anda harus membuat form seperti gambar yang ada di samping ini.
Silahkan atur property dari masing-masing objek seperti yang ada pada tabel property di bawah ini (boleh juga buat sesuai keinginan).

PROPERTY

FORM/CONTROL	PROPERTIES	SETTING
Form1	Name Caption	Form1 Pemakaian logika ekspresi
Command1	Name Caption Font	Cmd_if If-then Ms sarif , bold, 8
Command2	Name Caption Font	Cmd_if_else If-then-else Ms sarif , bold, 8
Command3	Name Caption Font	Cmd_case Select case Ms sarif , bold, 8
Command4	Name Caption Font	Cmd_for For-next Ms sarif , bold, 8
Command5	Name Caption Font	Cmd_while Do while-loop Ms sarif , bold, 8
Command6	Name Caption Font	Cmd_exit Exit Ms sarif , bold, 8

3. Silahkan ketik kode program berikut pada masing-masing command:

private sub cmd_if_click()

dim bil as single

on error resume next

form1.cls

bil = inputbox(“inputkan suatu bilangan”)

if (bil mod 2) = 1 then

print “ bilangan : “ & bil & “ adalah ganjil”

end if

end sub

jalankan program isikan bilangan 5 hasilnya “bilangan 5 adalah ganjil”

private sub cmd_if_else_click()

dim il as integer

on error resume next

form1.cls

bil = inputbox(“inputkan suatu bilangan”)

if bil <> 0 then

print “bilangan “ & bil & “adalah “

if bil >= 1 then

print “positif”

else

print “negatif”

end if

end sub

dim nilai as integer

on error resume next

form1.cls

nilai = inputbox(“inputkan suatu nilai”)

print “nilai huruf : “ & nilai

select case nilai

case 85 to 100

print “nilai abjad : a”

case 65 to 84

print “nilai abjad : b”

case 55 to 64

print “nilai abjad :c”

case 40 to 54

print “nilai abjad : e”

case else

print “inputan salah”

end select