VB6 Code - Membuat Kata Secara Acak (Random)

Di bawah ini merupakan fungsi VB6 code untuk membuat sebuah kata secara acak.

Option Explicit

Public Function RandomString(Optional Max As Integer = 5) As String

 Dim sAlpha As String
 Dim iLoop As Integer
 Dim iRandNum As Integer
 Dim sMatch As String
 Dim str As String
 sAlpha = "abcdefghijklmnopqrstuvwxyz"

 Randomize

 For iLoop = 1 To Max
     iRandNum = Int((26 - 1 + 1) * Rnd + 1)
     sMatch = Mid(sAlpha, iRandNum, 1)
     str = str & sMatch
 Next iLoop

 RandomString = str

End Function

Contoh penggunaan fungsi menampilkan kata secara acak

Private Sub Command1_Click()
 MsgBox RandomString 10
End Sub