首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(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
22
问题
(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全国计算机二级
相关试题推荐
下列程序段的输出结果是()。intdata=0;chark=’a’,p=’f’data=p-k;System.out.printlln(data);
从对象流中读取对象是使用ObiectlnputStream类中的方法()。
关系数据库的数据及更新操作必须遵循的完整性规则是()。
下列数组a中,版本较新的能在程序运行时动态调整大小的是()。
在E-R图中,用来表示实体的图形是()。
为用户与数据库系统提供接口的语言是()。
下面有关Java代码安全性的叙述,()是对的。Ⅰ:字节码校验器加载查询执行需要的所有类。Ⅱ:运行时解释器执行代码。Ⅲ:在运行时,字节码被加载,验证后在解释器里面运行。Ⅳ:类加载器通过分离本机文件系统的类和从网络导入的类增
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体集“项目主管”与实体集“项目”的联系属于【】的联系。
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是()。
若按层次顺序将一棵有n个结点的完全二叉树的所有结点从1到n编号,那么当i为偶数且小于n时,结点i的右兄弟是结点【】,否则结点i没有右兄弟。
随机试题
唐朝对以下哪些物品实行禁榷制度()
以下作品属于历史散文的有()。
A.氧分压B.氧含量C.氧容量D.氧和Hb的亲和力E.氧饱和度血中Hb所能结合的氧量是
产生肾病性水肿的主要机制为()。
A.湿热泻痢、热毒泻痢B.乳痈肿痛C.肠痈腹痛D.肺痈吐脓E.湿热疱疹、疥癣多脓
关于游离皮片移植的适应症,下列哪一项是错误的
迅辉制药股份公司主要生产健骨消痛丸,公司法定代表人陆某指令保管员韩某采用不登记入库、销售人员打白条领取产品的方法销售,逃避缴税65万元。迅辉公司及陆某以逃税罪被起诉到法院。(2013年卷二92~94题)对迅辉公司财产的处置,下列选项正确的是:
股份有限公司董事长和副董事长由董事会以全体董事的( )选举产生。
长沙马王堆帛画是哪个朝代的作品?()
如图所示的正方形的边长为10,AB与正方形的底边垂直,那么图中阴影部分的面积是()。
最新回复
(
0
)