首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-267所示)。程序运行
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-267所示)。程序运行
admin
2018-12-05
56
问题
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-267所示)。程序运行后,如果单击“读入数据”按钮,则读入datain1.txt 文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中下标为偶数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则把所求得的和存入考生文件夹下的dataout.txt 文件中。
在考生文件夹下有一个工程文件sjt5.vbp,考生可以装入该文件。窗体文件中的ReadData 过程可以把datain1.txt 文件中的100个整数读入Arr数组中;而WriteData 过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt5.vbp,利用菜单设计器,如表2-137中的设置建立菜单项。 [*] 步骤2:在窗体Form1中画一个文本框,其相关属性及值如表2-138。 [*] 步骤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 i Mod 2 = 0 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/4tFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
层次型、网状型和关系型数据库划分原则是( )。
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是( )。
下面描述中不属于数据库系统特点的是
结构化程序所要求的基本结构不包括( )。
对于循环队列,下列叙述中正确的是( )。
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
在E-R图中,用来表示实体联系的图形是
在E-R图中,用来表示实体的图形是
随机试题
设曲线y=y(x)(x>0)经过点(1,2)。该曲线上任意一点P(x,y)到y轴的距离等于该点处的切线在y轴上的截距.求y=y(x).
患者,女,15岁。吃瓜果后,出现腹痛,下痢脓血,泻痢不爽。宜用黄连配伍下列哪味中药()
硝酸酯类舒张血管的机制是
淋巴结内转移,蘸首先见于何处
小儿,体重8kg,身长68cm,会抬头,会独坐,会爬,不会站,萌牙2枚。为判断骨骼发育年龄,最有临床意义的X线拍片部位是()
从业人员不得在未经客户同意的情况下,将客户的任何私人信息泄露给他人,除非是依照恰当的法律程序。()
下列各项中属于财务预算的有()。
Marriageis,formanypeople,theirmostimportantrelationship,thesourceofmuchhappiness,and,forsome,evenaddsextraye
Itisnotlongsinceconditionsinthemineswereworsethantheyarenow.Therearestill【C1】______afeweveryoldwomenwhoin
Fillinthecrosswordssothatallthegivenwordsareincluded.Youhavebeengivenoneletterasaclueinthecrossword.HEAR
最新回复
(
0
)