黑龙江科技学院考试试题答案及评分标准(上机实践操作)3.doc

黑龙江科技学院考试试题答案及评分标准(上机实践操作)
一、用VB完成秒表功能(40分)
Option Explicit
Dim startime As Variant
Dim endtime As Variant
Dim elapsed As Variant
Private Sub cmdstar_Click()
startime = Now ' 获取系统时间
= Format(startime, "hh:mm:ss") ' 用格式函数显示时间
= ""
= ""
= True
= False
End Sub
Private Sub cmdstop_Click()
endtime = Now
elapsed = endtime - startime
= Format(endtime, "hh:mm:ss")
= Format(elapsed, "hh:mm:ss")
= False
= True
End Sub
(评分标准:能完成基本功能30分,算法简洁10分)
二、利用 VB实现交通灯控制。(60分)。
Private mand1_Click()
= True
End Sub
Private Sub Timer1_Timer()
Static myTime As Integer
myTime = myTime + 1
If myTime >= 1 And myTime <= 30 Then
= vbRed
= &H8080&
= &H4000&
= 30 - myTime
ElseIf myTime >= 31 And myTime <= 35 Then
= vbYellow
= &H80&
= &H4000&