题型：综合题 题类：常考题 难易度：困难
浙江省“七彩阳光”联盟2017-2018学年高三上学期信息技术期中联考试卷
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Text2．Text=coding(Text1．Text)
End Sub
Private Function coding(s As String)As String
Dim n As Integer，i As Integer，C As String
c=Mid(s，1，1)
n=1
For i=2 To Len(s)
If 
Then ‘(1)
n=n+1
Else
c=c+Str(n)+“／”
n=1
End If
Next i
coding= 
‘(2)
End Function
试题篮
