高考倒计时200天誓师大会教师代表发言稿
《立志成才，卧薪尝胆十二载；折桂夺冠，争分夺秒两百天》
各位领导、老师，亲爱的同学们，大家下午好！
很荣幸在今天这个特别的日子里，与大家进行交流。时光像离弦之箭，随风而逝；岁月如东去之水，永不回还。不知不觉间，高考仅有200天；无声无息中，龙门逼临两百日。会战的号角已经吹响，历史的车轮又一次驶到人生奋战的前线。应对高考，同学们伏案苦读；研究对策，老师们挑灯夜战。放眼未来，我们志在必得；着手现实，我们信心百倍。
借此机会，我想向同学们提出几点建议。
其一，你们要珍惜光阴，时间如白驹过隙，稍纵即逝。你们要用激情演奏人生的乐章，用青春的热血来点燃希望的灯塔。你们要有大海一样的胸襟和气度，善于宽容他人，绝不要因计较个人的恩怨得失而荒废了宝贵的时光。
其二，志当存高远，心中有自信。古人云：取法乎上，乃得其中；取法乎中，乃得其下。即使身处困境，也当“穷且益坚，不坠青云之志”.要相信自己，顽强的毅力可以征服世界上任何一座高峰；坚强的意志，能够熔铸地球上任何一块顽铁。
其三，要持之以恒，脚踏实地。唯有恒心才能使你走到成功的彼岸。“骐骥一跃，不能十步；驽马十驾，功在不舍”.千万不要因为一点困难而放弃追求，你们要像哥伦布那样，在广阔的大海上他每天在日记上写下一句话，“今天我们继续航行”.
我坚信，平凡的生活定会在我们的手中编织出绚丽缤纷的图案，有限的人生定会在同学们的不懈追求中走向永恒。奋斗两百天，让飞翔的梦在六月张开翅膀。奋斗两百天，让雄心与智慧在六月闪光。我们将带着从容的微笑，去赢得志在必得的辉煌。老师们，同学们，一万年太久，只争朝夕。让我们一起见证朝阳，沐浴风雨，那隐约可见的绚丽彩虹就在我们拼搏之路的前方！
其四，要敢于亮剑。许多人都知道亮剑精神？亮剑的精髓就在于不管你面对什么样的对手，首先要敢于亮出自己的宝剑，要敢于亮出自己的气势，即便就是倒下也要到在冲锋的路上，即便就是倒下也要维护一个剑客的尊严。懦弱不能赢得对手的同情，只能留下笑料，甚至在懦弱中灭亡。同学们，此“剑”不亮更待何时！我们不为高考而生，更不会为高考而死，但它既然已经挡到了我们生与死的道路之间，我们就要跨过去！
同学们，世上有很多路，只有一条路不能选择--那就是放弃的路呀；世上没有绝望的处境，只有对处境绝望的人。从现在开始，再也不要抱怨他人，再也不要理会脚下的障碍。前进一步，如果没有用，就再向前一点。事实上，每次进步一点点并不太难。同学们“从现在开始，让我们夺取失去的阵地！”
人生就是一场比赛，既要有万米长跑的耐力，又要有百米冲刺的速度，起跑位置并不是在一条线上，但谁又能说起跑位置在前的人，一定是第一个到达终点的胜利者呢！九百多天
我们从风雨中走来了，在这最后的冲刺阶段，我们决不能松懈，我要坚持每天迎着晨风想一想今天我该做什么；踏着夕阳问一问今天我有何收获。
奋斗的道路常常困难重重、布满荆棘，但你们并不是孤军奋战，你们有父母坚强的臂膀、有老师们的谆谆教诲、有朝夕相处的同学??
最后请允许我代表全体高三教师宣誓：在这冲刺的两百天里保证上好每一节课，向课堂四十分钟要效率，要质量，要分数。我们会精诚团结，通力合作，齐抓共管，为同学们营造出安静祥和的学习环境。(Middle inspirational )我们会精心研究考纲，刻苦钻研，潜心备课，不断更新教育理念，随时把握高考信息，多方搜集资料。我们会关心每一位学生，做到自习课耐心辅导、对学习方法进行细致的指导、对大家可能出现的不适及时进行疏导，做到明责、负责、尽责。
同学们，高考将翻开你生命中崭新的一页，它会让你的梦想绚丽如画，让你的前程灿烂如星，让你的生命完美如歌，而这一切的可能，只有一个字就能够实现——拼！在接下来的200天里，享受学校年级给我们创造的环境，相信老师、相信学校，相信自己，真正静下心来，不断积累，兢兢业业做事、踏踏实实做人，我们一定会成功，因为有梦想谁都了不起，有勇气就会有奇迹。希望大家要有战胜困难、超越极限的勇气，要有卸下包袱、放手一搏的豪气，要有舍我其谁、毅然亮剑的霸气。同学们，加油！老师们会为你们保驾护航，同你们一起努力奋斗、备战高考。愿我们高三全体师生，团结一致、众志成城，用刻苦战胜困难，用信念改变人生！2014高考中东校区一炮打响，相信通过我们的努力，200天后东校区这块福地会因你们更加精彩。（励志演讲）
第二篇：高考倒计时VB
“高考倒计时”程序设计文档
一、 程序名称：高考倒计时
二、 程序功能
1：显示当前时间、高考时间、剩余时间
三、 程序设计
1：标签控件：Label1
2：文本控件：Text1
3：定时器控件：Timer1
四、 程序实现
1：窗体加载：Sub Form_Load( )
2：最大化：Me.WindowState = vbMaximized
3：根据窗口宽度、高度设置字体大小：F = Me.ScaleX(Me.ScaleWidth, Me.ScaleMode, 3) / (S0 * 2 + S1 + S2)
H = Me.ScaleY(Me.ScaleHeight, Me.ScaleMode, 3) / 12 4: 默认时间为计算机当前年份的6月7日：If nStr = "" Then Y = Format(Date, "yyyy") I = DateDiff("s", Now, Y & "-6-7 9:00:00") If I < 0 Then Y = Y + 1 nStr = Y & "-6-7 9:00:00"
5：计时器： Timer1_Timer()
五、 程序运行
六、 程序代码
Dim ctStr As String
Private Sub Form_Load()
Dim I As Long, Y As Long, nStr As String
ctStr = Trim(GetSetting("xUnTime", "xOpt", "xCap", "")) If ctStr = "" Then ctStr = "高考" '默认标题
Text1.Font.Bold = True
Label1(0).AutoSize = True: Label1(0).Font.Bold = True Label1(0).BackStyle = 0
For I = 1 To 5
Load Label1(I): Label1(I).Visible = True
Next
Me.BackColor = &HFF8888
Label1(0).ForeColor = &HFF0000
Label1(0).ToolTipText = "单击可修改标题"
nStr = Trim(GetSetting("xUnTime", "xOpt", "xTime", "")) If nStr = "" Then '默认时间：为计算机当前年份的6月7日 Y = Format(Date, "yyyy")
I = DateDiff("s", Now, Y & "-6-7 9:00:00")
If I < 0 Then Y = Y + 1
nStr = Y & "-6-7 9:00:00"
End If
Text1.MaxLength = 20: Text1.Text = nStr
Timer1.Enabled = True: Timer1.Interval = 1000 Me.WindowState = vbMaximized '最大化
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "xUnTime", "xOpt", "xCap", ctStr
SaveSetting "xUnTime", "xOpt", "xTime", Text1.Text
End Sub
Private Sub Label1_Click(Index As Integer)
'用户修改标题
If Index <> 0 Then Exit Sub
Dim nStr As String
nStr = Trim(InputBox("请输入倒计时事件的标题：", "倒计时 - 设置标题", ctStr)) If Right(nStr, 3) = "倒计时" Then nStr = Trim(Left(nStr, Len(nStr) - 3))
If nStr = "" Then Exit Sub
ctStr = nStr
Call Form_Resize
End Sub
Private Sub Text1_Change()
Call Timer1_Timer
Call Form_Resize
End Sub
Private Sub Form_Resize()
Dim I As Long, H As Single, F As Single, W1 As Single
Dim S0 As Single, S1 As Single, S2 As Single, L1 As Single, L2 As Single
S0 = 0
S1 = 5 + LenB(StrConv(ctStr, vbFromUnicode))
If S1 < 9 Then S1 = 9
S2 = 0.5 + LenB(StrConv(Text1.Text, vbFromUnicode))
If S2 < 16.5 Then S2 = 16.5
F = Me.ScaleX(Me.ScaleWidth, Me.ScaleMode, 3) / (S0 * 2 + S1 + S2) '根据窗口宽度设置字体大小
H = Me.ScaleY(Me.ScaleHeight, Me.ScaleMode, 3) / 12 '根据窗口高度设置字体大小
If F > H Then F = H
F = F - 1
If F < 3 Then F = 3
Text1.Font.Size = F
hh = Text1.Font.Size
Set Me.Font = Text1.Font
W1 = Me.TextWidth("A")
L1 = (Me.ScaleWidth - W1 * (S1 + S2)) * 0.5
L2 = L1 + W1 * S1
Text1.Width = W1 * S2
Label1(0).Font.Size = F * 1.5
For I = 1 To Label1.UBound
Label1(I).Font.Size = F
Next
H = Label1(1).Height * 0.5
'标题
Me.Caption = ctStr & "倒计时"
Label1(0).Caption = ctStr & "倒计时"
Label1(0).Move (Me.ScaleWidth - Label1(0).Width) * 0.5, (Me.ScaleHeight - H * 12) * 0.4
'当前时间
Label1(1).Caption = "当前时间"
Label1(1).Move L1, Label1(0).Top + H * 4.5: Label1(2).Move L2, Label1(1).Top
'高考时间
Label1(3).Caption = ctStr & "时间"
Label1(3).Move L1, Label1(1).Top + H * 3
Text1.Appearance = 0
Text1.Move L2, Label1(3).Top, Text1.Width, Label1(3).Height
'剩余时间
Label1(4).Move L1, Label1(3).Top + H * 3: Label1(4).Caption = "剩余时间"
Label1(5).Move L2, Label1(4).Top: Label1(5).ForeColor = 255
End Sub
Private Sub Timer1_Timer()
Dim D As Long, H As Long, M As Long, S As Long
On Error GoTo cuo
Label1(2).Caption = Now
S = DateDiff("s", Now, CDate(Text1.Text))
If S < 1 Then Label1(5).Caption = "时间到": Exit Sub
D = S \ 86400 '3600 * 24
S = S Mod 86400: H = S \ 3600
S = S Mod 3600: M = S \ 60
S = S Mod 60
Label1(5).Caption = D & "天 " & H & "时" & M & "分" & S & "秒"
Exit Sub
cuo:
Label1(5).Caption = "输入的时间错误" End Sub