第1个回答 2010-03-07
Private Sub Form_Load()
Randomize
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Dim letter() As String
letter() = Split("a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z", "|")
Dim i As Integer
For i = 1 To 24
Text1.Text = Text1.Text + letter(Int(Rnd() * 25))
Next
Text2.Text = Text1.Text & "@qq.com"
End Sub