如何随机生成A-Z,a-z 52个大小字符中的任意一个

Question

1：如何随机生成A-Z,a-z 52个大小字符中的任意一个
2：如何随机生成我所设定的不规则数据中的任意一个。比如我想随机输出“123”，“456”“11”等等不规律的数据？

Answer 1

生成ASC相应范围的随机数，用CHR()得到相应的字符

Answer 2

1：如何随机生成A-Z,a-z 52个大小字符中的任意一个
----------------
把 52个大小字符存到 Dim arr(1 to 52) 的数组中，然后，随机生成1到52的随机数，然后取数组对应元素，如,随机数为i,arr(i)2：如何随机生成我所设定的不规则数据中的任意一个。比如我想随机输出“123”，“456”“11”等等不规律的数据？
---------------
原理同 第1问

Answer 3

楼上的朋友，我大致明白你的意思，可是你能否给我第一个问题的原代码。不好意思。我才刚开始学习vb.在线等待ing.

Answer 4

dim x 
Randomize
x=int((52*rnd)+1)
dim str as string
str=arr(x)

Answer 5

arr是包含52个大小字符的数组

Answer 6

Private Sub Command2_Click()
Dim s As String
s = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Dim i As Long
VBA.Randomize Timer
i = CLng(Rnd(1) * 51 + 1)
Dim s1 As String
s1 = Mid(s, i, 1)
MsgBox s1
End Sub

Answer 7

rainstormmaster(暴风雨 v2.0) ( ) 信誉：238 
-------
方法不错，赞……

Answer 8

Dim i As Long
VBA.Randomize Timer
i = CLng(Rnd(1) * 51)
Dim s1 As String
if i>26 then
   i = i - 27
   s1 = chr(ASC("a")+i)
else
   s1 = chr(ASC("A")+i)
end if

Answer 9

ASC("A")  ASC("a")都是常数，可惜我不记得了，我这儿也没有VB，呵呵，只好这么写

Answer 10

viena(维也纳nn-实心木头人) ( ) 信誉：100 
-------
方法不错，赞……

Answer 11

看了楼上大家伙的code后，真是佩服ing.再次谢谢

Answer 12

请教：rainstormmaster(暴风雨 v2.0)
 VBA.Randomize  Timer 什么意思？？