Question

vb表达式 要产生''C''~''L''范围内的一个大写字符要怎么写？

Answer 1

Private Sub Form_Click()
a = Chr(Int(Rnd * 10) + 67)
Print a
End Sub
楼上的产生不了C的，Int(Rnd * 10)这个产生0到9之间的随机整数，Chr(Int(Rnd * 10) + 67)这个产生C到L之间的大写字母。Chr(Int(Rnd * 10) + 67)，ASCII码，65是大写字母A，66是B，从67 到76，对应C到L，明白了么？

Answer 2

Private Sub Command1_Click()
Dim s%
s = Int(67 + 11 * Rnd)
Text1.Text = Chr(s)
End Sub