题型:综合题 题类:常考题 难易度:普通
浙教版信息技术基础第三章 信息的加工
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
试题篮