Question

VB:产生一个C-L范围内的大写字符

VB:

题目:产生一个C-L范围内的大写字符
如何编写程序?我是帮朋友问的

Answer 1

因为VB的Rnd函数产生的是0~1之间的随机纯小数，(b-a+1)*Rnd产生的就是0~(b-a+1)之间的数，取整后就是0~(b-a)之间的整数了。

要产生a~b（a<b）范围内的随机整数时，可以使用Int((b-a+1)*Rnd)+a的方式。

而字符的ASC值可以由VB的标准函数ASC()求出。

Private Sub Command1_Click()

For i = 1 To 200        '随机产生200个指定范围内的字符，观察其可

  n = Asc("C") + Int((Asc("L") - Asc("C") + 1) * Rnd)        '产生C~L之间的ASC值

  Print Chr(n);            '输出该字符

  If i Mod 50 = 0 Then Print        '满50个就换行

Next i

End Sub

Answer 2

因为“C”的ASCII码是67，“L”的ASCII码是76，所以随机产生一个67～76之间的整数，再转换成字符就可以了：

String1=Chr(Rnd(1)*9+67)

Answer 3

Chr(Int(Rnd(1)※9+67))