首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分。在窗体上有3个命令按钮,名称分别为Read、Cal和save,标题分别为“读入数据”、“判断计算”和“保存”,还有两个文本框(名称分别为Textl和Te
去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分。在窗体上有3个命令按钮,名称分别为Read、Cal和save,标题分别为“读入数据”、“判断计算”和“保存”,还有两个文本框(名称分别为Textl和Te
admin
2009-03-26
1.9K+
问题
去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分。在窗体上有3个命令按钮,名称分别为Read、Cal和save,标题分别为“读入数据”、“判断计算”和“保存”,还有两个文本框(名称分别为Textl和Text2,其中Textl的MultiLine属性设置为True,ScrollBars属性设置为2),程序运行界面如图31—5所示。
程序运行后,如果单击“读人数据”按钮,则读入sjin.txt文件中的50个整数,放人一个数组中,数组的下界为l;如果单击“判断计算”按钮,则把该数组中大于400且是奇数的元素在文本框中显示出来,并求出它们的和,并把所求得的和在Text2中显示出来;如果单击“保存”按钮,则把所求得的和存入考生文件夹下的sjout.txt文件中。在考生文件夹下有一个工程文件sj5.vbp,输出文件名为sjout.txt。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为sj5.vbp,窗体文件名仍为sj5.frm。
选项
答案
根据题意,将两个Text控件和3个Command控件添加到窗体上,Text的名称分别为Textl和Text2、Text属性全为空,其中Textl的MultiLine属性为True、ScrollBar属性为2、Command的名称分别为Commandl、Command2和Command3,Caption属性分别为“读人数据”、“判断计算”和“保存”。双击Commandl命令按钮,编写如下代码: Dim a(50)As Integer Dim total As Long Private Sub Commandl_Click() Dim str As String Dim i As Integer str="" Open"App.Pathl&\sjin.txt"For
Input As
#1 ’打开文件准备读入 For i=1 To 50 ’利用For循环将50个数读人到数组中 Input#1,a(i) str=str+CStr(a(i))+vbCrLf’以字符串形式保存 Next i Close#1 Textl.Text=str’在Textl中显示数组 End Sub Private Sub Command2_Click() Dim i As Integer Dim str As String str="" total=0 For i=1 To 50’利用For循环遍历数组
If a(i)>400 And a(i)Mod 2=1
Then’判断是否大于400且是奇数 total=
total+a(i)
’如果是则求和 str=str+CStr(a(i))+vbCrLf’并放入输出字符串中 End If Next i Textl.Text=str’在Textl中显示符合条件的数 Text2.
Text
=total’在Text2中显示和 End Sub Private Sub Command3 Click() Open"App.Pathg&\sjout.txt"For
Output As#2
’打开文件准备写入 Print#2,total’将求得的和写入文件中 Close#2 End Sub 单击[*] 按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/vV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Appiet类中用于返回包含Applet的HTML文件URL的方法是【】。
联接运算是将两个或两个以上的关系根据联接条件生成一个【】。
结构化程序设计主要强调的是()。
如果一个JavaApplet源程序文件只定义有一个类,该类的类名为MyFirstApplet,则存储该源程序的文件名必须为【】。
算法的空间复杂度是指算法执行过程中所需要的【】。
数据结构中,与所使用的计算机无关的是数据的()
publicThrowable(Stringmessage)构造函数包含getMessage()方法,用来返回带参数构造函数创建异常时的【】,对无参数构造函数而言,用它返回的是空值。
算法的复杂度主要包括【】复杂度和空间复杂度。
算法具有五个特性,以下选项中不属于算法特性的是()。
下列哪个选项是short型数据的取值范围?
随机试题
舌的运动神经为
患者,男,38岁。胸骨疼痛3个月余,体检时发现脾大达肋下4cm,化验血白细胞升高达60×109/L,临床疑诊为慢性粒细胞白血病。问题2:下列不支持慢性粒细胞白血病慢性期的是
急性肾炎时在肾小球基底膜上沉积的免疫球蛋白主要是
沿海某开发区将滩涂治理与围垦造地结合,在开发区的东部建设一块50万m2的商业用地,工程内容包括:将周边淤泥吹填至场区围堰内、地基加固、陆上土方回填等。通过招标确定了施工单位。施工合同规定:工期220d;开工时间:2001年6月30日;工程造价:9110万元
公路项目工程量清单单价应包括的费用有()。
根据相关法律法规的规定,纳税人因有特殊困难,不能按期缴纳税款的,经省、自治区、直辖市税务局批准,可以延期缴纳税款,但最长不得超过( )个月。
为何中国人过年时一定要回家?据专家考证,可能与“年”是个恶兽的传说有关。传说,“年”长着四只角、四只足,力大无比,在每年的最后一天,便会出来作祟,当时生产力低下,个体对付“年”的能力不足,人多力量大,于是全家人守在一起,等着“年”的到来,合力把“年”赶走,
__________,白雨跳珠乱入船。(宋.苏轼《六月二十七日望湖楼醉书》)
①尽管饮食习惯不良、不爱活动等因素会增加儿童肥胖的风险②但对双胞胎进行的研究以及其他基于家庭进行的研究表明,儿童期肥胖可能有基因方面的原因③作为影响现代社会的主要公共卫生问题之一,肥胖日益引起公众关注④但对导致普通儿童肥胖的基
WhenIwaswalkingdownthestreettheotherday,Ihappenedtonoticeasmallbrownleatherwalletlyingonthesidewalk.Ipic
最新回复
(
0
)