知识大全

知识大全

距离考试结束提醒 高考最后的十五分钟的提示音是什么

MANDY

目录

距离考试结束提醒 高考最后的十五分钟的提示音是什么

高考中的时间多少分钟提醒一次?

距离考试结束15分钟提醒一次,有的考场有表挂在墙上,语文提前40分钟提醒写作文。实在不行的你直接举手问老师就可以,这都允许,希望帮助你!

高考最后的十五分钟的提示音是什么

我们是监考老师说的:“距离考试结束还有15分钟”

“距离考试结束还有15分钟”监考老师的话把我吓了一跳 150字扩写

距离考试还有15分钟了,我的心紧张的砰砰乱跳,我向四周望了望,考生们都已经全部坐好了,有的在聊天,有的在抓紧的复习功课,有的竟然在剪指甲,好像都不是很紧张,只有我是控制不住的紧张啊。

后来考试开始了,监考老师开始发卷子,我拿到卷子一看,题目可真简单啊,绝对难不倒我,于是我开始想象,我这次成绩多好多好,老师怎样夸奖我,同学怎样羡慕我,妈妈怎样奖励我……唉,这可真把我乐坏了。

“拿到试卷后就抓紧做题,不要浪费时间!”监考老师猛地来这一句把我吓了一跳,我猛地从沉思中醒过来,果然发现监考老师正盯着我看,我吓得忙低下头,开始做题,再也不敢胡思乱想了。

怎样用VB做倒计时,如果说距离考试结束还有两个小时,要时分秒的

很容易!

建3个TEXT(分别显示时、分、秒),1个定时器(设1秒),2个按钮(开始倒计时和退出)。

TEXT里分别写入预设的时间。如果是2小时,就分别写2、00、00。

定时器响应里:

秒-1,如果为负,置59,同时分钟位-1,....

类推。直至3个位都为0。

特意给你写个简单的代码,时间到有语音提示等,不管你信不信,反正我测试通过了。

Dim sec, min, h

Private Sub Command1_Click()

Timer1.Enabled = True

h = Text1.Text

min = Text2.Text

sec = Text3.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Form1.BackColor = &HFFFF00

Timer1.Enabled = False

Timer1.Interval = 1000

Text1.Text = 2

Text2.Text = "00"

Text3.Text = "00"

Command2.Caption = "退出"

Command1.Caption = "开始倒计时"

End Sub

Private Sub Timer1_Timer()

If sec > 0 Then

sec = sec - 1

Else:

If (min > 0 Or h > 0) Then

sec = 59

End If

If min > 0 Then

min = min - 1

Else:

If h > 0 Then

min = 59

End If

If h > 0 Then

h = h - 1

Else: Timer1.Enabled = False

CreateObject("SAPI.SpVoice").Speak "GAME OVER!"

Form1.BackColor = &HFF

End If

End If

End If

Text1.Text = h

Text2.Text = min

Text3.Text = sec

End Sub

怎么样?我专门写这么多代码,还调试半天,我容易吗? 给个好评吧!

我要要一个大概内容为:‘距离考试结束还有15分钟“的音频文件 学校考试用

距离考试结束还有15分钟的音频文件,还有一个是大概内容为:考试已经结束 请大家交卷,希望你再说清楚点。

TAG: 距离