CTS-2型超声仪的计时方式有（），并以数字直接显示时间。

A．时标方式测读

B．游标关门

C．以分钟计时

D．游标方式测读

E．自动整形关门

计时包车计费时间以小时为单位，起码计费时间为____;使用时间超过的，按实际包用时间计算。

A.2小时

B.3小时

C.4小时

编制一个表单完成汉字数字时钟显示功能(界面如下图所示)。

要求：

(1)表单将自动以1s为间隔动态显示系统时间。

(2)时、分和秒要求用汉字说明。

(3)将计时器控件的Interval属性设置为1 000(1s)。

阅读以下应用说明、Visual Basic开发说明以及程序代码，将应填入(n)的字句写在对应栏内。

【应用说明】

某交通灯演示程序启动后，其运行窗口中包括红绿灯标志以及当前红绿灯状态剩余秒数的动态显示(如下图)。红灯与绿灯持续的时间分别为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张幻灯片，时问分别是4、3、5、6、2，并保留其排练时间。

设计一个体育比赛中常用的数字跑表。它是通过两个按键来控制计时开始和停止，一个是清零控制按键Reset(简称R键)，另一个是Start/Stop控制按键(简称S键)，其工作过程如下：

开始时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描述跑表的功能。

“秒表”窗体中有两个按钮（“开始/停止”按钮bOX，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。

要求：打开窗体如图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

（12）“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。

要求：打开窗体如图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

“秒表”窗体中有两个按钮(“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签iNure；窗体的“计时器间隔”设为100，计时糟度为0．1秒。

要求：打开窗体如图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

“秒表”窗体中有两个按钮(“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签iNure；窗体的“计时器间隔”设为100，计时糟度为0．1秒。 要求：打开窗体如图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，sum+1

D.enable，sum+1