首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单项(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-272所示)。程序运
在窗体上建立三个菜单项(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-272所示)。程序运
admin
2018-12-05
18
问题
在窗体上建立三个菜单项(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-272所示)。程序运行后,如果单击“读入数据”按钮,则读入datain1.txt 文件中的100 个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”命令,则把该数组中可以被3整除的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”命令,则把所求得的和存入考生文件夹下的dataout.txt 文件中。
在考生文件夹下有一个工程文件sjt5.vbp,考生可以装入该文件。窗体文件中的ReadData 过程可以把datain1.txt 文件中的100个整数读入Arr 数组中;而WriteData 过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为sjt5.vbp,窗体文件名仍为 sjt5.frm。
选项
答案
【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt5.vbp,利用菜单设计器,如表2-142中的设置建立菜单项。 [*] 步骤2:在窗体Form1中画一个文本框,其相关属性及值如表2-143。 [*] 步骤3:在代码编辑窗口,分别编写三个菜单项的Click事件过程。 参考代码: Dim Sum As Integer Private Sub Read_Click() ReadData End Sub Private Sub Calc_Click() Dim S As String Sum = 0 For i = 1 To 100 If Int(Arr(i) / 3) = Arr(i) / 3 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " " End If Next i Text1.Text = S Print "Sum = "; Sum End Sub Private Sub Save_Click() WriteData "Dataout.txt", Sum End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/zkFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若窗体上有一个名为Command1的命令按钮,并有下面的程序:PrivateSubCommand1_Click() Dimarr(5)AsInteger Fork=1To5 arr(k)=k Nextk prog
以下不能触发滚动条Change事件的操作是( )。
编写如下程序:PrivateSubForm_Click() Print"Welcome!"EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs
下面描述中不属于数据库系统特点的是
A、DYBEAFCZXB、YDEBFZXCAC、ABDYECFXZD、ABCDEFXYZC前序遍历是指在访问根结点、遍历左子树与遍历右子树这三者中,首先访问根结点,然后遍历左子树,最后遍历右子树;并且,在遍历左右子树时,仍然先访问根结点,然后遍历左
向文本框中输入字符时,下面能够被触发的事件是( )。
以下合法的VB变量名是( )。
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是( )。
随机试题
构成医患交往障碍患者方面的因素下列哪项正确
Theageofconstitutionalmonarchybeganwiththeaccessionof______tothethrone.()
与肓俞穴平齐的腧穴是:
男性,78岁,因突然意识丧失数秒来诊,脉搏35次/分,听诊心率35次/分,每分钟可闻及4~5次响亮的第一心音首先考虑的诊断为
环卵沉淀试验(cOPT)用于诊断哪种寄生虫病
最小二乘法原理是指各实测点距回归直线的
A.先审小腹痛与不痛,次审大便通与不通,再审乳汁的行与不行及饮食多少 B.先审大便通与不通,次审小腹痛与不痛,再审乳汁的行与不行及饮食多少 C.先审小腹痛与不痛,次审乳汁的行与不行及饮食多少,再审大便通与不通 D.禁大汗,禁峻下,禁通利小便
患者,男性,60岁,上腹部隐痛2个多月,伴肾区叩击痛,镜下血尿。B超检查,双肾各有一结石,直径约0.8cm×0.9cm。肾盂静脉造影(IVP)示肾功能正常,双侧输尿管通畅。若病需再次接受ESWL治疗,间隔时间至少为
M企业在存货发出时,采用月末一次加权平均法核算,该企业2018年10月初库存材料60件,每件为1000元,月中又购进两批,一批200件,每件950元,另一批100件,每件1046元,则月末该材料的加权平均单价为()元。
针对很重视安全性的瑞典市场,美国的一家台式计算机制造商开发出了一种特别的显示屏,这种显示屏产生的环绕使用者的电磁场比正常的屏幕产生的电磁场弱很多。尽管比其竞争者具有这方面的优势,该制造商在把这种显示屏引入美国市场时并没有在广告中宣扬其是一种改进了安全性的产
最新回复
(
0
)