首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为。True,ScrollBars属性设置为2(如图所示)。程序运行后,如果
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为。True,ScrollBars属性设置为2(如图所示)。程序运行后,如果
admin
2019-06-24
24
问题
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为。True,ScrollBars属性设置为2(如图所示)。程序运行后,如果执行“读入数据”命令,则读入考生文件夹下datainl.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中下标为偶数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp,窗体文件中的ReadData过程可以把datainl.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍保存为sjt.s.vbp,窗体文件名仍保存为sjt5.frm。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,利用菜单设计器,按表中的设置建立菜单项,在窗体Form1中绘制一个文本框,其相关属性及其值见表4.19和表4.20。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 需要考生编写的内容 Dim sum As Integer ’考生编写程序结束 ’需要考生编写的内容 Private Sub Calc Click() Text1.Text="" For i=2 To 100 Step 2’从2开始循环.以2为步长的下标都是偶数 Text1.Text=Text1.Text&Arr(i)&Space(5) sum=sum+Arr(i)’对下标为偶数的值求和 Next i Print sum End Sub Private Sub Read Click() ReadData’调用ReadData子过程 End Sub Private Sub Save Click ()’调用SaveClick函数 WriteData"dataout.txt",sum End Sub ’考生编写程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意在“读入数据”命令的Click事件过程中,通过调用ReadData过程将数据从datainl.txt文件读入到数组Arr(窗体变量)中;在“计算并输出”命令的Click事件过程中,在For循环语句(循环变量i的初值为2,终值为100,步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中,并将其值累加到变量sum;在“存盘”命令的Click事件过程中,通过调用WriteData过程将sum的值写入数据文件dataout.txt中。
转载请注明原文地址:https://kaotiyun.com/show/GqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是()。
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中,下面可实现此功能的事件过程是()。
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组optItem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态。如图3—
在窗体上画一个文本框,其名称为Text1,然后编写如下程序:OptionBase1PdvmeSubForm_Click()DimArr(10)AsIntegerFori=6To10An(i)=i-3
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimI,NumRandomizeDoForI=1To1000Num=Int(R
下列可以打开随机文件的语句是
下面定义窗体级变量a的语句中错误的是
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
随机试题
汗腺为_______,由_______和_______构成,开口于_______,其分泌物为_______。
患者,男性,46岁,血尿1周就诊。B型超声波发现右肾3cm×4cm实质肿瘤。一般情况良好。为进一步明确诊治,下列哪项检查没有意义
治疗上呼吸道感染的措施,下列哪项不妥()
苦味药的作用是
绞窄性疝与嵌顿性疝的主要区别是
某电车公司保养车库工程施工,日班工人在吊装屋面板时,在出屋面的混凝土柱子旁边产生板空,由于施工疏忽孑L洞未进行防护。在夜班施工浇筑混凝土圈梁时,一名工人不慎从板空处掉下,将腿和手臂摔成骨折,住院治疗休息四个月后痊愈。该类事件造成的不良后果属于()事故
除外籍院士外,中国工程院院士人数在哪一年首次超过中国科学院院士?()自1995年到2006年,以下说法正确的是()。
美感产生于_______。
“主犯应当承担共同犯罪的全部责任。”
【F1】Eversincethemid-1980s,whenOPEC’sattemptstokeeptheoilpricehighcollapsedinthefaceofrisingsupply,onlywarh
最新回复
(
0
)