[挂防封]随机标题字符串函数

bzg99

Private Sub Form_Load()
Dim rndchr As String
Dim num As Integer
Dim i As Integer

rndchr = ""
  num = Int(20 * Rnd + 1)
  Randomize
  For j = 1 To num
    i = Int(3 * Rnd + 1)
    Select Case i
      Case 1
        chr1 = Int(26 * Rnd + 65)
      Case 2
        chr1 = Int(26 * Rnd + 97)
      Case 3
        chr1 = Int(10 * Rnd + 48)
      End Select
  rndchr = rndchr & Chr(chr1)
Next
Form1.Caption = rndchr
end sub