Question

用VB编译一个生成随机字母数字组合的程序？求高手

要求，text1里面填的是生成组合的长度，例如填5，就代表生成的组合是5位的，如dfkj8，com1是生成按钮，生成的结果是在text2里面显示。要求：随机生成字母数字组合。

Answer 1

Dim a As Integer
Dim b As String

Private Sub Command1_Click()
a = Text1.Text
c = ""
b = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
For i = 1 To a Step 1
c = c & Mid(b, Int(62 * Rnd + 1), 1)
Next
Text2.Text = c
End Sub

望采纳。。。。

Answer 2

private sub create(count as integer)
if count<=0 then
msgbox "生成0个随机数!"
else
for i=1 to count
text2=text2+chr(int(rand()*60+30))
next 
end if
end sub
具体范围你自己看吧  没时间给你啰嗦

Answer 3

com的调用以下函数，其中L是长度

Public Function GetStr(L As Integer) as string
Dim str1 As String
str1 = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim m As Integer
Dim i As Integer
For i = 1 To L
m = Int(Rnd * Len(str1)) + 1
GetStr = GetStr & Mid(str1, m, 1)
Next
End Function