字符统计

[vb]代码库

Private Sub Command1_Click()
 Dim s As String, i%, m As String, n%
 s = Text1
 n = 0
 For i = 1 To Len(s)
 m = Mid(s, i, 1)
 If m >= "a" And m <= "z" Then
 n = n + 1
 End If
 Next i
 Text2 = n
End Sub

Private Sub Command2_Click()
 End
End Sub