Question

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

Answer 1

可以先产生一个随机数来选择范围 然后根据这个范围来选择随机数范围再产生一个随机数.

比如

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