题型:综合题 题类:常考题 难易度:困难
浙江省桐乡市高级中学2015-2016学年高二上学期期中考试信息技术试题
Private Sub Commandl_Click()
Dim s As String,c As String
Dim i As Integer,n As Integer,num As Integer
s = (填程序代码)
num = 0
n = Len(s)
'(填字母:从下列A、B、C三个选项中选取一项)
'(填字母:从下列A、B、C三个选项中选取一项)
If c>= "0" And c<= "9" Then
num = num + 1
End If
Next i
Labell. Caption = str(num)
End Sub
A. Do While i <= n B. c = Mid(s,i,1) C. For i = 1 To n
试题篮