首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
改错题 【要求】 1)打开“T盘”中“P2vbp”文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件; 2)改错时,不得增加或删除语句,但可适当调整语句位置。 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序
改错题 【要求】 1)打开“T盘”中“P2vbp”文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件; 2)改错时,不得增加或删除语句,但可适当调整语句位置。 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序
admin
2019-04-04
59
问题
改错题
【要求】
1)打开“T盘”中“P2vbp”文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件;
2)改错时,不得增加或删除语句,但可适当调整语句位置。
【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序数构成的随机数组。所谓升序数是指从高位到低位数字值依次增加的整数。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click()
DimnAsInteger,a() AsInteger,kAsInteger,pAsIntegern=InputBox("输入数据个数:","升序数数组",10)ReDima(n)
Do
p=Int(Rnd900)Ifjudge(p)Then
k=k+1a(k)=p
Text1.Text=Text1.Text&Str(a(k))
IfkMod5=0ThenText1.Text=Text1.Text&vbCrLfEndIf
LoopUntilk>nEndSub
PrivateFunctionjudge(nAsInteger)AsBooleanDimiAsInteger,a(3)AsInteger
Fori=3To1Step-1a(i)=nMod10n=n\10
Nexti
Fori=1To2
Ifa(i)>=a(i+1)ThenExitForNexti
judge=TrueEndFunction
选项
答案
OptionExplicitOptionBase1 PrivateSubCommand1_Click() DimnAsInteger,a() AsInteger,kAsInteger,pAsIntegern=InputBox("输入数据个数:","升序数数组",10)ReDima(n) Do p=Int(Rnd900) +100 ’errp=Int(Rnd900)Ifjudge(p) Then k=k+1a(k)=p Text1.Text=Text1.Text&Str(a(k)) IfkMod5=0ThenText1.Text=Text1.Text&vbCrLfEndIf LoopUntilk=n ’errUntilerrk>nEndSub PrivateFunctionjudge(ByValn AsInteger)AsBoolean ’err无ByValDimiAsInteger,a(3) AsInteger Fori=3To1Step-1a(i)=nMod10n=n\10 Nexti Fori=1To2 Ifa(i) >=a(i+1) ThenExitFunction ’errExitForNexti judge=TrueEndFunction [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/IIhZ777K
0
全国高校计算机二级
相关试题推荐
Weakdollarorno,$46,000—thepriceforasingleyearofundergraduateinstructionamidtheredbrickofHarvardYard—is【C1】__
Weakdollarorno,$46,000—thepriceforasingleyearofundergraduateinstructionamidtheredbrickofHarvardYard—is【C1】__
输入n个整数,输出其中最小的k个。例如输入1,2,3,4,5,6,7和8这8个数字,则最小的4个数字为1,2,3和4。
在Interenet选项中删除IE临时文件夹的所有内容,并删除所有脱机内容。
如果利用局域网连接Internt,在Internet选项中进行设置代理服务器HTTP:proxy.pku.edu.cn端口:8080。
在Google搜索中使用or查询“辽宁”,“高校”。
在即时通讯工具MSN的界面上,通过鼠标操作(不通过菜单栏)向脱机用户bnuxxs01@163.corn,发送一封电子邮件,主题为“hi,howareyou?”,邮件主要内容为“Whenareyouonline?”邮件内容格式遵循给出的模板格式,为先
为了方便按实际内容组织和录入演示文稿内容,PPoint97提供()种视图。A.5B.6C.7D.8
中文word编辑软件的运行环境是()。A.dosB.wpsC.windowsD.高级语言
某工作表中存放学生成绩,请将其“高等数学”的成绩输入范围限定在“整数”的0-100范围内。
随机试题
Thecomputerisawonderfulmachine.Itisthemostimportantinventionsincethetypeofengineusedincars.Todayithasthe
男性患者,56岁。乏力,腹胀半年。查体:贫血貌,肝肋下1cm,脾肋下7cm。血常规:白细胞260×109/L,血红蛋白78g/L,血小板400×109/L。检查分类可见中、晚幼粒为主,NAP积分降低。最可能的诊断是
木瓜的功效是()
下列说法中正确的是
关于工程量计算的注意事项,说法正确的有()。
根据总账与明细账的平行登记要求,每项经济业务必须在同一期间登记明细账和总账。()
对沪港通相关的企业所得税政策,说法错误的是()。
下列关于企业所得税纳税地点的表述中,正确的有()。
旅行团在游览中,一游客突发心脏病,此时导游人员不正确做法应是()。
企业战略的实质是实现()之间的动态平衡。
最新回复
(
0
)