高二信息技术VB题目

完整的程序Private Sub Command1_Click()Dim i, m, n As IntegerDim s As Strings = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then m = m + 1End IfNext iLabel1.Caption = "小写字母个数有" + Str(m) + "个"End Sub填充部分