VB语言从多个范围产生一个随机数

可以先产生一个随机数来选择范围 然后根据这个范围来选择随机数范围再产生一个随机数.
比如
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 Su