Một số ví dụ tạo giá trị ngẫu nhiên trong VBA

Hướng dẫn code một số ví dụ tạo giá trị ngẫu nhiên trong VBA, ứng dụng hiệu quả khi lập trình phần mềm bằng VBA Access.

Ứng dụng tạo giá trị ngẫu nhiên vào phần mềm
Một số ví dụ khởi tạo giá trị ngẫu nhiên trong VBA
Video về tạo giá trị ngẫu nhiên để ứng dụng khi làm phần mềm

1. Ứng dụng tạo giá trị ngẫu nhiên vào phần mềm

Khởi tạo dữ liệu tự động để kiểm thử phần mềm, hay khởi tạo các tham số ngẫu nhiên khi phần mềm khởi chạy...

2. Một số ví dụ khởi tạo giá trị ngẫu nhiên trong VBA

Lấy giá trị ngẫu nhiên từ 1 mảng số

' Khởi tạo hạt giống ngẫu nhiên

    Randomize

    

    ' Danh sách số

    Dim so(1 To 5) As Integer

    so(1) = 5

    so(2) = 7

    so(3) = 1

    so(4) = 2

    so(5) = 9

    

    ' Chọn ngẫu nhiên một số trong danh sách số

    Dim randomIndex As Integer

    randomIndex = Int((5 - 1 + 1) * Rnd + 1)

    

    ' Hiển thị số ngẫu nhiên trong hộp thoại

    MsgBox "Số ngẫu nhiên là: " & so(randomIndex)

Giải thích:

Trong ví dụ này, chúng ta có một mảng chứa số. Hàm Rnd được sử dụng để chọn ngẫu nhiên một chỉ số mảng trong phạm vi từ 1 đến 5, từ đó lấy tên ngẫu nhiên từ danh sách.

Lấy giá trị ngẫu nhiên từ 1 mảng chữ

' Khởi tạo hạt giống ngẫu nhiên

    Randomize

    

    ' Danh sách tên

    Dim names(1 To 5) As String

    names(1) = "John"

    names(2) = "Alice"

    names(3) = "Bob"

    names(4) = "Eve"

    names(5) = "Charlie"

    

    ' Chọn ngẫu nhiên một tên trong danh sách

    Dim randomIndex As Integer

    randomIndex = Int((5 - 1 + 1) * Rnd + 1)

    

    ' Hiển thị tên ngẫu nhiên trong hộp thoại

    MsgBox "Tên ngẫu nhiên là: " & names(randomIndex)

Giải thích:

Trong ví dụ này, chúng ta có một mảng chứa tên. Hàm Rnd được sử dụng để chọn ngẫu nhiên một chỉ số mảng trong phạm vi từ 1 đến 5, từ đó lấy tên ngẫu nhiên từ danh sách.

Lấy ngẫu nhiên 1 dòng (row) trong 1 table Access bằng VBA

   ' Khai báo các biến

    Dim db As Database

    Dim rs As Recordset

    Dim rowCount As Long

    Dim randomRow As Long

    Dim randomID As Long

    Dim randomName As String

    Dim randomAge As Integer

    

    ' Tham chiếu đến cơ sở dữ liệu hiện tại

    Set db = CurrentDb

    

    ' Mở bảng MyTable dưới dạng Recordset

    Set rs = db.OpenRecordset("MyTable", dbOpenSnapshot)

    

    ' Lấy số lượng dòng trong bảng

    rowCount = rs.RecordCount

    

    ' Nếu bảng có ít nhất một dòng, tiến hành chọn ngẫu nhiên

    If rowCount > 0 Then

        ' Khởi tạo hạt giống ngẫu nhiên

        Randomize

        

        ' Tạo chỉ số ngẫu nhiên trong phạm vi từ 1 đến rowCount

        randomRow = Int((rowCount) * Rnd + 1)

        

        ' Di chuyển con trỏ Recordset đến dòng ngẫu nhiên

        rs.MoveFirst

        rs.Move randomRow - 1 ' Di chuyển đến dòng ngẫu nhiên

        

        ' Lấy dữ liệu từ dòng ngẫu nhiên

        randomID = rs!ID

        randomName = rs!Name

        randomAge = rs!Age

        

        ' Hiển thị thông tin dòng ngẫu nhiên

        MsgBox "Dòng ngẫu nhiên: " & vbCrLf & _

               "ID: " & randomID & vbCrLf & _

               "Name: " & randomName & vbCrLf & _

               "Age: " & randomAge

    Else

        MsgBox "Bảng không có dữ liệu."

    End If

    

    ' Đóng Recordset

    rs.Close

    Set rs = Nothing

    Set db = Nothing