题型：综合题 题类：常考题 难易度：困难
浙江省金华市东阳中学2016-2017学年高一6月月考信息技术试卷
Private Sub Command1_Click()
Dim getStr As String
Dim a As String
Dim i As Integer，s As Integer
Dim q As Integer，l As Integer
s=0：q=0：l=0
getStr=Text1.Text
For i = 1 To ① ’对字符串中所有字符逐一判断
a = ②
If a >= "a" And a <= "z" Then s = s + 1
If a >= "A" And a <= "Z" Then q = q + 1
If a >= "0" And a <= "9" Then l = l + 1
Next i
Text2.Text = Str（s）
Text3.Text = Str（q）
Text4.Text = Str（l）
End Sub
划线②处应填入的语句为：
则 （选填 会/不会）影响输出结果。
试题篮
