永发信息网

vb随机密码的生成?

答案:2  悬赏:80  手机版
解决时间 2021-03-08 02:51
vb随机密码的生成?
最佳答案
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
全部回答
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
【tom green】...Firstname和Lastname是什么?
关于小米3 tegra4版 游戏适配问题
中国三大海洋馆,中国前十海洋馆
我儿子十个月怎么晚上老是睡醒就哭
星宇快捷酒店这个地址在什么地方,我要处理点
肺心病晚期还有救吗_肺心病
耽美作者绿希的文集
砍了头的竹子-----节外生枝?何解
山东淄博高青巴黎小镇七号楼是大产权吗
三国志9的人才,攻城问题(我是新手)(急)
什么的流泉?
沈阳市微特钢化玻璃加工厂在什么地方啊,我要
请问这首歌德韩文歌词,谢谢。감사합니다. Ki
红茶可以养胃吗
谁有白夜追凶全集啊?
推荐资讯
微信经常加载不出内容,空白一片,是什么原因
在很久以前,地球为什么转的比现在快
TL-WN321G怎么设置
题目:冷冷的暖 要求:初中作文,700字吧
迪克牛仔有哪些原创(原唱)歌曲?
如今婚姻是什么意思
在南京拍婚纱照大概要多少钱
土方运输规范
小肥牛自助火锅地址在哪,我要去那里办事
起点,纵横,创世,17K,还有一些比较知名的
【重逢的诗句】求关于重逢的诗句
来电转接是不是呼叫转移
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?