Question

产生“C"到"L"范围的任一个大写字母 （用vb表示，我刚接触这些东西，用浅一点的知识解答）

Answer 1

Ascii码知道吗？任何一个字符都有对应的ascii码，其中0~9是连续的，a-z是连续的，A-Z也是连续的，用转换语句就能很方便求出指定字母范围的字符
asc:将字符转成ascii码
chr：将ascii码转成对应字符
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Command1_Click()
Dim x as integer
randomize '初始化随机数种子 这样每次都不一样了！否则是一样的……。。
go1: x = Int(Rnd * Asc("L")+1) '这里偷懒了 其实有更加严谨的写法，这个只是先从ascii(1)~ascii(asc(l)) 然后忽略不符合条件的~~~
If x < Asc("C") or x > Asc("L") Then goto go1 '不在范围内 goto go1（这个应该看得懂吧）~~哈哈 重来！
MsgBox chr(x) '弹出窗口 显示出来。
End Sub

Answer 2

Private Sub Command1_Click()
Do While 1 '为什么用do...loop？这样可以每次都可以产生
a = Int(Rnd * 100)
If a >= 67 And a <= 76 Then Exit Do
Loop
MsgBox (Chr(a))
End Sub