公司办公室视频大全:VB:产生一个C-L范围内的大写字符

来源:百度文库 编辑:高考问答 时间:2024/05/05 01:12:36
VB:

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

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

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

因为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