会python真的可以为所欲为0(回)
378天前
这里还有人吗1(回)
563天前这里还有人吗0(回)
563天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
788天前到处都是羊，不想上班0(回)
868天前
鸽子
0(回)
872天前Private Sub Command1_Click() |
Dim a(1 To 26) As Integer, c$ |
For i = 1 To Len(Text1.Text) |
c = UCase(Mid(Text1.Text, i, 1)) |
If c >= "A" And c <= "Z" Then |
a(Asc(c) - 64) = a(Asc(c) - 64) + 1 |
End If |
Next i |
Cls |
For i = 1 To 26 |
Label1.Caption = Label1.Caption & Chr(i + 64) & "=" & a(i) & " " |
Next i |
End Sub |
