vb6.0版本符号随机组合代码

最新推荐文章于 2024-09-25 13:54:13 发布

EYYLTV

最新推荐文章于 2024-09-25 13:54:13 发布

阅读量216

点赞数 4

文章标签： vb6.0 开发语言算法

本文链接：https://blog.csdn.net/qq_32257509/article/details/140507190

版权

Private Sub Command1_Click()

Text2.Text = Text2.Text & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1)

End Sub

Private Sub Command3_Click()

  Text2.Text = Text2.Text & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1)

End Sub

Private Sub Command4_Click()

Text2.Text = Text2.Text & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1)

End Sub

Private Sub Command5_Click()

Text2.Text = Text2.Text & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1)

End Sub

Private Sub Command6_Click()

Text2.Text = Text2.Text & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1) & Mid(Text1.Text, Rnd * 62, 1)

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command7_Click()
Text2.Text = “”
End Sub

Private Sub Form_Load()
Text1.Text = “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”
End Sub

Private Sub Text1_Change()
Dim a As String
a = Text1.Text
End Sub