首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Comma
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Comma
admin
2009-03-26
49
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Command2的命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的偶数的累加和。本题要求刚启动工程时,“计算”和“清空”按钮均为灰色,可以在Textl文本框内输入任意自然数(n值太大时,运算时间将很长,建议不超过9位)。在输入数的同时“计算”变为可用;当计算完成后.“计算”变为不可用;当输人为非数值时,累加结果为0。单击“计算”可以在Text2中显示累加和,且该框内的文字不可修改;同时“计算”变灰。“清空”变为可用。单击“清空”,输入框和显示框均被清空,同时“计算”和“清空”变为不可用。如图56—3所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,窗体已经设计好,要求考生用If语句编写程序,使得程序运行。窗体上有两个复选框,名称分别为Checkl和Check2。标题分别为“ItelTll”和“Itern2”;两个单选按钮,名称分别为Optionl和Option2。标题分别为“选择”和“其他”;一个名称为Labell、Caption属性为空的标签;一个名称为Commandl、标题为“显示”的命令按钮,一个名称为Textl的文本框,Text属性为空。要求程序运行后,对选中Optionl时checkl和Check2可用,Textl也可用,当选中Option2的时候,Textl可用,Checkl和claeck2不可用,然后单击显示按钮.可在窗体上显示相应的信息,如选中Optionl,则显示选中复选框的信息,选择Option2则显示Textl中的信息。程序运行时的界面如图56—4所示。
注意:不得使用任何变量。存盘时不得改变文件夹和文件名。
选项
答案
(1)根据题意,将一个Label控件、两个Text控件和两个Command控件添加到窗体上,Label的Caption属性为“求1到用户输入数之间的所有偶数之和,并将结果显示出来。”,Text的名称分别为Textl和Text2、Text属性分别为空和Text2,Text2的Enable属性为False,Command的名称分别为Commandl和Command2、Caption属性分别为“计算”和“清空”。双击Commandl命令按钮,编写如下代码: Private Sub Commandl_Click() Dim a As Integer Dim total As Long Dim i As Integer a=Val(Textl.
Text
) ’将Textl中的数据读入,放到a中 total=0 For i=1 To a’利用For循环逐个判断 If i Mod 2=0 Then’当判断是偶数时 total=total+i’则相加 End If Next i Text2.Text=total’将结果写入Text2中 Commandl.Enabled=False ’Commandl不可用 End Sub Private Sub Command2一Click() Textl.Text="" ’Textl清空 Text2.Text="" ’Text2清空 Commandl.Enabl ed=False ’Commandl不可用 Command2.Enabled=False ’Command2不可用 End Sub Priyate Sub Text1_Change() Commandl.Enabled=True’Commandl可用 Command2.Enabled=True ’Command2可用 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)按要求设计好窗体后,双击Commandl命令按钮打开代码窗口,补充完整后的代码如下: Private Sub Commandl_Click() Dim str As String str="" If Optionl.Value=True Then’如果选择的是Optionl If Checkl.Value=1 Then’则判断选中的复选按钮 str=str+Checkl.
Caption
’如果选中Checkl,则显示Iteml End If If Check2.Value=1 Then’如果选中Check2 str=str+Check2.
Caption
’则显示Item2 End If C1s Print str’在窗体上打印出来 Else,’如果选择的是Option2 Cls Print Textl.Text’则显示Textl的内容 End If End Sub Private Sub Optionl_Click() ’单击Optionl Textl.Enabled=
False
’Textl不可用 Checkl.Enabled=True’Checkl可用 Check2.Enabled=True ’Check2可用 End Sub Private Sub Option2_Click() Textl.Enabled=True Checkl.Enabled=False Check2.Ena bled=False End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/UV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在编写JavaApplet程序时,若需要对发生的事件作出响应和处理,一般需要在程序的开头写上()语句。
阅读和理解下面程序段:classManagerextendsEmployee{publicManager(Stringn,doubles,intyear,intmonth,intday){super(n
在软件开发中,下面任务不属于设计阶段的是()。
算法的空间复杂度是指算法执行过程中所需要的【】。
将E-R图转换到关系模式时,实体与联系都可以表示成
Java程序的执行过程中用到一套JDK工具,其中javadoc.exe是指()
下面不属于软件工程的3个要素的是()
下面关于数据库系统的叙述正确的是()。
以下特点不属于算法的基本特征的是()。
为使Java程序独立于平台,Java虚拟机把字节码与各个操作系统及硬件():
随机试题
《抗日救国十大纲领》的颁布标志着抗日民族统一战线的形成,它的通过是在()。
以上哪项为溃疡样结肠炎较常见的镜下表现以上哪项为Crohn病较常见的镜下表现
局限性胸痛,按压后疼痛加重,提示病变主要累及的部位是
甲向乙租赁了房屋,向丙租赁了电视机,甲与乙的租赁合同为书面形式,签订于7月10日,约定7月15日乙向甲交付其所租赁房屋,租赁期为1年。乙依约定按时交付了租赁房屋。甲与丙的租赁合同为口头形式,同样约定租赁期为1年。对此,下列说法不正确的有:
下列关于长管的描述,正确的是()。
如果注册会计师提请被审计单位管理层在财务报表中披露导致对持续经营能力产生重大疑虑的主要事项或情况以及管理层拟采取的改善措施.然后依据披露情况决定其发表的审计意见类型,意味着注册会计师可能发表的审计报告的意见类型有()。
陈独秀说:“我们现在认定,只有这两位先生可以救治中国政治上、道德上、学术上、思想上一切的黑暗。”请问“这两位先生”是指()。
现代人养生要做到当喜则喜、当怒则怒,但是不可过度,过度就会有损健康。适当的喜,能“气和志达,荣卫通利”,可以消除因忧思所造成的“气机结滞”。但狂喜过度,就会“暴喜伤阳,乐极生悲”。常常有人因为大喜若狂,冲昏头脑。酿成不良后果,甚至导致猝死。再如悲,有悲伤之
下列情形中,应认定为自首的有()。
执行下列程序后,输出的结果是()。#include<stdio.h>#defineS(X)X*Xvoidmain(){inta=9,k=3,m=2;a/=S(k+m)/S(k+m);prin
最新回复
(
0
)