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

疫情发生后,小罗收集了某省南北两区共15个城市的累计病例人数和治愈人数,用以分析统计各区治愈率最高的n个城市。规则如下:每个城市包含区域名、城市名、累计病例人数和治愈人数,以“/”分隔,以“;”结尾。如“北区/A市/1467/530;”,表示北区的A市累计病例人数1467人,治愈人数有530人。
小罗编写VB程序实现上述功能:程序运行时,读取所有城市数据保存在变量shuju中并显示在列表框List1中。在文本框Text1中输入“南区”或“北区”,文本框Text2中输入n的值,单击“排名”按钮Command1,对数据进行统计分析,并在列表框List2中显示治愈率最高的n个城市,如有与第n个城市相同治愈率的城市,则同时输出。程序运行界面如图所示,请回答下列问题。
(1)代码“List2.AddItem”中的AddItem是
C
C
(单选,填字母:A.事件名/B.属性名/C.方法名)
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
DimshujuAsString,a(1To100)AsString
DimtAsInteger,iAsInteger,jAsInteger,cAsString,pAsInteger,tempAsString,qasStringDimfAsBoolean,nAsInteger,kAsInteger
'读取所有城市数据保存在变量shuju中,并显示在列表框List1中,代码略
t=Len(shuju)
i=1:p=0:j=1
DoWhilei<=t
c=Mid(shuju,i,1)
Ifc=“/“Orc=“;“Thenp=p+1
a(p)=
①Mid(shuju,j,i-j)
①Mid(shuju,j,i-j)
j=i+1
EndIf
i=i+1Loop
q=Text1.Text:n=Val(Text2.Text):i=1DoWhilei<=p\4-1
k=i
If
②a(4*k-3)=q
②a(4*k-3)=q
Thenf=TrueElsef=FalseForj=i+1Top\4
Ifa(4*j-3)=qThen
If Val(a(4*j))/Val(a(4*j-1))>Val(a(4*k))/Val(a(4*k-1)) OrNotfThenk=j
③f=True
③f=True

EndIfEndIf
Nextj
Ifk<>iThen
temp=a(4*k-3):a(4*k-3)=a(4*i-3):a(4*i-3)=temp
temp=a(4*k-2):a(4*k-2)=a(4*i-2):a(4*i-2)=temp
temp=a(4*k-1):a(4*k-1)=a(4*i-1):a(4*i-1)=temptemp=a(4*k):a(4*k)=a(4*i):a(4*i)=temp
EndIf
If Then(3)
List2.AddItema(4*i-3)&“/“&a(4*i-2)&“/“&Format(Val(a(4*i))/Val(a(4*i-1)),“0.00%“)&“;“i=i+1
Else
ExitDoEndIf
Loop
EndSub

【答案】C;①Mid(shuju,j,i-j);②a(4*k-3)=q;③f=True
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布: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.小明用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|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正