首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
改错题 【要求】 1)打开“T盘”中“P2vbp”文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件; 2)改错时,不得增加或删除语句,但可适当调整语句位置。 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序
改错题 【要求】 1)打开“T盘”中“P2vbp”文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件; 2)改错时,不得增加或删除语句,但可适当调整语句位置。 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序
admin
2019-04-04
88
问题
改错题
【要求】
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
全国高校计算机二级
相关试题推荐
输入一个整数数组,判断该数组是不是某二元查找树的后序遍历的结果。如果是返回true,否则返回false。例如输入5、7、6、9、11、10、8,由于这一整数序列是如下树的后序遍历结果:因此返回true。如果输入7、4、6、5,没有哪棵树的后序遍历
八皇后问题(输出所有情况,不过有些结果只是旋转了90度而已)。哈哈:)回溯算法的典型例题
在IE中,请将Intetnet区域内站点的安全级别设置为“禁止ActiveX控件和插件运行”。
用Word打开文档A1.doc,然后将文档以A2.doc为名进行“另存为”的操作,这时()。A.A1.doc和A2.doc两个文档全被关闭B.A1.doc是当前文档C.A2.doc是当前文档D.当前文档由用户指定是A1.doc或A2.doc
在PPoint97中,演示文稿的扩展名是()。A..JPGB..DOCC..PPTD..WPS
计算机能直接识别和执行的语言是()A.机器语言B.高级语言C.数据库语言D.汇编程序
关于局域网的叙述正确的是______A.覆盖的范围有限、距离短B.数据传输速度高、误码率低C.光纤是局域网最适合使用的传输介质D.局域网使用最多的传输介质是双绞线
请在当前幻灯片的数据表上,从单元格A1开始导入Excel文件中的数据表Sheet1。
19世纪,英国数学家巴贝奇被称为“计算机之父”。
随机试题
___________是指现有产品包括所有附加产品在内的,可能发展成为未来最终产品的潜在状态的产品。
脾亢切脾治疗的指征是
患者,男,80岁。全口无牙,戴全口义齿近15年,因黏膜不适就诊。检查见黏膜呈红亮色,水肿,有黄白色假膜,直接镜检见菌丝和芽胞。该患者治疗中不妥的用药为
女,42岁。双下肢水肿1月余,进行性呼吸困难半个月。2个月前因腰柱间盘突出卧床休息。查体:BP120/80mmHg,双肺呼吸音清,心率93次/分,P2>A2。超声心动图提示肺动脉高压。该患者呼吸困难的最可能原因是()
根据《中华人民共和国反不正当竞争法》,下列情形不属于“不正当竞争行为”的是()。
为抢救急性肺水肿病人给予加压吸氧时,湿化瓶内的乙醇浓度应是多少
中标人不与招标人订立合同的,()。
①中医认为,人的泪液“由五脏六腑所生,由肝肾所主”②人体是一个有机的整体,脏腑是人体生命活动的中心③眼睛作为人体的一个器官与五脏六腑有着密切的联系,身体各方面的疲劳都会表现为眼睛不舒服④因此,中医治疗眼干燥症需要综合调理,从调
卡片题。实时通信工具对人的影响:(1)拉近人与人距离;(2)疏远人与人距离。选好之后考官会提供另一张卡片,内容是3个论据,要求反驳这3个论据,内容分别是实时通信工具对朋友、家人、领导的影响。
阅读以下应用说明及VisualBasic程序代码,将应填入(n)处的字句写在对应栏内。本应用程序的窗体中有一个下拉式列表框(名称为Combol)和两个文本框(名称分别为Txt_Content和Txt_Index)。运行时,用户从Combol的列
最新回复
(
0
)