题库 高中信息
题干
某同学编写一个“查找子串出现位置”的程序。功能如下：在文本框Text1中输入字符串s1，在文本框Text2中输入字符串s2，点击按钮Command1后在标签Label3上显示查找的结果。运行界面所示。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Dim i as integer , j as integer
s1 = Text1.Text
s2 = Text2.Text
For i = 1 To Len(s1) - Len(s2) + 1
①
Do While Mid(s1, i + j, 1) = Mid(s2, j + 1, 1) And j < Len(s2)
j = j + 1
Loop
If j = Len(s2) Then Exit For
Next i
If j=Len(s2) Then
Label3.Caption = "找到，起始位置：" + ②
Else
Label3.Caption = "不存在该子串"
End If
End Sub
（3）运行该程序，在文本框Text1中输入“10100101”，在Text2中输入“01”（两次输入均不包含引号），点击“查找子串位置”按钮后，在label3上显示答案(点此获取答案解析）
相关知识点