题型：综合题 题类：常考题 难易度：普通
浙教版信息技术基础第三章 信息的加工
Private Sub tj_Click()
Dim s As String，ch As String，i As Integer
Dim dxzm As Integer，xxzm As Integer，sz As Integer，qt As Integer
For i＝1 to len(s)
ch＝Mid(s，i，1)
If ch>＝”A” And ch<＝”Z” Then
dxzm＝dxzm＋1
Then
xxzm＝xxzm＋1 ′变量xxzm表示小写字母个数
Then
sz＝sz＋1 ′变量sz表示数字个数
Else
qt＝qt＋1
End If
Next i
Text2.Text＝Str(dxzm)
Text3.Text＝Str(xxzm)
Text4.Text＝Str(sz)
Text5.Text＝Str(qt)
End Sub
试题篮
