星期天,小杰来到动物园游玩,园内共有N个景点,每个景点都有一个标号,标号为1至N.现在只知道每个景点有一条路连接下一个景点。小杰想知道,根据这些道路信息,从其中一个景点出发,最后再回到出发景点,最多能游玩多少个景点。例如,共有N=5个景点,每个景点连接的下一个景点分别是2,4,5,5,2,如下表所示。
景点号 | 1 | 2 | 3 | 4 | 5 |
下一景点号 | 2 | 4 | 5 | 5 | 2 |
程序代码如下:
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
s=s*10+Val(m)
Else
c=c+1:a(c)=s:s=0'含义
End If
Next i
For i=1 To c
d(i)=0
Next
ans=0:k=0
For i=1 Toc'枚举游览起点
If d(i)=0 Then
p=i
Do While d(p)=0
k=k+1:d(p)=k:p=p+1'改错
Loop
y=
k-d(p)+1
k-d(p)+1
'填空If y>ans Then ans=y
k=0
End If
Next i
Text2.Text=Str(ans)
End Sub
(1)若要实现显示“景点连接情况:”的Textl在程序运行时默认为空,则需要将Text1的
Text
Text
属性设置为空。(2)若有7个景点,且每个景点的连接情况为6,3,7,2,7,5,4,则小杰最多可以游玩的景点数是
4
4
。(3)程序代码中,“含义”处的“a(c)=s”语句代表的含义是
c号景点的下一个景点是s号景点
c号景点的下一个景点是s号景点
。(4)程序代码中,“改错”处的语句有误,应改为
p=a(p)
p=a(p)
。(5)程序代码中,将“填空”处的语句补充完整
k-d(p)+1
k-d(p)+1
。【考点】对象的属性、方法和事件;应用程序的试运行和保存.
【答案】k-d(p)+1;Text;4;c号景点的下一个景点是s号景点;p=a(p);k-d(p)+1
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/4/20 14:35:0组卷:0引用:1难度:0.5
相似题
-
1.运行列表框对象语句:List1.AddItem=“同学们好!“,会显示:同学们好!;
发布:2025/1/2 11:30:1组卷:6引用:6难度:0.9 -
2.小张设计了一个“加减运算练习”VB程序.界面如下图所示.单击“出题”Command1按钮显示两个运算数和运算符号,并计数.在文本框Text1中输入计算结果后单击“判断”按钮Command2,如果计算结果正确,则得分加10分,直至完成10题测试.VB程序如下,但加下横线处代码有错,请改正.
Dim n,s As Integer'n为试题计数器,s为得分
Dim a,b As Integer'a,b 为两个运算数
Dim c As String'c为运算符:“+“表示加法,“-“表示减法
Private Sub Form_Load( )n=0:
s=0
End Sub
Private Sub Command1_Click( )‘出题按钮
Randomize
n=n+1
If n<11Then
Label1.Caption=“No:“+Str(n)
a=Int(Rnd*100)'a,b为运算数,且要求a不小于b
b=Int(Rnd*100)
If a>bThen t=a:a=b:b=t'(1)
If Rnd>0.5Then c=“+“Else b=“-“'(2)
Label5.Caption=Str(a)+c+Str(b)+“=“
Text1.Text=““
Else
Command1.Caption=“完成测试“
End If
End Sub
Private Sub Command2_Click( )‘判断按钮
If c=“+“Then
If a+b=Val(Text1.Text) Then s=s+10
Else
If a+b=Val(Text1.Text)Then s=s+10'(3)
End If
Label3.Caption=“得分:“+Str(s)
End Sub.发布:2025/1/2 9:30:2组卷:6引用:2难度:0.9 -
3.某智能农场启用了根据土壤湿度自动控制喷淋装置进行浇水的信息系统,每隔一段时间,系统自动检测土壤湿度,当土壤湿度低于某个阈值时将自动浇水。小李为统计出某段时间内(不超过100个时间单位)系统自动控制浇水的次数和该时间段内前后两次启动自动浇水系统的最大时间间隔单位,小李进行了数据分析,他认为如果某单位时间的土壤湿度比前一单位时间的土壤湿度高并且本单位时间内没有下雨,则认为启用了浇水系统。由此他编写了一个VB程序实现该功能:在文本框Text1中输入某段时间内的湿度值,在文本框Text2中输入该段时间内对应的天气情况,单击命令按钮Command1,在文本框Text3中显示系统自动浇水次数,Text4中显示前后两次自动浇水系统启用的最大时间间隔单位。
(1)在Private Sub Command1_Click( )中,Command1、Click分别表示
(2)实现上述功能的VB程序如下,请在画线处填入合适的代码。
(3)程序中加框处代码有错,请改正。发布:2025/1/2 11:0:1组卷:0引用:1难度:0.3