试卷征集
加入会员
操作视频

一个含有 n 个元素的整数数组,如果数组两个连续元素之间差的绝对值包括了[1,n-1]之间的所有整数,则称之为一组“完美跳数”。小余制作了验证完美跳数的 VB 程序,功能如下:在文本框 Text1 中输入一组以逗号分隔且以逗号结尾的整数数组,单击“验证”按钮 Command1,在标签 Label1 中显示验证结果,运行界面如图所示。
(1)观察程序界面,具有 Caption 属性的对象有
3
3
个。(填个数)
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-i
n-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题程序”,则可在
     
    (单选,填字母:A.Form_Click(  )/B.Form_Load(  )/C.Forml_Click (  )/D.Forml_Load (  ))事件过程 中添加代码:Forml.Caption=“第15题程序”。
    (2)请在横线处填入合适的代码。
    (3)加框处代码有误,请改正。

    发布:2025/1/2 10:30:2组卷:0引用:1难度:0.3
深圳市菁优智慧教育股份有限公司
粤ICP备10006842号公网安备44030502001846号
©2010-2025 jyeoo.com 版权所有
APP开发者:深圳市菁优智慧教育股份有限公司| 应用名称:菁优网 | 应用版本:5.0.7 |隐私协议|第三方SDK|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正