首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
admin
2009-03-26
30
问题
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给出了两个事件过程,但并不完整,要求设置计时器控件的属性,使其在初始状态下不计时;设置计时器的属性,使其每隔1秒调用17imer事件过程一次。去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使得程序在运行时单击“出发”按钮,则黑色正方形每隔1秒向右移动一次,当到达Pic2的左边时停止移动。程序运行时的窗体界面如图25—3所示。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sj4.vbp,窗体上已经有一个文本框,名称为Textl;一个命令按钮,名称为Coimmandl、标题为“输出”。请画两个单选按钮,名称分别为Optionl和Option2,标题分别为“Iteml”和“1tem2”;再画两个复选框,名称分别为Checkl和Check2,标题分别为“Item3”和“Item4”。请编写适当的事件过程,使得在运行时,单击“输出”按钮后实现下面的要求:
根据选中的单选按钮和选中的复选框,在,Textl中显示“Item1包含Itera3”或“Item2包含1tem3和1tem4”等,如图25—4所示。
注意:不得修改已经给出的程序和已有控件的属性。在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“输出”按钮。必须使用窗体右上角的关闭按钮结束程序,否则无成绩。
选项
答案
(1)计时器控件的Interval属性是用来控制计时器事件发生的时间间隔,通过题意可知该属性应设置为1 000(Interval是以毫秒为单位)。当单击“出发”按钮时开始计时,把计时器控件的Enabled属性设置为True。 根据题意,将两个图片控件、一个计时器控件和一个命令按钮添加到窗体中,Picture的名称为Picl和Pic2,Pic1的背景色为黑色,Pic2的背景色为红色,计时器的Interval属性为1 000,名称为Timerl,Enable属性为False,命令按钮的名称为Commandl,Caption属性为“出发”,双击Commandl进入代码窗口,补充后的具体代码如下: Private Sub Command1_Click() Timerl.
Enabled
=True End Sub Private Sub Timerl_Timer() Dim sp As Integer sp=200 ’运动速度 If Picl.
Left
+Picl.
Width
>=Pic2.
Left
Then sp=0 End If Picl.
Left
=Picl.
Left
+sp’Picl的位置变化 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)在文本框中显示的内容通过文本框的Text属性设置。复选按钮和单选按钮的状态用Value属性来表示。对于单选按钮来说,Value属性可设置为True或False,当设置为True时表示被选中的,否则表示没有选中。对于复选按钮来说,Value属性可以设置为0、1或2。其中:0表示没有选中该复选按钮;1表示选中该复选按钮;2表示该复选按钮被禁止(灰色)。 根据题意,将两个单选按钮控件、两个复选按钮、一个文本框控件和一个命令按钮添加到窗体中,单选按钮的名称分别为Optionl和Option2、Caption属性为“Iteml”和“Item2”,复选按钮的名称分别为Checkl和Check2,Caption属性分别为“Item3”和“Item4”,文本框的名称为Textl、Caption属性为空,命令按钮的名称为Commandl、Caption属性为“输出”。双击Commandl进入代码编写窗IZl,利用字符串相加和If—else语句设计程序,具体代码如下: Private Sub Commandl_Click() Dim str As String Dim trnp As String str="" If Optionl.
Value
=True Then’选中Optionl str=str+"Iteml包括" Else’选中Option2 str=str+"Item2包括" End If If
Checkl.Value
=0 Then’没选中Checkl If Check2.
Value
=1 Then ’选中Cheek2 tmp=Check2.
Caption
str=str+tmp End If Else’选中Checkl If
Check2.Value
=0 Then ’没选中Check2 tmp=Checkl.
Caption
str=str+trap Else’选Check2 tmp=Checkl.Caption str=str+tmp str=str+"和" tmp=Check2.
Caption
str=str+tmp End If End If Textl.
Text
=str End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/9V1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
按作用域分类,变量有局部变量、【】、方法参数和异常处理参数。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
执行下面的程序段后,x的值为()。publicclassSun{publicstaticvoidmain(Stringargs[]){intx=5;for(inti=
Java中对Applet设置了严格的安全限制。下列关于Applet在Java2中的安全限制叙述正确的是()。
如下图所示的4棵二叉树中:不是完全二叉树的是()。
下列程序的运行结果是______。ClassC14implementsRunnable{privateinti;publicC14(intn){this.i=n;
以下特点不属于算法的基本特征的是()。
创建图形用户界面韵步骤是先创建代表图形化用户界面容器,再添加需要的组件,创建需要的接口,然后创建【】,并建立它和所对应的接口组件之间的联系,使得接口可以接纳用户事件。
若x、a、b和c均是int型变量,则执行表达式x=(a=1,b=2)后的结果是()。
随机试题
患者金某,交通事故后导致第五颈椎骨折、第六颈椎前脱位,行颅骨牵引治疗。护士应帮助患者采取下列哪种体位
女,55岁,食管癌术后留置胃管,术后5天发热、咳嗽、气急,痰略呈黄色,查体:右下肺湿罗音,胸片示:右下肺野大片状炎性病变,最可能的病原体是
下列哪项不是代谢性酸中毒的临床表现
A.益气摄血B.益气固表C.活血化瘀D.温经通络E.清热解毒,凉血止血
不属于癌前病变的是()
甲诉乙人身损害赔偿一案,一审法院根据甲的申请,冻结了乙的银行账户,并由李法官独任审理。后甲胜诉,乙提出上诉。二审法院认为一审事实不清,裁定撤销原判,发回重审。关于重审,下列哪一表述是正确的?(2014年卷三第47题)
根据商业银行法律制度的规定,对于个人储蓄存款,下列机关中,有权依法采取查询、冻结和扣划措施的有()。
采用平行结转分步法,每一步骤的生产费用要在其完工产品与月末在产品之间进行分配。这里的在产品不包括()。
社会本位论主张教育目的应以()。
在所有权的取得方式中,属于原始取得的是
最新回复
(
0
)