QQ网名大全

VB随机生成一个长度为7个英文字母的英文名 如何写

Private Sub Command1_Click()
Randomize
Dim a As String
a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i = 1 To 7
Text1 = Text1 & Mid(a, Int(Rnd * Len(a) + 1), 1)
Next i
End Sub
简单点的就这个~
佚名
2024-11-16 04:38:07
最佳回答
类似问题(10)