作业帮 > 综合 > 作业

哪位大侠可以帮我编个VB程序:数字0到5和字母A到F随机生成一个12位的组合……

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/09 22:55:42
哪位大侠可以帮我编个VB程序:数字0到5和字母A到F随机生成一个12位的组合……
可以编写个脚本吗?
Private Sub Command1_Click()
Randomize
Dim s As String
Dim n As Integer
For i = 0 To 11
n = 48 + Int(Rnd * 11)
Select Case n
Case 48 To 52
s = s & Chr(n)
Case 53 To 58
s = s & Chr(n + 12)
End Select
Next
MsgBox s
End Sub
不包括复重位检测