试题七（15 分）阅读以下应用说明以及用Visual Basic 编写的程序代码，将应填入 （n） 处的字句写在答题纸的对应栏内。[应用说明]本应用程序的运行窗口中将显示一个简单的模拟时钟如下：

该圆形钟面上有时针、分针和秒针在运动，不断显示系统的当前时间。在开发该应用时，首先建立一个圆形Shape 控件作为钟面（背景为白色）。设圆心为象素坐标（X0, Y0），半径为940。再在圆心处建立一个小的实心圆Shape 控件作为轴心。钟面上的刻度3，6，9，12 为四个标签。时针、分针、秒针（红色）为线型控件，名称分别为LineH、LineM、LineS，线宽属性值分别为：3，2，1，线长属性值分别为500，700，900。这三个线型控件的起点坐标都固定在（X0,Y0），其终点坐标随转角θ而动态变化：

设置定时器Timer1 使该时钟能反映系统的当前时间，其定时间隔为0.5 秒，该定时器的Interval 属性值应设置为 (1) 。每隔0.5 秒，秒针需要调整位置，但分针和时针只是在初始显示时以及在每次秒计数为0 时才需要调整位置（可节省计算量）。[程序代码]Const Pi = 3.1416Const X0 = 1750Const Y0 = 1150Const LH = 500, LM = 700, LS = 900Public first As BooleanPrivate Sub Form_Load()LineS.X1 = X0 ’秒针的起点位置LineS.Y1 = Y0LineM.X1 = X0 ’分针的起点位置LineM.Y1 = Y0LineH.X1 = X0 ’时针的起点位置LineH.Y1 = Y0first = TrueEnd SubPrivate Sub Timer1_Timer()S = Second(Time)S_seta = Pi * (2) ’秒针的转角LineS.X2 = X0 + LS * Sin(S_seta) ’秒针的终点位置LineS.Y2 = Y0 - LS * Cos(S_seta)If ( (3) ) Then M = Minute(Time) LineM.X2 = X0 + LM * Sin(Pi*M/30) ’分针的终点位置 LineM.Y2 = Y0 - LM * Cos(Pi*M/30) H = Hour(Time) If (H >= 12) Then H = H - 12 H_seta = Pi * ( (4) ) ’时针的转角 LineH.X2 = X0 + LH * Sin(H_seta) ’时针的终点位置 LineH.Y2 = Y0 - LH * Cos(H_seta) first = (5)End IfEnd Sub

莫氏Ⅰ型房室传导阻滞