在VB中,如何产生48~57、65~90、97~122之间的随机数

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/18 02:39:03

在VB中,如何产生48~57、65~90、97~122之间的随机数
也就是数字0~9、大写字母A~Z、小写字母a~z.
还有如何产生65~90、97~122之间的随机数?（即大写字母A~Z、小写字母a~z）

要产生a-b之间的随机数,可以用以下公式：
随机数*(b-a)+a
这样就行了!
再问：代码？（还有，三个的呢？）
再答：还要代码？
dim lower as integer
dim upper as integer
dim rander as integer

upper=90 *上界赋值
lower =65 *下界赋值

rander=rand()*(upper-lower)+lower *求出随机数

三个什么意思？
再问：产生48~57、65~90、97~122之间的随机数（共3段）
再答：这个，你把从upper=90到rander=....那段复制粘贴就行了，对了，我这个里面有些错误。
1. *号是注释的意思，但VB里面不用这个符号，用的是单引号'
2. VB里面的随机函数是Rnd()，不是Rand()
你改一下就OK了。
再问：复制粘贴?
还是给代码吧
再答：我晕，你是不是学VB的？

dim lower as integer
dim upper as integer
dim rander as integer

upper=48
lower =57
rander=rnd()*(upper-lower)+lower
print chr(rander) '打印0-9之间的随机数

upper=90
lower =65
rander=rnd()*(upper-lower)+lower
print chr(rander) '打印A-Z之间的随机字符

upper=97
lower =122
rander=rnd()*(upper-lower)+lower
print chr(rander) '打印a-z之间的随机字符
再问：只输出1个答案！！！你这个会输出3个
再答：。。。。。。。。。。。。

Dim lower As Integer
Dim upper As Integer
Dim rander As Integer

upper = 48
lower = 122
Do
rander = Rnd() * (upper - lower) + lower
Loop While (rander > 57 And rander < 65) Or (rander > 90 And rander < 97)
print Chr(rander)

在VB中,如何产生48~57、65~90、97~122之间的随机数 VB语言从多个（比如在（48,57）（65,90）（97,122）中产生一个值）范围产生一个随机数 vb中如何产生范围无穷大的随机数如何使VB中Rnd函数产生的随机数是在[0,1]内? 在Matlab中,如何产生区间在[-90 90]之间,满足高斯分布的随机数? VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码 IDL 中如何在10与20之间产生随机数? vb产生两个数之间的随机数闭区间如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~ vb中如何生成不同的随机数 VB程序设计中如何产生随机数并分别求奇数和偶数的和 Excel中如何产生[50,90]之间的随机数和随机整数