首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有一个标题为“求n以内(包括n)所有奇数的和”的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有一个标题为“求n以内(包括n)所有奇数的和”的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数
admin
2009-08-26
20
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有一个标题为“求n以内(包括n)所有奇数的和”的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的奇数的累加和。本题要求刚启动工程时,“计算显示”和“清空”按钮均为灰色,可以在输入框内输入任意自然数(n值太大时,运算时间将很长,建议不超过9位)。在输入数的同时“计算显示”变为可用;当输入数后,“计算显示”变为禁用;当输入为非数值时,累加结果为o。单击“计算显示”可以在Textl中显示累加和,同时“计算显示”变灰,“清空”变为可用。单击“清空”按钮,输入框和显示框均被清空。如图19—3所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序与控件结构是不完整的。本题描述如下:在窗体中有一个文本框控件,名称为Textl;两个命令按钮,名称分别为Commandl和Command2、标题分别为“读取文本”、“统计字数”;一个名称为Labell的标签控件。要求程序运行后,单击Commandl将考生文件夹下的sjin.txt的内容显示到Textl中;单击“统计字数”按钮统计Textl中有多少个字符,将结果显示在Labell中。
程序运行时的窗体界面如图19—4所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),同时补充完整需要的控件属性。存盘时不得改变文件名和文件夹。
选项
答案
(1)命令按钮的Enabled属性用于设置其是否有效,值为True表示有效,值为False表示无效;判断一个数是否为奇数可以用Mod运算符来实现。如对于一个数n,若n Mod 2=0。则此数不是奇数,否则就是奇数。 根据题意,4个命令按钮、一个文本框控件和一个标签,命令按钮的名称分别为Commandl、Command2、Command3和Command4,Caption属性分别为“输入n”、“计算显示”、“清空”和“关闭”,文本框的名称为Textl,标签的Caption属性为“求n以内(包括n)所有奇数的和”。双击Commandl进入代码窗口,编写如下代码: Dim n As Integer Dim total As Long Private Sub Commandl_Click() n=Val(InputBox("请输入n:")) ’在输入对话框中输入n Command2.
Enabled
=True ’"计算显示"可用 End Sub Private Sub Command2_Click() Dim i As Integer Dim tmp As Integer total=0 If n
Mod
2=0 Then’判断是否为奇数 tmp=n-1’如果是偶数则减1 Else tmp=n’如果是奇数则是其本身 End If For i=1 To n Step 2 ’步长为2
total=total+i
’进行求和 Next i Textl.
Text
=total’在Textl中显示结果 Command3.
Enabled
=True ’"清空"可用 Command2.
Enabled
=False’"计算显示"不可用 End Sub Private Sub Command3_Click() Textl.
Text
="" ’清空Textl中显示的数据 Command3.
Enabled
=False ’"清空"不可用 End Sub Private Sub Command4_Click() Unload Me’关闭窗口 End Sub Private Sub Form_Load() Command2.
Enabled
=False’"计算显示"不可用 Command3.
Enabled
=False ’"清空"不可用 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)打开顺序文件的基本格式为:Open FileName For Mode As#FileNumber。FileName表示要打开的文件的路径;Mode为打开模式,OutPut用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄。Input#语句用于读取打开的顺序文件中一项(或多项)内容给一个变量(或多个变量),Line Input#语句常用于按行读取。Close#语句用于关闭打开的文件。 根据题意,将一个文本框控件、一个标签和两个命令按钮添加到窗体中,文本框的名称为Textl,标签的名称为Labell、Caption属性为空,命令按钮的名称为分别为Commandl和Command2、Caption属性分别为“读取文本”和“统计字数”。双击Commandl进入代码窗口,编写如下代码: Dim rel As String Private Sub Commandl_Click() Dim str As String str="" Textl.Text=""’初始化Textl的文本 Open"App.Pathg&\sjin.txt"For
Input As#1
’打开文件,进行读取 While
EOF(1)=False
’判断文件是否读取完 Input#1,str’读取文本 Textl.
Text
=Textl.
Text
+str ’在Textl中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Labell.
Caption
="字数为"+
CStr(Len(Textl.Text))
’在Label中显示字数 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/Yc1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
能够用于创建可变字符串对象的类是______。
当使用SomeThreadt=newSomeThread()创建一个线程时,下列叙述中正确的是()。
下列叙述中正确的是()。
在下列程序的下划线处,填入适当语句,使程序能正确执行并输出异常栈信息。publicclassThrowableException{publicstaticvoidmain(Stringargs[]){try{thrownewThrowable("这
下列代码中,将引起一个编译错误的行是()。1)publicclassTest{2)intm,n;3)publicTest(){}4)publicTest(ihta){m=a;}5)publicstaticvoidmain(Stringargs[]
为了使模块尽可能独立,要求()。
如果对一个关系实施了一种关系运算后得到了一个新的关系,而且新的关系中属性个数少于原来关系中属性个数,这说明所实施的运算关系是()。
将E-R图转换到关系模式时,实体与联系都可以表示成()。
Java程序与数据库的连接机制是()。
下列运算结果默认为float的是()。
随机试题
婴幼儿易患呼吸道感染的免疫因素是()
彩色多普勒超声检测外周血管异常,下列哪一项是错误的
王小二在旁听其弟故意伤害一案中,违反法庭秩序,当庭侮辱作证的证人,且不听审判长的制止警告,影响恶劣。经院长批准,对其可予以何种处罚?( )
在()中,证券当前价格完全反映所有公开信息,仅仅以公开资料为基础的分析将不能提供任何帮助,未来的价格变化依赖于新的公开信息。
装修公司甲在完成一项工程后,将剩余的木地板、厨卫用具等卖给了物业管理公司乙。但甲营业执照上的核准经营范围并无销售木地板、厨卫用具等业务。甲、乙的买卖行为法律效力是()。
根据《关于组织社会力量参与社区矫正工作的意见》,下列关于社会力量参与社区矫正工作的说法,正确的有()。
一般资料:求助者,男性,33岁,大学教师。案例介绍:求助者博士毕业后,留校任教,由于工作出色,29岁时就破格评为副教授。求助者一直全心追求事业,无暇顾及个人问题。直到一年前才经人介绍结识了现在的女友。随着了解的加深,求助者觉得女友各方面都很优秀,
某化学教师在一次化学考试中设计了这样一道题:【试题】装满氧气的集气瓶如图4所示放置,并将带火星的木条迅速伸入到集气瓶底部,发现木条复燃,且在甲瓶中比在乙瓶中燃烧时间长,上述实验说明氧气具有的性质是:(1)_______________________
我国古代有一种文体,介于诗和散文之间。刘勰在《文心雕龙》中描述其特点为“铺采摘文,体物写志”。这类文体是()。
若网络的各个节点均连接到同一条通信线路上,且线路两端有防止信号反射的装置,这种拓扑结构称为()。
最新回复
(
0
)