Vb随机生成长度为[20个大写英文字母、数字]的组合,每五个加一个连字符如何写

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 10:51:23

Vb随机生成长度为[20个大写英文字母、数字]的组合,每五个加一个连字符如何写
Vb随机生成长度为[20个大写英文字母、数字]的组合,每五个加一个连字符如何写

Vb随机生成长度为[20个大写英文字母、数字]的组合,每五个加一个连字符如何写
一分都没有.郁闷.
不过还是花点时间给你写一个.vb6.0xp系统测试通过,希望能选择为最佳.另外本人强烈鄙视提问了却不珍惜别人劳动成果,不选任何答案的!
Private Sub Form_Click()
'使用chr()函数
'其中48～57为0到9十个阿拉伯数字
'65～90为26个大写英文字母
'97～122号为26个小写英文字母
'a = Int(Rnd * (da - xiao + 1) + xiao)
X = ""
For i = 1 To 20
s = Int(Rnd * (3))
Select Case s
Case 0
b = Int(Rnd * (57 - 48 + 1) + 48)
Case 1
b = Int(Rnd * (90 - 65 + 1) + 65)
Case 2
b = Int(Rnd * (122 - 97 + 1) + 97)
End Select
X = X & Chr(b)
If i < 20 And (i) Mod 5 = 0 Then:X = X & "-" '使用小于20是避免出现最后那个连词符
Next
Print X
End Sub

Vb随机生成长度为[20个大写英文字母、数字]的组合,每五个加一个连字符如何写 VB单击Command1,随机生成100个大写英文字母存于数组a中,并显示在Text1中,字母之间用空格隔开 26个英文字母大写 vb中如何生成20个互不相同的两位随机整数? 密码长度为6-20个字符,由英文字母、数字、 VB随机英文字母问题代码如下rpost = aboutvb '这边根据需要弄个随机数,生成随机数字+字母的即可.要把aboutvb改为 1.自动随即生成的小写英文字母（可以设置个数）2.随即生成中文文字（可以设 VB随机产生一个英文字母程序怎么编啊? vb中生成一个随机数的大写英文字母,表达式Chr（Int（Rnd*27）+65）,为什么,我感觉后边应该是+64, VB随机产生10个不重复的大写英文字母,看看我哪边错了Private Sub Command1_Click()Dim a(1 To 10)Dim flag As Boolean, i%, j%RandomizeFor i = 1 To 10 Do a(i) = Int(26 * Rnd) + 65 flag = False For j = 1 To i - 1 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?（求VB编程答案!）要写清界面搭建过程! 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数的vb代码 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?VB编程 精简 明朗 VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有 ；奇数有 ；偶数共 个；奇数共 个 26个英文字母大写和小写 要用 26个英文字母要有大写,例：Aa 26个英文字母大写怎么读! 26个大写英文字母到底各有几划? 26个大写英文字母怎么念?