Fungsi Rnd

Mengembalikan Single yang berisi bilangan acak.

Sintaks

RND [(angka)]

argumen angka opsional adalah satu atau beberapaekpresi numerikyang valid.

Nilai yang dikembalikan

Jika Number adalah

RND menghasilkan

Kurang dari nol

Nomor yang sama setiap kali menggunakan angka sebagai nilai awal.

Lebih besar dari nol

Angka acak berikutnya dalam urutan.

Sama dengan nol

Angka yang paling baru dihasilkan.

Tidak disertakan

Angka acak berikutnya dalam urutan.

Keterangan

Fungsi RND mengembalikan nilai yang kurang dari 1 tetapi lebih besar dari atau sama dengan nol.

Nilai angka menentukan bagaimana RND menghasilkan bilangan acak:

Untuk setiap biji awal yang diberikan, urutan nomor yang sama dihasilkan karena setiap panggilan berturut-turut ke fungsi RND menggunakan angka sebelumnya sebagai benih untuk angka berikutnya dalam urutan.

Sebelum memanggil RND, gunakan pernyataan randomize tanpa argumen untuk menginisialisasi Generator bilangan acak dengan Seed berdasarkan pengatur waktu sistem.

Untuk menghasilkan bilangan bulat acak dalam rentang tertentu, gunakan rumus ini:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Di sini, batas adalah angka tertinggi dalam rentang, dan lowerbound adalah angka terendah dalam rentang.

Catatan:  Untuk mengulangi urutan angka acak, Panggil RND dengan argumen negatif segera sebelum menggunakan randomize dengan argumen numerik. Menggunakan Randomize dengan nilai yang sama untuk angka tidak mengulangi urutan sebelumnya.

Contoh kueri

Ekspresi

Hasil

Pilih ProductSales. ProductID, RND ([Discount]) sebagai RandomNumbers dari ProductSales;

Mengembalikan ID Produk beserta angka acak dalam RandomNumbers kolom.

Contoh VBA

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini menggunakan fungsi RND untuk menghasilkan nilai bilangan bulat acak dari 1 hingga 6.

Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)

Catatan:  Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda? Berikut adalah artikel dalam bahasa Inggris untuk referensi.

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×