Question

关于VB随机生成数字或字母的代码问题

如题,随机生成数字或字母不分大小写, 显示在窗体上(比如FORM1窗体的窗口名) 请问这样的代码是什么/? 麻烦各位大哥了!

Answer 1

Private Sub Command1_Click() Dim c, ascii c = Int(Rnd * 3) Select Case c Case 0 ascii = Int(Rnd * 10) + 48 Case 1 ascii = Int(Rnd * 26) + 65 Case 2 ascii = Int(Rnd * 26) + 97 End Select Print Chr(ascii) End Sub