Private Sub Command1_Click()
Randomize
Text1.Text = ""
n = Int(Rnd * 20) + 1
For i = 1 To n
Text1.Text = Text1.Text & Chr(Int(Rnd * 26 + 65))
Next i
End Sub
Private Sub Command2_Click()
c = InputBox("请输入一个大写字母:")
n = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = c Then n = n + 1
Next i
MsgBox Text1.Text & " 中有 " & n & " 个 " & c
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub