首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
改错题 【要求】 1)打开“T盘”中“P2vbp”文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件; 2)改错时,不得增加或删除语句,但可适当调整语句位置。 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序
改错题 【要求】 1)打开“T盘”中“P2vbp”文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件; 2)改错时,不得增加或删除语句,但可适当调整语句位置。 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序
admin
2019-04-04
89
问题
改错题
【要求】
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
全国高校计算机二级
相关试题推荐
Whethertheeyesare"thewindowsofthesoul"isdebatable;thattheyareintenselyimportantininterpersonalcommunicationis
Althoughcreditcardsarebecomingamoreacceptablepartofthefinancialscene,theyarestillregardedwithsuspicionbymany
输入一个整数数组,判断该数组是不是某二元查找树的后序遍历的结果。如果是返回true,否则返回false。例如输入5、7、6、9、11、10、8,由于这一整数序列是如下树的后序遍历结果:8/\610
编码实现字符串转整型的函数(实现函数atoi的功能),据说是神州数码笔试题。如将字符串”+123”-->123,”-0123”-->-123,“123CS45”-->123,“123.45CS”-->123,“CS123.45”-->0
使用鼠标右键菜单方式,全部答复发件人为“jolin”的邮件,回复内容为“收到,请等待通知”。
在当前界面【管理工具】窗口中,设置Windows密码策略,将密码长度最小值设置为8个字符。
在PPoint97中,打开演示文稿可以用()操作方法实现。A.CTRL+EB.CTRL+OC.CTRL+FD.CTRL+H
下列叙述正确的是______A.进行打印预览时必须开启打印机B.使用“文件”菜单中的“打开”命令可以打开一个以存在的.DOC文件C.Word2000可将正在编辑的文档另存为一个纯文本(.TXT)文件D.Word2000允许同时打开多个文件
在windows98中,要关闭word,下面叙述中错误的是()。A.双击标题栏左边的图标B.单击文件菜单中的关闭C.单击标题栏右边的“×”D.单击文件菜单的“退出”
下列关系运算的叙述中,正确的是
随机试题
母乳的优点如下所述,哪一项除外
下列关于相对危险度(RR)的叙述正确的是
有关卵巢粘液性囊腺癌,哪项说法不正确:
确定主动脉瓣关闭不全最敏感的检查方法是
不计数额,下列哪一选项构成侵占罪?(2012年卷二18题,单选)
室内照明灯具距离地面的高度不低于2.5米;室外照明灯具距离地面的高度不低于3米。
该企业当年应交增值税为( )。该企业应交所得税为( )。
城市土地利用的一般模式是,自中心城区到远郊区依次为商业用地、居住用地、工业用地和农业用地。影响这种土地利用空间结构的主要因素是()。①土地价格②发展历史③交通条件④生活习惯
在当初,像希腊这样一个文明古国长期被土耳其统治,_______略有文明记忆的人一定会非常痛苦。这种感觉,比一般的亡国之痛还要强烈,_______文明早已成为一种生态习惯,却要全部拆散,用一种低劣的方式彻底替代。填入划横线部分最恰当的一项是()。
NewChangesinAmericanLifeOnceitwaspossibletodefinemaleandfemaleroleseasilybythedivisionoflabor.Menworked
最新回复
(
0
)