首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sit5.vbp,窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
在考生文件夹下有一个工程文件sit5.vbp,窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
admin
2016-12-29
68
问题
在考生文件夹下有一个工程文件sit5.vbp,窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1和Text2、初始内容都为空的文本框,并且可多行显示,有垂直滚动条,如图2.47所示。程序功能如下:
1)单击“读数据”按钮,则把考生文件夹下:in5.dat文件中的100个正整数读入数组A,并将它们显示在Text1文本框中;
2)单击“排序”按钮,则首先将这100个数中的所有完全平方数放入数组B中,并将它们按降序排列显示在Text2文本框中。
提示:一个整数若是另一个整数的平方,那么它就是完全平方数。如144=12,所以144就是一个完全平方数。
要求:去掉注释符,把?改为正确内容,并添加代码使得“排序”命令按钮的Click事件过程可以实现上述功能。
提示:Sort过程可以把求出的完全平方数进行排序,可以直接调用。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“排序”,且须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sjt5.vbp,在码编辑窗口的指定位置输入以下代码: 参考代码: 考生编写的代码 n=0 For k=1 To 100 If a(k)>0 Then d=Sqr(a(k)) If Int(d)=d Then n=n+1 b(n)=a(k) End If End If Next 考生编写代码结束 步骤2:在代码编辑窗口中,去掉程序中的注释符“”’,将问号“?”改为正确的内容。 参考代码: Call Sort(b,n) 步骤3:按
键运行程序.单击“读数据”按钮,然后单击“排序”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/f9Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行如下两条语句后,窗体上显示的是()。a=9.8596PrintFormat(a,“$00,00.00”)
窗体上有一个名称为Picturel的图片框控件,一个名称为Timerl的计时器控件,其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下:PrivateSubTimerlTimer()Static
以下关于函数过程的叙述中错误的是()。
窗体上有一个名称为Commandl的命令按钮,其单击事件过程代码如下:PrivateSubCommandlClick()StaticxAsVariantn=0x=Array(1,2,3,4,5,6,7,8
用下面的语句所定义的数组的元素个数是:______。Dimarr(3To5,-2to2)
新建一工程,将其窗体的Name属性设置MyFirst,则默认的窗体文件名为()。
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
下面4项中不属于面向对象系统三要素的是()
下列选项中不属于结构化程序设计方法的是
随机试题
下列哪些属于行政违法的特征()。
存取盘块中的信息一般要有三部分时间,即_______、_______、_______。
英国A公司于1996年1月10日在我国申请小汽车外形外观设计专利(申请号为00837),并于同年4月30日由我国专利局授予专利权。上海某汽车厂于1996年12月向我国专利局专利复审委员会提出宣告该项专利无效的请求。理由是:1990年9月27日英国出版的刊物
图形检索主要适用于()。
国内安全保卫工作是党和国家赋予公安机关的一项特殊使命,具有()的特点。
法治的终极性的目标价值是()。
太平天国农民战争动摇了清王朝封建统治的基础,然而,其失败的原因和教训是深刻的。太平天国农民战争失败的原因包括
Idon’tquitefollowwhatsheissaying.
基于人才市场竞争日益激烈,工作岗位供不应求,很多大学生毕业后选择继续深造而不是就业。
TheriseofEnglishisaremarkablesuccessstory.WhenJuliusCaesarlandedinBritainnearlytwothousandyearsago,Englishd
最新回复
(
0
)