Mengembalikan Single yang berisi bilangan acak.
Sintaks
Rnd[(number)]
Angka opsionalargumen adalah Single atau ekpresi numerikapa pun yang valid.
Nilai yang Dikembalikan
|
Jika angka adalah |
Rnd menghasilkan |
|
Kurang dari nol |
Angka 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 dibuat. |
|
Tidak disertakan |
Angka acak berikutnya dalam urutan. |
Keterangan
Fungsi Rnd mengembalikan nilai yang lebih kecil dari 1 tetapi lebih besar dari atau sama dengan nol.
Nilai angka menentukan bagaimana Rnd menghasilkan angka acak:
Untuk seed awal tertentu, urutan angka yang sama dihasilkan karena setiap panggilan berurutan ke fungsi Rnd menggunakan nomor sebelumnya sebagai seed untuk nomor berikutnya dalam urutan.
Sebelum memanggil Rnd, gunakan pernyataan Acak tanpa argumen untuk menginisialisasi generator angka acak dengan benih berdasarkan timer sistem.
Untuk menghasilkan bilangan bulat acak dalam rentang tertentu, gunakan rumus ini:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Di sini, batas atas adalah angka tertinggi dalam rentang, dan batas bawah adalah angka terendah dalam rentang.
Catatan: Untuk mengulangi urutan angka acak, hubungi Rnd dengan argumen negatif segera sebelum menggunakan Acak dengan argumen numerik. Menggunakan Acak dengan nilai yang sama untuk angka tidak mengulangi urutan sebelumnya.
Contoh kueri
|
Ekspresi |
Hasil |
|
SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; |
Mengembalikan ID Produk bersama dengan angka acak dalam kolom RandomNumbers. |
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)
