题型：综合题 题类：常考题 难易度：困难
浙江省信息技术名师预测冲刺卷（一）
Private Sub Command1_Click()
Dim s As String，c As String
Dim i As Integer，j As Integer，p
As Integer
s=””
i= 1
Do While i<=Len(Text1．Text)
c=Mid(Text1．Text，i，1)
j=0
Do While C<>“，”And C<>””
j=j+1
c=Mid(Text1．Text，i+j，1)
Loop
p=Val( ① )
s=s+Mid(Text2．Text，p，1)
②
Loop
Label1．Caption=s
End Sub
① ②
试题篮
