首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在窗体上有三个菜单,名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”,一个文本框,名称为Text1,MultiLine属性设置为Tree,
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在窗体上有三个菜单,名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”,一个文本框,名称为Text1,MultiLine属性设置为Tree,
admin
2009-02-25
37
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
在窗体上有三个菜单,名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”,一个文本框,名称为Text1,MultiLine属性设置为Tree,ScrollBars属性设置为2,如图21-7所示。
程序运行后,如果执行“读入数据”命令,则读入datain1.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中下标为奇数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp,窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整,将注释号(’)去掉。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为sjt5.vbp,窗体文件名仍为sjt5.frm。
选项
答案
使用Open方法和Close方法打开和关闭文件,使用循环语句把整数赋给数组。在计算输出时,先定义一个变量,用来保存奇数的和;计算时找出数组中下标为奇数的数进行累加,将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤: 第一步:建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。 [*] 第二步:编写程序代码。 程序提供的代码: Option Base 1 Dim Arr(100) As Integer Dim temp As Integer Sub ReadData() Open App.Path & "\" & "datain1.txt" For Input As #1 For i=1 To 100 Input #1, Arr(i) Next i ’? #1 End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & "\" & Filename For Output As #1 Print #1, Num Close #1 End Sub Private Sub Calc_Click() ’Text1.?="" For i=1 To 100 Step 2 Text1.Text=Text1.Text & Arr(i) & Space(5) temp=temp+Arr(i) Next i ’Print ? End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", temp End Sub 参考代码: Option Base 1 Dim Arr(100) As Integer Dim temp As Integer Sub ReadData() Open App.Path & "\" & "datain1.txt" For Input As #1 For i=1 To 100 Input #1, Arr(i) Next i Close #1 End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & "\" & Filename For Output As #1 Print #1, Num Close #1 End Sub Private Sub Calc_Click() Text1.Text="" For i=1 To 100 Step 2 Text1.Text=Text1.Text & Arr(i) & Space(5) temp=temp+Arr(i) Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", temp End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Yh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设树T的度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
有下面的Applet程序段:import,java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Grap
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
下列不属于软件工程过程的基本活动的是()。
所谓关系是指()。
在Java语言中最基本的元素是【】。
在深度为7的满二叉树中,度为2的结点个数为【】。
在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中,【】负责数据的模式定义与数据的物理存取构建。
以下各特点中属于算法的基本特征的是()。
Mid("HelloEveryone",7,3)的执行结果是
随机试题
Manyoftheproblemswefacetodayarenotsonewaswethinktheyare.Andsomeofourmodernsolutionsarenotsonew,either.
A.阿米卡星B.万古霉素C.利福平D.盐酸克林霉素E.红霉素治疗结核病宜选用()。
患者,男性,45岁。家住平房,生煤火取暖,晨起感到头痛、头晕、视物不清,疑为CO中毒,120接到报警后,首要的处理应是
企业法人的分支机构有法人书面授权的,可以在授权范围内提供保证。()
在全球稀土市场当中,矿产资源丰富但分布不平均。由于稀土开采的高污染性和资源稀缺性,很多国家通过进口满足本国稀土需求。建兴稀土是一家设立于A国的上市稀土企业,主要业务为稀土产业链的上游行业。包括配套设施建设、稀土矿探查、开采以及分离,但也从事出口对外销售业务
学习___________是一个动态的发展过程,包括纵向和横向两个维度。
在“对话一互动”式教学过程中,教师和学生的关系是()。
软件的调试方法主要有强行排错法、______和原因排除法。
January28,2007Mr.MichaelJohnPeaceConCorp.1004WesternSt.NewYork456159DearMr.MichaelJohn,Bywayofintroduct
Don’tFeartheMaleBabysitterFordecades,boys,notgirls,wereseenastheidealpeopletotakecareofchildren.Whydid
最新回复
(
0
)