首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(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
45
问题
(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全国计算机二级
相关试题推荐
数据流图用于描述一个软件的逻辑模型,数据流图由一些特定的图形符号构成。下列图符名称标识的图符不属于数据流图合法图符的是()。
删除指定的构件常用的容器方法是【】。
在JDK1.4的java.util.regcx正则表达式包中,有一个【】类,该类的staticPatterncompile方法用于将正则表达式字符串编译成模式对象来进行快速模式匹配。
下面叙述正确的是()。
编译过程一般分成5个阶段【】、语法分析、错误检查、代码优化和目标代码生成。
在下列关于二叉树的叙述中,正确的一项是()。
程序中的DrawAny是—个显示图像的Applet,并且允许用户通过参数指定所要显示的图像,请在画线处填入正确的语句使得程序能够正确运行。testl5.html:<HTML><HEAD><TITLE>ASimpleP
下列各方法中不被建议用于线程同步过程的是()。
如下的代码段中,如果方法unsafe()正常运行,那么结果是()。publicvoidexample(){try{unsafe();System.out.pri
有如下代码段publicclassOperatorAndExceptions{publicstaticvoidmain(Stringargs[]){inti=10,j=15;
随机试题
RNA聚合酶中识别模板转录起始部位的亚基是
A.呼吸性窦性心律不齐B.非呼吸性窦性心律不齐C.室性时相性窦性心律不齐D.窦房结内游走性心律E.窦房结-心房游走性心律窦性心律,P波形态及PP间距略有差异,但不出现逆行P′波,应诊断为
患者,男,41岁,8小时前饮酒后出现上腹绞痛,向肩背部放射,送到医院急诊,怀疑为急性胰腺炎。此时最具有诊断意义的实验室检查为
5个月的婴儿,母乳喂养,出生以来一直有呕吐、心跳快、呼吸困难等症,后因强直性痉挛、心力衰竭而死亡,其最有可能缺乏的是
根据我国刑法有关规定,下列单位犯罪中,不应该实行单罚制的是()。
下列关于目标市场和细分市场关系的说法,正确的是()。
贷款合同的主要内容不包括()。
教师不准吵闹的学生在下课时间到外面玩,并要求其抄一段课文,如抄得好才可以解除禁令,这是运用了()。
Scientistshavelongarguedovertherelativecontributionsofpracticeandnativetalenttothedevelopmentofeliteperformanc
UrbanEnergyPlanningforaSustainableEnvironmentThePeople’sRepublicofChina(China)istheworld’smostpopulouscoun
最新回复
(
0
)