学进去

小马正在看一本侦探小说，想了解其中一段案情的解析，却发现了一串字符“#2017-2018go：）”，并附有文字提示：①答案所在书的页码是这串字符中最大数字字串（若值相同则取后面的数字字串）的起始位置*10+结束位置，②答案所在行号是最大数值除以100的余数。例如：“#17a18#”字符串中，最大数字字串“18”，起始位置是5，结束位置是6，其页码是56，行号是18。小马编写了一个VB程序帮他寻找答案，程序运行界面如图所示。在文本框Text1中输入这段字符串s1，单击“揭秘”按钮Command1，在文本框Text2中输出页码，在Text3中输出行号。
                                      
实现此功能的VB程序中，划线处有错，请改正。
Private Sub Command1_Click()
Dim s1 As String, s2 As String, ch As
String
Dim max As Double, n As Integer, page As Integer
Dim i As Integer, j As Integer
S1=Text1. Text: s2="  "
n= Len(s1): i=1: max=0
Do While i<=n
ch = Mid(s1, i, 1)
If ch="0"And ch<="9"Then
j=i
ch2 = Mid(s1, j, 1)
Do While ch2 >="0"And ch2 <="9"
j=j+1
ch2 =Mid(s1, j, 1)
Loop
s2 =Mid(s1, 1,j-i)                  '(1)_____________
If Val(s2)>max Then

max =Val(s2)

page =i + j                       '(2)_____________

Text2. Text. = Str(page)

Text3. Text = Str(max Mod 100)
End If
i .= j
End If
i=i+1
Loop
End Sub