Question

vb中如何随机产生任意字母？

随机产生大写字母可以用a(i)=Chr(Asc("A")+Int(Rnd*26))
不分大小写怎么做？

Answer 1

改用通用的获取随机字符的方式。
定义一个字符串
strAph="abcd....ABCD..."
取随机一个字符
a=mid(strAph,int(rnd(52))+1)

Answer 2

Private Sub Form_Click()
Dim s As String, i As Integer, l As Integer, t As Integer
s = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
l = Len(s)
Randomize
t = (Rnd * l) + 1
Print Mid(s, t, 1)
End Sub

Answer 3

思路要开阔
Dim a$
a="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Mid(a,Int(Rnd*52+1),1)
试试吧！