玉米怎么炒又好吃又甜:如何在VB 6.0里通过随机函数生成随机的8位口令

来源：百度文库编辑：中科新闻网时间：2024/05/03 06:23:57

生成随机的8位口令。（口令在A~Z、a~z、0~9这62个字符中产生）
个人意见：
可以定义一个变量，将"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"赋给该变量，然后利用randomize和Rnd函数以及FOR循环在该变量中随机截取8位，生成了随机口令

但是具体过程不知道应该怎么写，希望高手指点～

Private Sub Form_Load()
Dim K, PS As String
Dim n, i As Integer

K = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Randomize (Timer)

For i = 1 To 8
n = Int(Rnd * Len(K)) + 1
PS = PS & Mid(K, n, 1)
Next

MsgBox PS
End Sub

生成字符函数 Chr(I)

1~9数字：I = 48~57
A~Z大写：I = 65~90
a~z小写：97~122

不过，论方便还是楼上的比较方便~

如何在VB 6.0里通过随机函数生成随机的8位口令 vb 随机函数格式 VB问题!!随机生成字母如何在VB中自动生成一个文件并且随机命名文件(路径固定,名字不固定)?例如,随机生成"D:\VB\123***.TXT" VB的随机函数应用~~~~~~ 计算器如何随机生成数？？谁知道VB随机函数RND源代码 c语言的随机生成函数应该怎么用?怎么才能让它同时生成好几个随机数?并把它存放在一个数组里? [急] vb6.0中随机生成函数 Rnd（）在.net中变成了什么 vb6.0中随机生成函数 Rnd（）在.net环境变成了什么？