VB语言从多个（比如在（48,57）（65,90）（97,122）中产生一个值）范围产生一个随机数

VB语言从多个（比如在（48,57）（65,90）（97,122）中产生一个值）范围产生一个随机数
VB语言从多个（比如在（48,57）（65,90）（97,122）中产生一个值）范围产生一个随机数

VB语言从多个（比如在（48,57）（65,90）（97,122）中产生一个值）范围产生一个随机数
可以先产生一个随机数来选择范围 然后根据这个范围来选择随机数范围再产生一个随机数.
比如
Option Explicit
Private Sub Command1_Click()
Dim x,y
Randomize
x = Int(Rnd * 3)'先产生一个随机数 随机选择一个范围
Select Case x
Case 0
y = Int(Rnd * 10) + 48
Case 1
y = Int(Rnd * 25) + 65
Case 2
y = Int(Rnd * 25) + 97
End Select
Print y
End Sub