我想用vb随机生成一个6位的字符串
2个回答
展开全部
Private Sub Form_click()
s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To 6
x = x & Mid(s, Int(Rnd * Len(s) + 1), 1)
Next
text1.text= x
End Sub
s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To 6
x = x & Mid(s, Int(Rnd * Len(s) + 1), 1)
Next
text1.text= x
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询