疫情发生后,小罗收集了某省南北两区共15个城市的累计病例人数和治愈人数,用以分析统计各区治愈率最高的n个城市。规则如下:每个城市包含区域名、城市名、累计病例人数和治愈人数,以“/”分隔,以“;”结尾。如“北区/A市/1467/530;”,表示北区的A市累计病例人数1467人,治愈人数有530人。
小罗编写VB程序实现上述功能:程序运行时,读取所有城市数据保存在变量shuju中并显示在列表框List1中。在文本框Text1中输入“南区”或“北区”,文本框Text2中输入n的值,单击“排名”按钮Command1,对数据进行统计分析,并在列表框List2中显示治愈率最高的n个城市,如有与第n个城市相同治愈率的城市,则同时输出。程序运行界面如图所示,请回答下列问题。
(1)代码“List2.AddItem”中的AddItem是 CC(单选,填字母: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)=qThenf=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题程序”,则可在
(2)请在横线处填入合适的代码。
(3)加框处代码有误,请改正。发布:2025/1/2 10:30:2组卷:0引用:1难度:0.3