A.时标方式测读
B.游标关门
C.以分钟计时
D.游标方式测读
E.自动整形关门
第2题
要求:
(1)表单将自动以1s为间隔动态显示系统时间。
(2)时、分和秒要求用汉字说明。
(3)将计时器控件的Interval属性设置为1 000(1s)。
第3题
【应用说明】
某交通灯演示程序启动后,其运行窗口中包括红绿灯标志以及当前红绿灯状态剩余秒数的动态显示(如下图)。红灯与绿灯持续的时间分别为30秒与40秒。持续时间结束时,立即变更红绿灯,并重新显示剩余秒数。
【Visual Basic开发说明】
在开发过程中,先在窗体内制作形状“红绿灯框架”(长方形,透明),在该框架中,上部制作形状“红灯”(ShpRed,圆形),默认属性为透明;下部制作形状“绿灯” (ShpGreen,圆形),初始设置其填充方式属性FillStyle为实心,填充颜色属性FillColor为绿色。
再设置两个图像框(Image1在左,Image2在右),使其能分别装入数字图像文件,以显示当前红绿灯状态剩余的秒数。10个数字图像文件N0.bmp~N9.bmp分别用于显示数字0、1、…、9,这些文件存放在该应用程序所在目录中,以便在程序运行时按需要选择装入这两个图像框。为使图像文件装入图像框时能自动改变大小以适应图像框,这些图像框的Stretch属性都应设置成(1)。为使这些数字能每秒变化一次,开发窗体中设置了计时器Timcr1,其Enable属性设置成True,其Interval属性设置成1000。
程序中,全局变量Light用以标志当前红灯(0)或绿灯状态(1),RedT和GreenT分别表示红灯或绿灯状态剩余的秒数。
计时器Timer1的定时过程是在该程序启动1秒后首次执行的,以后每隔1秒执行1次。开发者应考虑对以下四种情况的处理:绿灯持续、绿灯转红灯、红灯持续、红灯转绿灯。
过程LoadNumber的功能是:将红绿灯剩余秒数N(2位整数)分离出两个一位数i与i,再将其变换成字符,删除前面可能产生的空格,再将数字图像文件Ni.bmp与Nj.bmp装入两个图像框(其中i与j应以相应的数字字符代替)。
【Visual Basic程序代码】
Public Light AS Integer, RedT As Integer, GreenT As Integer
Private Sub Form_Load()
Light = 1 : GreenT = 40 : RedT - 0 '初始化设置
End Sub
Private Sub Timer1_Timer() '计时器定时过程
If Light = 1 Then '绿灯状态时
(2)
If GreenT > 0 Then '绿灯持续时
Call LoadNumber (GreenT) '调用过程,显示数字GreenT
Else '绿灯转红灯时
ShpRed.FillStyle. = 0 '置红灯形状实心
ShpRed.FillColor = vbRed '为红灯形状填充红色
ShpGreen.FillStyle. = 1 '置绿灯形状透明
Call LoadNumber(30)
Light = 0 : RedT = 30
End If
Else '红灯状态时
RedT = RedT - 1
If RedT > 0 Then '红灯持续时
Call LoadNumber(RedT)
Else '红灯转绿灯时
ShpRed.FillStyle. = 1
ShpGreen.FillStyle. = 0
ShpGreen.FillColor = vbGreen
(3)
Light = 1 : GreenT = 40
End If
End If
End Sub
Sub LoadXumber (N As Integer) '根据剩余秒数N将数字图象装入图像框
Dim i As Integer, j As Integer
i = Int( (4) )
j = (5)
Image1.Picture = LoadPicture("N"&Trim(Str(i))&".bmp") '显示十位上的数字
Image2.Picture = LoadPicture("N"&Trim(Str(j))&".bmp") '显示个位上的数字
End Sub
第5题
开始时R键使跑表为零初始状态。在R键无效的时候,按一下S键则计时器开始计时,在此计时状态下,按一下S键暂停计时,再按一下S键则继续计时,并且这一过程可由S键控制重复进行。如果在暂停状态按一下R键,跑表被清零。
如果在计时状态下,按一下R键则暂停计时,再按一下R键则继续计时,并且这一过程也可由R键控制重复进行。当按R键使计时暂停时,再按S键不起作用。
要求跑表的计时范围为0.01s~59min59.99s,计时精度为10ms;跑表的输出能够直接驱动共阳极7段数码管显示。输入信号的频率为100 Hz。
(1)画出跑表的结构框图。
(2)画出控制单元的ASM图及状态图。
(3)用Verilog HDL描述跑表的功能。
第6题
要求:打开窗体如图1所示;第一次单击“开始/停止”按钮,从0开始滚动显示计时(见图2);10秒时单击“暂停/继续”按钮,显示暂停(见图3),但计时还在继续;若20秒后再次单击“暂停/继续”按钮,计时会从30秒开始继续滚动显示;第二次单击“开始/停止”按钮,计时停止,显示最终时间(见图4)。若再次单击“开始/停止”按钮可重新从0开始计时。
相关的事件程序如下。请在空白处填入适当的语句,使程序可以完成指定的功能。
Option Compare Database
Dim flag,pause As Boolean
Private Sub bOX_Click
flag=
Me! bOX.Enabled=True
Me!bPus.Enabled=flag
End Sub
Private Sub bPus_Click()
pause=Not pause
Me!b0K.Enabled=Not Me!bOK.Enabled
End Sub
Private Sub Form_Open(Cancel As Integer)
flag=False
pause=False
Me!bOK.Enabled=True
Me!bPus.Enabled=False
End Sub
Private Sub Form. Timer()
Static count AS Single
If flag=True Then
If pause=False Then
Me!lNum.Caption=Round(count,1)
End If
count=
Else
count=0
End If
End Sub
第7题
要求:打开窗体如图1所示;第一次单击“开始婷止”按钮,从0开始滚动显示计时(见图2);10秒时单击“暂停/继续”按钮,显示暂停(见图3),但计时还在继续;若20秒后再次单击“暂停/继续”按钮,计时会从30秒开始继续滚动显示;第二次单击“开始/停止”按钮,计时停止,显示最终时间(见图4)。若再次单击“开始/停止”按钮可重新从0开始计时。
相关的事件程序如下。请在空白处填入适当的语句,使程序可以完成指定的功能。
Option Compare Database
Dim flag,pause As Boolean
Private Sub bOK Click()
flag= 【12】
Me!bOK.Enabled=True
Me!bPus.Enabled=flag
End Sub
Private Sub bPus_Click()
pause=Not pause
Me!bOK.Enabled=Not Me!bOK.Enabled
End Sub
Private Sub Form. Open(Cancel As Integer)
flag=False
pause=False
Me!bOK.Enabled=True
Me!bPus.Enabled=False
End Sub
Private Sub Form. Timer()
Static count As Single
If flag=True Then
If pause=False Then
Me!1Num.Caption=Round(count,1)
End If
count= 【13】
Else
count=0
End If
End Sub
第8题
要求:打开窗体如图1所示;第一次单击“开始/停止”按钮,从0开始滚动显示计时(见图2);10秒时单击“暂停/继续”按钮,显示暂停(见图3),但计时还在继续:若20秒后再次单击“暂停/继续”按钮,计时会从30秒开始继续滚动显示;第二次单击“开始/停止”按钮,计时停止,显示最终时间(见图4)。若再次单击“开始/停止”按钮可重新从0开始计时。
相关的事件程序如下:
Optioncompare Database
Dim flag,pause As Boolean
PrivateSub bOK_click
flag=__________
Me!bOK.Enabled=True
Me!bPus.Enabled=flag
End Sub
PrivateSub bPus_click
pause=Notpause
Me!bOK.Enabled=Not Me!bOK.Enabled
End Sub
PrivateSub Form. Open(Cancel As Integer)
flag=False
Pause=False
Me!b0K.Enabled=True
Me!bPus.Enabled=False
End Sub
PrivateSub Form. Timer
Staticcount As Single
If flag=TrueThen
Ifpause=False Then
Me!INum.Caption=Round(count,1)
End If
Count=__________
Else
count=0
End If
End Sub
横线处应填写的内容是( )。
A.not flag,count+1
B.not flag,count+0.1
C.enable,count+1
D.enable,sum+1
第9题
A.not flag,count+1
B.not flag,count+0.1
C.enable,sum+1
D.enable,sum+1
第10题
A.0.93
B.0.94
C.0.95
D.0.96
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!