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

浙江省山水联盟2021届高三上学期信息技术12月联考试题

作者UID:7189882
日期: 2024-04-29
月考试卷
选择题
操作题
小王到某城市,时间只有一天了,但小王很想到该城市的著名大景区游玩,该城市的著名大景区内共有N(超过 10) 个景点,标号为1至N,假设每个景点都有一个进出口。现在只知道每个景点有一条路连接下一个景点。小王想知道,根据这些道路信息,从其中一个景点出发, 最后再回到出发景点离开,最多能游玩多少个景点。

例如,共有N=5个景点,每个景点连接的下一个景点分别是 2,4,2,3,1。

景点号

1

2

3

4

5

下一景点号

2

4

2

3

1

则他可以从2号景点出发,最多可以游玩2号、3号、4号三个景点。程序代码如下:

Private Sub Command1_Click()

    Dim a(1 To 100) As Integer, d(1 To 100) As Integer    '数组 a 存放下一景点号

    Dim jd As String, m As String, c As Integer, i As Integer

    Dim s As Integer, p As Integer, k As Integer, ans As Integer

    jd=Text1.Text+","

    s=0 : c=0

    For i=1 To Len(jd)

        m=Mid(jd,i,1)

        If m<>"," Then

                   ①       

        Else

            c=c+1 : a(c)=s: s=0

        End If

    Next i

    For k=1 To 100 d(k)=0

    Next k

    ans=0: k=0

    For i=1 To c    '枚举起点

        If d(i)=0 Then p=i

            Do While p<=c

                If d(p)=0 Then

                    k=k+1 :d(p)=k

                Else

                           ②       

                    If y>ans Then ans=y k=0

                    Exit Do

                End If

                     '改错

            Loop

        End If

    Next i

    Text2.Text=Str(ans)

End Sub

试卷列表
教育网站链接