首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个圆和一条直线(直线的名称为linClock)构成一个钟表的图案;有两个命令按钮,名称分别为cmdStart、cmdStop,标题分别为“开始”、“停止”;还有一个名为tmrClock 的计时器
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个圆和一条直线(直线的名称为linClock)构成一个钟表的图案;有两个命令按钮,名称分别为cmdStart、cmdStop,标题分别为“开始”、“停止”;还有一个名为tmrClock 的计时器
admin
2019-06-11
37
问题
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个圆和一条直线(直线的名称为linClock)构成一个钟表的图案;有两个命令按钮,名称分别为cmdStart、cmdStop,标题分别为“开始”、“停止”;还有一个名为tmrClock 的计时器。程序运行时,钟表指针不动,单击“开始”按钮,则钟表上的指针(即linClock)开始顺时针旋转(每秒转6°,一分钟转一圈);单击“停止”按钮,则指针停止旋转。运行时的窗体如图1-244所示。请设置计时器的适当属性,使得每秒激活计时器的Timer 事件一次;并编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序,不得修改已有程序和其它控件的属性;编写的事件过程中不得使用变量,且只能写一条语句。最后把修改后的文件按原文件名存盘。
程序源码:
Dim lenth As Integer, q As Integer
Const PI = 3.14159
Private Sub Form_Load()
lenth = linClock.Y2_
linClock.Y1
q = 90
End Sub
Private Sub tmrClock_Timer()
q = q- 6
linClock.Y1 = linClock.Y2 _
lenth * _
Sin(q * PI / 180)
linClock.X1 = linClock.X2+
lenth * _
Cos(q * PI / 180)
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp,窗体上已经给出所有控件。程序运行时,单击“开始”按钮,则汽车图标向右运动;单击“停止”按钮则汽 车停止运动;移动滚动条上的滚动框,可以改变汽车的运动速度(滚动框向右移动,速度减慢)。如图1-245所示。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容。
提示:窗体上有一个计时器,计时器的事件过程每执行一次,汽车向右移动10,程序通过改变计时器控件的Interval 属性来改变汽车的运动速度。
注意:不得修改控件的属性。最后,按原文件名存盘。
程序源码:
Private Sub Command1_Click()
’Timer1.Enabled = ?
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub HScroll1_Change()
’? .Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
’Picture1.Left = ? + 10
End Sub
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj3.vbp,在属性设置窗口,设置计时器的性值为1000,Enabled 属性值为False。 步骤2:在代码编辑窗口,编写“开始”和“停止”按钮的单击事件过程。 参考代码: Private Sub cmdStart_Click() tmrClock.Enabled = True End Sub Private Sub cmdStop_Click()。 tmrClock.Enabled = False End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Timer1.Enabled = True Timer1.Interval = HScroll1.Value Picture1.Left = Picture1.Left + 10 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/eRUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了在形状控件中填充图案,应设置的属性是()。
设a=5,b=10,执行语句c=Int((b—a)*Rnd+a)+1后,c中数值的范围是()。
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""strL=Lea(xStr)
设窗体上有1个名称为Command1的命令按钮,并编写了下面的事件过程:PrivateSubConmmadl_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSing
下面不属于结构化程序设计原则的是()。
在窗体上域一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrirateSubCommand1_Click()a=InputBox("Enteranin
某人设计了一个窗体用于登录注册信息,上面有若干控件,其中接收注册时间输入的文本框名称为Text1。他希望,当要输入注册时间时能自动填写当前时间,于是编写了一行代码:Text1.Text=Date请问,这行代码应该放入()事件的事件过程中才能达到目的
在多窗体程序中,为了用Show方法把一个窗体设置为“模态”窗口,应把它的“模式”设置为()
数据库设计过程不包括
随机试题
有关动物试验错误的是
采用压路机碾压土路基时,应遵循()及轮迹重叠等原则。
违规出具金融票证罪,是指银行或者其他金融机构的工作人员违反规定,为他人出具(),情节严重的行为。[2013年6月真题]
Y公司为主要从事各种农业化肥生产和销售的上市实体。Y公司日常交易采用自动化信息系统(以下简称系统)和手工控制相结合的方式。W注册会计师负责审计Y公司2019年度财务报表。 资料一: 注册会计师在审计工作底稿中记录了所了解的Y公司的情况及其环境,部分内容
“丢失一个钉子,坏了一只蹄铁;坏了一只蹄铁,折了一匹战马;折了一匹战马,伤了一位骑士;伤了一位骑士,输了一场战斗;输了一场战斗,亡了一个帝国。”这首西方流传的民谣说明的哲学原理是()。
科学家在研究A物质时无意中发现了B物质。对此。你有什么看法?
根据《香港特别行政区基本法》的规定,香港的司法机关是()。(2012单20)
IAEA
在某大学的某届校友会中,有10个会员是湖南籍的。毕业数年后这10个同学欢聚一堂,发现他们之间没有人给3个以上的同乡会员写过信,给3个同乡会员写过信的人只有1人,仅给2个同乡会员写过信的只有3人,仅给1个同乡会员写过信的有6人,仅有一个会员收到了4个同乡会员
Thefirstandmostimportantagentsofsocializationarethepeoplewhocareforinfants.Intheearliestmonths,messagesfrom
最新回复
(
0
)