[Visual Basic] Generate Random Strings and Random Numbers.

 Hi mọi người, Hùng Coder sẽ chia sẽ thủ thuật tạo ngẫu nhiên chuổi hoặc số ngẫu nhiên, như một dạng mã vạch ấy :D

Ở đây mình chỉ viết những hàm tạo chuổi hoặc số thôi nhé, chứ không hoàn thiện tools để cho mọi người áp dụng để tạo thêm nhiều thủ thuật mới tốt hơn nhé. 

Hàm tạo chuổi

  Function RandomString(cb As Integer) As String
    Randomize

    Dim rgch As String
    rgch = "abcdefghijklmnopqrstuvwxyz"
    rgch = rgch & UCase(rgch) & "0123456789"

    Dim i As Long
    For i = 1 To cb
        RandomString = RandomString & Mid$(rgch, Int(Rnd() * Len(rgch) + 1), 1)
    Next
End Function
  

Hàm tạo số ngẫu nhiên.

Private Function RandomDoubles(cb As Integer) As Double
    Randomize
    Dim rgch As Double
    rgch = "123456789101112"
    rgch = rgch & Round(rgch) & "1211109876543210"

    Dim i As Long
    For i = 1 To cb
        RandomDoubles = RandomDoubles & Mid$(rgch, Int(Rnd() * Len(rgch) + 1), 1)
    Next

End Function

Với hai hàm trên các bạn có thể tùy biến theo khả năng của các bạn nhé.
Chúc các bạn thành công.