Question

程序的功能是：在文本框Text1中输入一行字符串，单击“计算”按钮，统计Text1中小写字母的个数并在Text2中

Option Base 1
Sub SaveData()
Dim s As String
Open App.Path & "\" & "PROGIN.DAT" For Input As #1
Open App.Path & "\" & "PROGOUT.DAT" For Output As #2
For i = 1 To 5
Input #1, s
Print #2, "第" & i & "行小写字母的个数为：" & Fun(s)
Next i
Close #1
Close #2
End Sub

Function Fun(s As String)
'********begin********

'*********end*********
End Function

Private Sub Command1_Click()
d = Fun(Text1.Text)
Text2.Text = "小写字母的个数为：" & d
SaveData
End Sub

Answer 1

for i =1 to len(s)
if mid(s,i,1)>96 and mid(s,i,1)<123 then '一字符比较判定是不是小写
fun=fun+1
next

追问

For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) > 96 And Asc(Mid(s, i, 1)) < 123 Then
Fun = Fun + 1
End If
Next
呵呵 这才是正确答案！那也谢谢啦！