首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读人数据”命令,则读入
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读人数据”命令,则读入
admin
2019-03-14
53
问题
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读人数据”命令,则读入datainl.txt文件中的100个整数,将其放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中大于等于50的元素显示在文本框中,求出它们的和,并把所求得的和显示在窗体上;如果单击“存盘”按钮,则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp,考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读人数组Arr中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍保存为sjt5.vbp,窗体文件名仍保存为sjt5.frm。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,利用菜单设计器,按表3.83中的设置建立菜单项,在窗体Form1中绘制一个文本框,其相关属性及其值见表3.102和表3.103。 [*344] 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim Arr(100) 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 If Arr(i) >= 50 Then Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", sum End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/M6Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下:①单击“
考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Comb01的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项,如图5(A所示,单击“输
在名称为Forml的窗体上画一个名称为Imagel的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmdl、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使
设窗体上有一个文本框Textl和一个命令按钮Commandl,并有以下事件过程:PrivateSubCommandl—Click()DimsAsString,chAsStrings=“”Fork=1ToLen(Textl)ch=Mid(
通用对话框Filter属性的作用是
数学式y2>x>=10在VB中应表示为
假定有如下情况语句:SelectCaseX能表示|X|>5的Case子句是
循环队列的存储空间为Q(1:50),初始状态为front=rear=50。经过一系列正常的人队与退队操作后,front=rear=25,此后又正常地插入了一个元素,则循环队列中的元素个数为()。
对于循环队列,下列叙述中正确的是
随机试题
A.≥140°B.<140°C.>110°D.≤110°髋外翻的颈干角范围是
卵巢癌一线化疗方案为
有关血胸下列哪些描述是正确的
在一栏待宰的100头牲猪中,发现有一头患有口蹄疫,其正确的处理方法是
环境空气质量现状调查资料来源分()途径。
根据《合同法》,关于要约与承诺的说法,错误的有()。
在社会经济运行中,当通货膨胀率上升时,一般会导致()。
设函数f(x)(x≥0)连续可导,且f(0)=1.又已知曲线y=f(x)、x轴、y轴及过点(x,0)且垂直于x轴的直线所围成的图形的面积值与曲线y=f(x)在[0,x]上的一段弧长值相等,求f(x).
MigrantworkersInthepasttwentyyears,therehasbeenanincreasingtendencyforworkerstomovefromonecountrytoan
Ifyouhaveatinyroomthatyou’rethinkingaboutasabedroomforyourchildoraguest,gettingthemostoutofasmallspace
最新回复
(
0
)