Private Sub Form_Click()a = Chr(Int(Rnd * 10) + 67)Print aEnd 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,明白了么?