首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”
admin
2010-07-13
75
问题
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”按钮.则读人in.txt文件中的100个整数,放人一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算数组中大于或等于400并且小于800的所有数之和,并将结果在文本框Text1中显示出来,同时把结果存入考生文件夹的result.txt文件中(在prog.bas中的putdata过程可以把结果存人result.txt文件)。
注意:文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp,计算结果存入result.txt文件中,否则没有成绩。
选项
答案
文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置,单击命令按钮触发Click事件。本题涉及到文件的操作,读入顺序文件以顺序的方式打开,用”Input#”语句读取数据。另外需要注意的是,对文件操作结束后,一定要关闭文件。 ①建立界面并设置控件属性。程序中用到的控件及其属性如下表所示: [*] ②打开工程资源管理器,在其空白处右键添加模块prog.bas(此文件已在考生文件夹里),模块代码如下: Option Explicit Sub putdata(ByVal a As Long) Dim sFile As String sFile="\resuh.txt" Open App.Path&sFile For Output As#1 Print#1,a; Close#1 End Sub ③打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下: Dim i(1 To 100)As Integer Private Sub Cmdl Click() Dim j As Integer j=0 Open App.Path&"\in.txt"For Input As#1 For i=1 To 100 Input#1,i(j) Next j Close#1 For i=i To 100 Textl.Text=Textl.Text&i(j)&Space(5) Next j End Sub Private Sub Cmd2 Click() Dim sum AS Long Dim j As Integer sum=0 Textl.Text="" For j=1 To 100 If i(j)>=400 And i(j)<800 Then sum=sum+i(j) End If Next j Textl.Text=Textl.Text&sum&Space(5) putdata sum End Sub 标准模块代码 Option Explicit Sub putdata(ByVal a As Long) Dim sFile As String sFile="\result.txt" Open App.Path&sFile For Output As#l Print#1,a; Close#1 End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/tLmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的程序执行后,屏幕上显示的应是()。publicclassExam{publicstaticvoidmain(String[]args){charcharl[]={’t’,’e’,’s’,’t’};charcha
设有如下的变量定义:doublex=4.700000;floaty=2.5f;intz=7;则执行表达式“y+z%3*(int)(x+y)%2/4”后的值是【】。
一个算法通常由两种基本要素组成:一是对数据对象的运算和操作,二是算法的【】。
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及( )。
用于构造弹出式菜单的Java类是【】。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是【】。
下面赋值语句不正确的是( )。
数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是【】。
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={678,45,324,528,439,3
耦合和内聚是评价模块独立性的两个主要标准,其中______反映了模块内各成分之间的联系。
随机试题
关于听神经瘤与三叉神经鞘瘤的鉴别诊断,最有帮助的征象是
静脉石是指
男,65岁,“脑梗死”后2个月,右侧肢体瘫痪就诊康复科。体格检查:右上肢肌张力增高,出现共同运动成分,无关节运动;右手肌张力低,无运动;右下肢出现共同运动,在坐位可完成髋、膝、踝屈曲。Brunnstrom运动功能评价,右上肢处于
在合同履行阶段应当相互协作,如发生不可抗力时,应当相互告知,尽量减少损失。这体现了《中华人民共和国合同法》的( )原则。
Throughsomuchtrouble,helearned_________everyoneneededfriendshipand_________selfconfidenceisimportant.
“望果节”是()的传统节日。
2009年全国研究机构R&D经费995.9亿元,是2000年的3.9倍,年平均增长16.2%。按活动类型分,基础研究经费110.6亿元,占11.1%;应用研究经费350.9亿元,占35.2%;试验发展经费534.4亿元,占53.7%。基础研究、应用
我国刑法关于溯及力的规定采取______。
序言性注释的主要内容不包括______。
Therearenotmanyteacherswhoarestrong______oftraditionalmethodsinEnglishteaching.
最新回复
(
0
)