Perancangan program menebak suatu angka tunggal merupakan salah satu implementasi dari dasar-dasar pemrograman komputer. Angka yang ditebak umumnya merupakan suatu angka yang dibangkitkan sistem secara acak. Angka acak tersebut selanjutnya diminta ditebak oleh pengguna program. Umumnya juga dalam permainan ini penebak akan diberi jatah waktu atau cacah tebakan. Bila salah satu dari kondisi tersebut dipenuhi maka penebak dapat saja menerima hadiah atau lanjut ke tebakan selanjutnya. Pengguna akan diberi peringatan bila tebakan tidak sesuai dengan harapan.
Bahasa pemrograman Visual Basic memungkinkan membangkitkan suatu angka acak dengan menggunakan fungsi rnd(). Fungsi rnd() akan membangkitkan bilangan antara 0 dan 1. Sehingga bila kita menginginkan untuk mendapatkan bilangan bulat maka hasil dari fungsi rnd() tersebut harus kita kalikan dengan 10, 100, 100 dan seterusnya. Misalkan terdapat bilangan acak 0,3456, untuk memperoleh satuan, puluhan, ratusan atau ribuan dapat dilakukan dengan cara:
0.3456 * 10 = 3,456
0.3456 * 100 = 34,56
0.3456 * 1000 = 345,6
0.3456 * 10000 = 3456
Algoritma:
1. Bangkitkan suatu bilangan acak, Mis X
2. Tebak Bilangan Acak Tersebut, Mis A
3. Lakukan Pengujian
Apakah A=X, Jika Ya berarti Tebakan Berhasil dan program berhenti
Apakah A>X, Jika Ya berarti Tebakan Lebih Besar dari Bilangan Acak
Apakah A<X, Jika Ya berarti Tebakan Lebih Kecil dari Bilangan Acak
4. Selesai
Private Sub Form_Activate() Dim X As Integer Dim A, C As Byte Randomize (100) 'Bangkitkan bibit bilangan Acak A = Round(Rnd() * 100, 0) 'Bilangan Antara 1 s.d 99 CTebak = 0 'Cacah Banyak Tebakan 10: X = Val(InputBox("Tebakan Anda ")) CTebak = CTebak + 1 Cls 'Bersihkan Form Print "Anda Telah Menebak"; CTebak; " Kali" If A = X Then MsgBox ("Tebakan Anda Tepat") End 'Program Berhenti ElseIf (X < A) Then MsgBox ("Angka Terlalu Kecil") GoTo 10 Else MsgBox ("Angka Terlalu Besar") GoTo 10 End If End Sub