【加试题】小马正在看一本侦探小说,想了解其中一段案情的解析,却发现了一串字符“#2017—2018go:)”,并附有文字提示:①答案所在的页码是这串字符中最大数字字串(若值相同则取后面的数字字串)的起始位置*10+结束位置②答案所在行号是最大数值除以100的余数。例如:“#17a18#”字符串中,最大数字字串“18”。起始位置是5,结束位置是6,其页码是56,行号是18。小马编写了一个VB程序帮他寻找答案,程序运行界面如图所示。在文Text2中输出页码,在Text3中输入行号。实现上述功能的VB程序代码如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim s1 As String,s2 As String
Dim ch As String,ch2 As String
Dim max As Double
Dim 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,i,1)
Do While ch2>=“0”And ch2<=“9”
j=j+1
ch2=Mid(s1,j, 1)
Loop
s2= ’(1)
If Then ’(2)
max=Val(s2)
page=i*10+j-1
Text2.Text=Str(page)
Text3.Text=Str(max Mod l00)
End If
i=j
End If
i=i+1
Loop
End Sub