Question

vb题目，求解答

Answer 1

看到这个头就疼

Answer 2

Dim a As String
Dim i As Integer
Dim temp As Integer
a = text1.Text
For i = 1 To 26
temp = 0
For j = 1 To Len(a)
If Mid(a, j, 1) = Chr(64 + i) Or Mid(a, j, 1) = Chr(89 + i) Then
temp = temp + 1
End If
Next j
If temp <> 0 Then
list1.AddItem Chr(64 + i) & "出现了" & CStr(temp) & "次。"
End If
Next i