Question

（VB程序设计）编写程序：产生随机长度为1~20的任意大写字符串（长度和字符串都是随机的）……

vb编写程序：产生随机长度为1~20的任意大写字符串（长度和字符串都是随机的），并通过输入框输入一大写字母，统计该字母在大写字符串中出现的次数。

求代码，谢谢！

Answer 1

Dim s As String

Private Sub Command1_Click()

  Randomize

  n = Int(Rnd * 20 + 1)

  For i = 1 To n

    s = s + Chr(65 + Int(Rnd * 26))

  Next i

  Print "产生的随机字符串是："

  Print s

  c = " "

  While c > "Z" Or c < "A"

    c = InputBox("请输入一个大写字母：")

    c = Left(c, 1)

  Wend

  k = 0

  For i = 1 To n

    If c = Mid(s, i, 1) Then k = k + 1

  Next i

  MsgBox ("“" & s & "”中有 " & k & " 个 " & c)

End Sub