首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上绘制一个文本框,名称为Textl,MultiLine属性为True,ScrollBars属性为2;两个命令按钮名称分别为Cmdl和Cmd2,标题分别为“读人数据”和“计算保存”,如图47—6所示。要求程序运行后,如果单击“读人数据
在名称为Forml的窗体上绘制一个文本框,名称为Textl,MultiLine属性为True,ScrollBars属性为2;两个命令按钮名称分别为Cmdl和Cmd2,标题分别为“读人数据”和“计算保存”,如图47—6所示。要求程序运行后,如果单击“读人数据
admin
2010-07-13
55
问题
在名称为Forml的窗体上绘制一个文本框,名称为Textl,MultiLine属性为True,ScrollBars属性为2;两个命令按钮名称分别为Cmdl和Cmd2,标题分别为“读人数据”和“计算保存”,如图47—6所示。要求程序运行后,如果单击“读人数据”按钮,则读人in.txt文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算其中前50个数之和,并将求和结果在文本框T’extl中显示出来,同时把结果存入考生文件夹中的文件out.txt中(在考生的文件夹下有标准模块mode.bas,其中的putdata过程可以把结果存人指定的文件)。
注意:保存时必须存放在考生文件下,窗体文件名为sj5.frm,工程文件名为sj5.vbp。
选项
答案
在窗体上建立控件后,先设置控件属性,再研读提供的代码,找出问题后,修改事件过程以满足题目要求。 文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置,单击命令按钮触发Click事件;本题中涉及到了文件的操作,读入文件以顺序方式打开,用“Input#”语句读取数据。需要注意的是.对文件操作结束后,一定要关闭文件。 ①文本框显示的内容通过Text属性设置,MuhiLine属性决定文本框是否可以多行显示。如果需要多行显示,必须将MuhiLine属性设置为True,将ScrollBars属性值设置为2。 ②建立界面并设置控件属性。按钮的标题通过Caption属性设置,单击命令按钮触发Click事件。程序中用到的控件及属性设置见下表: [*] ③打开工程资源管理器,在其空白处右键添加模块mode.bas(此文件已在考生文件夹里),模块代码如下: Sub putdata(ByVal a As Long) Dim sFile As String sFile="\Out.txt" Open App.Path&sFile For Output As#l Print#1,a; Close#1 End Sub ④打开工程资源管理器,右击窗体.选择查看代码项,在弹出的代码窗口输入代码如下: 窗体代码 Dim j(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 j=1 To 100 Input#1,i(j) Next j Close#1 For j=1 To 100 Textl.Text=Textl.Text&i(j)&Space(5) Next i End Sub Private Sub Cmd2 Click() Dim sum As Long Dim j As Integer For j=l To 50 sum=sum+i(j) Next j Textl.Text=sum putdata sum End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/jGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列代码的执行结果是( )。publicclassTest{publicstaticvoidmain(Stringargs[]){inta=3,b=5,c=8;S
Graphic提供的绘图方法可以分为:绘制【】的方法和绘制文本的方法。
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={678,45,324,528,439,3
下列程序执行的结果是( )。publicclassTest{publicstaticvoidmain(String[]args){inti,j,k;for
关于文件名的处理中,测试当前文件是否目录用______函数。
Java中,类FileInputStream和FileOutputStream提供了对文件的读/写方法是
下面程序中,若从键盘输入大写字母C,则程序的输出结果是______。importjava.io.*;publicclassTest{publicstaticvoidmain(String
下面程序实现对zip文件file.zip的查询,在横线处填上正确的语句______。packagetest;importjava.io.*;importjava.util.*;impor
在Java源文件中,什么类最多只能有一个,而其他类的个数不限?
在AWT包中,创建一个具有10行、45列的多行文本区域对象ta的语句是【】。
随机试题
Themanagerneedsanassistantthathecan______totakecareofproblemsinhisabsence.
患者,男,70岁,腰腿疼痛4年,遇寒加重,夜间尤甚,得温痛减,舌淡苔白,脉沉迟,治疗应首选()
龚建柱是某中学教师,30岁,每月税后收入4000元,年终奖金10000元;龚太太是某公司文秘,25岁,每月税后收入3000元。(1)家庭资产负债情况:现金及活期存款3万元、定期性存款2万元、基金2万元、按揭住房一套140万元,黄
与等额本息还款法比较而言,等额本金还款法()。
某企业应收账款收账政策的备选方案A和B的有关资料如下,请据此编制收账政策分析评价表,并作出决策。收账政策分析评价表见下表。
2015年1—3月,国有企业营业总收入103155.5亿元,同比下降6%。其中,中央企业收入63191.3亿元,同比下降7%。地方国有企业收入39964.2亿元,同比下降4.2%。1--3月,国有企业营业总成本100345.5亿元,同比下降5.1%,其中
隐形飞机能“隐形”,主要是靠采用了一系列隐形高新技术,其中包括机体骨架和蒙皮的隐形材料、表面隐形涂敷材料、外形隐形结构、降红外辐射技术、降噪技术和电子干扰技术等。制造隐形飞机骨架和蒙皮的隐形材料有好几种,用得最多的是碳纤维增强树脂复合材料、碳纤维和碳素基体
在SQLSELECT语句中为了将查询结果存储到临时表应该使用短语( )。
Abridgingloanisaloanwhichisgrantedtopurchaseacar.
Itwassurprisingthatheshowedsolittle______athissister’sdeath.
最新回复
(
0
)