组卷题库 > 高中信息技术试卷库

浙江省宁波市2017-2018学年高三上学期信息技术“十校联考”期末试题

作者UID:7189882
日期: 2024-12-22
期末考试
选择题
非选择题
【加试题】小马正在看一本侦探小说,想了解其中一段案情的解析,却发现了一串字符“#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

试卷列表
教育网站链接