How to make random number in VB.Net

Sekarang kita akan mencoba membuat sebuah aplikasi, yaitu random number. Dikatakan random karena pada akhirnya nomor yang akan keluar di acak urutanya, tapi tidak sepenuhnya diacak, kenapa? karena kita sebelumnya sudah merencanakan apa saja yang akan keluar.
Langsung kita mulai

Pertama 
Tambahkan TexBox 1 saja
dan 1 Button

Slanjutnya Desain lah sesuka anda tapi biarkan nama komponent tetap default.
Ganti text button Dengan  "Generate" (tentunya di bagian properties)
Setelah jadi langsung ke Coding.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        TextBox1.Text = Int(Rnd() * 8)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "masukan key disini"
            Case 1
                TextBox1.Text = "masukan key disini"
            Case 2
                TextBox1.Text = "masukan key disini"
            Case 3
                TextBox1.Text = "masukan key disini"
            Case 4
                TextBox1.Text = "masukan key disini"
            Case 5
                TextBox1.Text = "masukan key disini"
            Case 6
                TextBox1.Text = "masukan key disini"
            Case 7
                TextBox1.Text = "masukan key disini"
            Case 8
                TextBox1.Text = "masukan key disini"
        End Select
    End Sub
End Class

Note*
Tex yang berwarna merah bisa di ganti dengan apa yang sobat ingin munculkan
tentunya sobat harus sudah punya terlebih dahulu data yang akan dimunculkan.

dan yang angka 8 [Int(Rnd() * 8)] bisa diganti sesuai dengan jumlah key yang anda masukan
CONTOH nya ini:
            Case 1
                TextBox1.Text = "masukan key disini"
            Case 2
                TextBox1.Text = "masukan key disini"
            Case 3
                TextBox1.Text = "masukan key disini"
            Case 4
                TextBox1.Text = "masukan key disini"
            Case 5
                TextBox1.Text = "masukan key disini"
            Case 6
                TextBox1.Text = "masukan key disini"
            Case 7
                TextBox1.Text = "masukan key disini"
            Case 8
                TextBox1.Text = "masukan key disini"
            Case 9
                TextBox1.Text = "masukan key disini"

jika ingin menambahkan tinggal copas saja code
Case 8
TextBox1.Text = "masukan key disini"

tapi angka 8 diganti sesuai jumlah key yang dimasukan misal 9,10, dll
Dan slesai Simpan pekerjaan sobat dan test hasilnya.



Semoga Membantu