Membuat Game Acak Angka

Tambahkan sebuah komponen CommandButton dalam Form. Lalu set property Caption pada CommandButton menjadi acak angka. Dobel klik CommandButton, lalu ketikkan kode berikut :

Private Sub Command1_Click()

Dim mynumber As Integer

Randomize

mynumber = (100 * Rnd) + 1

MsgBox mynumber

End Sub

Berikut Hasilnya :