一个含有 n 个元素的整数数组,如果数组两个连续元素之间差的绝对值包括了[1,n-1]之间的所有整数,则称之为一组“完美跳数”。小余制作了验证完美跳数的 VB 程序,功能如下:在文本框 Text1 中输入一组以逗号分隔且以逗号结尾的整数数组,单击“验证”按钮 Command1,在标签 Label1 中显示验证结果,运行界面如图所示。
(1)观察程序界面,具有 Caption 属性的对象有 33个。(填个数)
Private Sub Command1_Click ( )( )
Dim n As Integer,i As Integer,j As Integer
Dim a(1 To 100)As Integer,b(1 To 100)As Integer
Dim s As String,chr As String,temp As String
s=Text1.Text
i=1:n=0
Do While i<=Len(s)
ch=Mid(s,i,1)
If ch>=“0“And ch<=“9“Then
temp=temp+ch
Else
n=n+1
a(n)=Val(temp)a(n)=Val(temp)
temp=““
End If
i=i+1
Loop
For i=2 To n
b(i-1)=Abs(a(i)-a(i-1))或b(i-1)=Abs(a(i-1)-a(i))b(i-1)=Abs(a(i)-a(i-1))或b(i-1)=Abs(a(i-1)-a(i))
Next i
For i=1 To n-2
For j=
If b(j)<b(j-1)Then
t=b(j):b(j)=b(j-1):b(j-1)=t
End If
Next j
Next i
For i=1 To n-1
If b(i)<>i Then Exit For
Next i
If i=n Then Label1.Caption=“完美跳数“
Else
Label1.Caption=“非完美跳数“End Sub
(2)请在上述程序的横线处填上合适的代码。
(3)上述程序加框处代码有误,请改正。 n-1 To i+1 Step-1或2 To n-in-1 To i+1 Step-1或2 To n-i
【考点】应用程序的试运行和保存.
【答案】3;( );a(n)=Val(temp);b(i-1)=Abs(a(i)-a(i-1))或b(i-1)=Abs(a(i-1)-a(i));n-1 To i+1 Step-1或2 To n-i
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/6/27 10:35:59组卷:2引用:1难度:0.3
相似题
-
1.大部分社交软件都有好友推荐的功能,当用户 A 和用户 B 的共同好友数量超过阈值 p 时,由系统向用户 A 推荐用户 B。
编写 VB 程序,实现好友推荐功能。运行程序,列表框 Listl 中显示用户 id 及好友列表,在文本框 Textl 中 输入推荐目标用户 id,在文本框 Text2 中输入阈值 p,点击“推荐”按钮,在列表框List2 中显示用户之间的关系,在标签 Label5 中显示向目标用户推荐的好友列表。程序运行界面如图:
(1)根据如图所示数据,若输入用户 id 为“3”,输入阈值为“3”,则推荐好友为:
(2)实现上述功能的 VB 程序如下,请在横线处填入合适的代码。发布:2025/1/2 10:30:2组卷:0引用:1难度:0.3 -
2.小明用python语言中对大小为100*100像素的图像“上.jpg”(如图所示)进行简单处理,部分代码如图:
程序执行后的图像效果是( )发布:2024/12/20 9:30:2组卷:3引用:5难度:0.4 -
3.某学校开展了艺术节活动,数组a中存储了n个节目的编号和得分数据,数组存储结构如图所示:
小明使用选择排序思想对上述n个节目按得分进行降序排序(得分相同的按编号升序排列),并依据得分插入各个节目的排名信息,处理后数组a的存储结构如图所示:
程序运行时,单击命令按钮Command1后读取数据到数组a中并显示在列表框List1中,单击命令按钮Command2后将节目按照上述规则进行排序,并将排名结果显示在列表框List2中。
实现上述功能的VB程序如下,请回答下列问题:
(1)已知窗体名称为Forml,要使程序加载时,窗体标题自动显示为“第15题程序”,则可在
(2)请在横线处填入合适的代码。
(3)加框处代码有误,请改正。发布:2025/1/2 10:30:2组卷:0引用:1难度:0.3