首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有3个菜单,名称分别为Read、Arg和Save,标题分别为“读人数据”、“计算显示”和“保存”,一个文本框,名称为Textl,MultiLine属性设置为True,ScrollBars属性没置为2。程序运行时的窗体界面如图16—7所示。如果执行“
在窗体上有3个菜单,名称分别为Read、Arg和Save,标题分别为“读人数据”、“计算显示”和“保存”,一个文本框,名称为Textl,MultiLine属性设置为True,ScrollBars属性没置为2。程序运行时的窗体界面如图16—7所示。如果执行“
admin
2010-07-13
43
问题
在窗体上有3个菜单,名称分别为Read、Arg和Save,标题分别为“读人数据”、“计算显示”和“保存”,一个文本框,名称为Textl,MultiLine属性设置为True,ScrollBars属性没置为2。程序运行时的窗体界面如图16—7所示。如果执行“读人数据”命令.则读入sjin.txt文件中的50个整数,放人一个数组中,数组的下界为1;如果执行“计算显示”命令,则把该数组中下标为奇数的元素在文本框中显示出来,求出它们的平均数,并把所求得的和在文本框中显示出来;如果执行“保存”命令,则把所求得的平均值存人考生文件夹下的sjout.txt文件中。在考生文件夹下有一个工程文件sj5.vbp。请将程序中有问号的地方用相应的代码补完整,并将代码前的所有注释符(即“’”号)去掉。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为sj5.vbp.窗体文件名
仍为sj5.frm。
选项
答案
根据题意,在名为Forml的窗体内添加3个主菜单,名称分别为Read、Arg和Save,Caption属性分别为“读人数据”“计算显示”和“保存”,画一个列表框控件,Name为Listl,单击读人数据菜单,进入代码窗口,编写如下代码: Dim a(50)As Long’全局变量 Dim str(50)As String’全局变量 Dim total As Long Private Sub Arg_Click() ’求平均值 total=total\50 Textl.Text=total End Sub Private Sub Read_Click() total=0 Textl.Text="" Open"App.Pathg&\sjin.txt"For
Input
As#1’打开"sjin.txt"文件 Dim i As Integer Dim temp As Integer For i=1 To 50’利用For循环读人数据 Input#1,temp a(i)=temp’按顺序读入到数组中 Next i For i=1 To 50 total=
total
+a(i) ’求和 str(i)=a(i) Textl.Text=Textl.Text+str(i)+vbCrLf’将数组中的50个数放人Text中显示 Next i Close#1 End Sub Private Sub Save_Click() ’保存数据 Open"App.Path&\sjout.txt"For Output As#1
Write
#1,total Close#1 ’将结果保存到out.txt End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/5Lmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设计程序时,应采纳的原则之一是()。
在Java运行时,如获得一个异常对象,它会自动寻找处理该异常的代码,它从生成异常对象的代码构件开始,沿着【】按层回溯寻找,直至找到处理该类异常方法为止。
下面不属于软件设计原则的是( )。
下面Applet在窗口中实现一个不可编辑的TextField,并且显示“ok”。在横线处填入正确的语句。importjava.applet.Applet;importjava.awt.t;publicclassTestextendsApp
现有一个整型数组a[4],它的所有数组元素为( )。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
算法复杂度主要包括时间复杂度和______复杂度。
Java中方法的参数传递是______调用,方法不能改变参数值,但可以改变变量值,两个对象之间的参数字段不能相互交换。
下列不属于Java的图形用户界面内容的包是()。
随机试题
Howdidthespeakerfirstbecomeinterestedinhisfieldofwork?
A.半夏止咳糖浆B.二母宁嗽丸C.桂龙咳喘宁胶囊D.通宣理肺丸E.川贝枇杷露
2013年1月1日甲公司与乙商业银行达成协议,将乙商业银行于2011年1月1日贷给甲公司的3年期、年利率为9%、本金为500000元的贷款进行债务重组。乙商业银行同意将贷款延长至2014年12月31日,年利率降至6%,免除积欠的利息45000元,本金减至4
国内外各类专业理财证书基本都执行的认证标准包括()。
公开采购信息是避免采购腐败的重要一步,但也难以_________。为最大程度减少采购乱象,还应将“双随机一公开”落实到位。按照制度设计,财政部依法实施政府采购监督检查时,随机抽取检查对象、随机选派执法检查人员,并及时公开抽查情况和查处结果。同时,审计机关、
随着基础设施建设不断加快。公路路网日益优化和城乡居民收入水平的提高,某省各类民用车辆拥有量保持稳步增长。至2012年年末,全省民用车(汽车、电车、摩托车、拖拉机、挂车和其他类型车等六类车)拥有量为862.70万辆,比上年增长12.8%。其中,营运车93.6
有一笔国债,5年期,平价发行,票面利率为12.22%,单利计息,到期一次还本付息,到期收益率(复利按年计息)是()。
Youwillhearaspeakeraddressingthetopicofsellingabusiness.Asyoulisten,forquestions1-12,completethenotesusing
A、Sorry,Idon’tknow.B、At8p.m.C、Yes,I’dloveto.D、Withpleasure.AWhat’sonattheGardenCinematonight?
A—CertificateofHealthB—FireInsuranceC—IndustrialAccidentsD—InsuranceCompanyE—InsurancePolicyF—LifeInsuranceG—Marine
最新回复
(
0
)