如图所示,凹槽内放置了n(3≤n≤15)个高度不等的立方柱,立方柱由多个单位为1的立方块叠加而成,立方柱之间如果有间隔则可以用来注水。
编写VB程序计算立方柱之间的最大注水体积。程序运行时随机生成的数据从左到右依次为“3,0,2,5,0,2,0,4”,分别代表各位置点立方柱的高度(0表示无立方柱)。列表框Listl中输出各立方柱高度以及所求的最大注水体积。请回答下列问题:
(1)结合程序代码,图中按钮对象的名称是 Cmd1Cmd1。
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
①Int(Rnd*13)+3Int(Rnd*13)+3
②ans+h(i)*(b(i)-right1-1)ans+h(i)*(b(i)-right1-1)
(3)程序中加框处代码有错,请改正。
h(j)>h(k)h(j)>h(k)
ConstMaxn=15
Dimh(1ToMaxn)AsInteger'h(i)存储第i个立方柱的高度
Dimb(1ToMaxn)AsInteger'b(i)存储第i个立方柱的编号
PrivateSubCmdl_Click ( )
DimnAsInteger,iAsInteger,jAsInteger,kAsInteger,tAsInteger
Dimleft1AsInteger,rightlAsInteger,ansAsInteger
n=①Int(Rnd*13)+3Int(Rnd*13)+3
'随机生成各立方柱的高度保存到h(1)到h(n)中,并在Listl中显示,代码略.
Fori=1Ton
b(i)=i
Nexti
Fori=1Ton-1'根据立方柱的高度进行排序
k=i
Forj=i+1Ton
If
Thenk=j
Nextj
Ifk<>iThen
t=h(i):h(i)=h(k):h(k)=t
t=b(i):b(i)=b(k):b(k)=t
EndIf
Nexti
1eft1=b(1):right1=b(1):ans=0
Fori=2Ton
Ifh(i)=0ThenExitFor
Ifb(i)<left1Then
ans=ans+h(i)*(left1-b(i)-1)
left1=b(i)
ElseIfb(i)>right1Then
ans=②ans+h(i)*(b(i)-right1-1)ans+h(i)*(b(i)-right1-1)
right1=b(i)
Else
ans=ans-h(i)
EndIf
Nexti
List1.AddItem“最大注水体积是:“&Str(ans)
EndSub
【考点】应用程序的试运行和保存.
【答案】Cmd1;Int(Rnd*13)+3;ans+h(i)*(b(i)-right1-1);h(j)>h(k);Int(Rnd*13)+3;ans+h(i)*(b(i)-right1-1)
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/4/20 14:35:0组卷:0引用: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.某学校开展了艺术节活动,数组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 -
3.小明用python语言中对大小为100*100像素的图像“上.jpg”(如图所示)进行简单处理,部分代码如图:
程序执行后的图像效果是( )发布:2024/12/20 9:30:2组卷:3引用:5难度:0.4