随即产生字母并统计 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, n As Integer Dim R As String, S As String, T As String, d1, d2 As String Randomize i = Int(Rnd * (30 + 1 - 10) + 10) For j = 1 To i R = R & Chr(Int(Rnd * 26) + 65) Next Print "随机产生" & i & "个字母："