用VB随机A,B,C,D 4个字母怎么搞?

chr(int(rnd*4)+65)

简单的做法就是用RND函数来生成随即整数, 查MSDN可得如下公式:

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

代码:

Option Explicit

Private Sub Command1_Click()

Dim xCode As Byte
xCode = Int((3 - 0 + 1) * Rnd + 0)

xCode = AscB("A") + xCode

'xCode = AscB("A") + Rnd(5)

Text1.Text = Chr(xCode)

End Sub

Private Sub Form_Load()

Randomize

End Sub