如何在vb中得到随机字符串（只包括数字和字母）？

Question

你可以生成一个随机数0~128
然后把他们转换为相应的字符即可，

Answer 1

在ASCII码中，48-57对应数字0-9，65-90对应大写字母A-Z，97-122对应小写字母a-z。下面是一个简单的演示：Option ExplicitPrivate Sub Command1_Click()
    Dim intTemp As Integer
    Dim strTemp As String
    Randomize
11:
    intTemp = Rnd * 74 + 48
    If (intTemp > 47 And intTemp < 58) Or (intTemp > 64 And intTemp < 90) _
        Or (intTemp > 96 And intTemp < 123) Then
        strTemp = Chr(intTemp)
    Else
        GoTo 11
    End If
    Print strTemp;
End SubPrivate Sub Form_Load()
    Form1.AutoRedraw = True
End Sub