Question

想用VB写个密码生成器一样的程序，就是一个按键。一个文本框。点一下按键就能在文本框里生成我写好的密码

就比如11234 我点下生成 就在文本框里显示11234 最好是密码随即的！！！！ 有的告诉下 在线等 也可以把工程发我油箱347073627@qq.com

Answer 1

你的问题应该是采用随机数Rnd函数。
如果密码位数随机，可采用fix(rnd()*11)+6 {我举例限定6-16位数字}，如果位数固定则不用。
然后用Rnd生成密码 fix(rnd()*10^XX) {XX为上式生成的位数}

追问

别这么复杂行吗？ 我密码是自己设置的 就好比我把我的密码放的数据库里 然后在那点下生成 就会在下面的文本框显示出我事先写好的密码！！！

追答

用chinaboyzyq 的代码应该可以实现。
想在别人电脑上也能用的话，把pass.txt与程序文件放在一个文件包里就行了，然后把第三句代码改为 open app.path & "\pass.txt" for binary as #1
其他地方不用动。

Answer 2

把你的密码存入文本文件（记事本文件），一行一个密码，然后保存在c:\pass.txt

Private Sub Command1_Click()
Randomize Timer
Open "c:\pass.txt" For Binary As #1
Dim s, p() As String
s = Trim(StrConv(InputB(LOF(1), 1), vbUnicode))
Close #1
If Right(s, 2) = vbCrLf Then s = Left(s, Len(s) - 2)
p = Split(s, vbCrLf)
Text1.Text = p(Int(Rnd * (UBound(p) + 1)))

End Sub

VB6专家百度Hi群1358368

追问

软件要在别人电脑上也能运行 打个比喻
Command1_Click()
Text1.text ="8837844"
End Sub
这样单击一下 Command1按键就会在Text1里显示 8837844 那么如何放入更多的密码进去
就是按一下Command1会在Text1生成8837844 然后再按下生成我写入的别的密码 按顺序点一下生成一个 点一生成一个！

Answer 3

text.text1 = "11234"