高考倒计时百日动员大会教师代表发言稿
尊敬的领导、老师，亲爱的同学们：
大家好！我很荣幸能代表高三老师在此发言。
今天是个特殊的日子，距离高考102天。如果把高中三年的学习比作一次万里长跑，那么现在的我们已经跑到了最后一个弯道，距离终点仅百米之遥。这一百米你以怎样的速度搏击，将意味着你的梦想能走多远。懈怠的人百日之后，也许梦想就此打住，只能空悲切，枉了十二年寒窗苦读；执着的人百日之后，可能会走进心中美丽的象牙塔，成就人生更大的梦想。
有同学也许会说：只有100天了，太短了，我还有那么多知识不懂，高考我是没希望了。那么我要对你说：你要庆幸，今天不是高考结束的日子，你还有100天呢，只要你把时间计算到秒，见缝插针，讲究方法效率，你就还可以学到很多。但是你不能有丝毫的犹豫和停顿。当你停顿于自己未发出的一条短信，未看的一条微博，当你停顿与每一次懒惰的借口时，希望和梦想也就在那一次次不经意间的微小的停顿中破灭了。所以请不要说明天我就努力，也不要说一会我就看书，那都是不够诚心的。决心备战高考的人，应该是从下一秒就开始并坚持到最后一秒的人。同学们，只要你愿意，只要你够有决心，那么100天不算晚。你们要相信自己，每个人都有巨大的潜能，你未曾尽力，又怎知自己不行？人生没有等出来的辉煌，只有奋斗出来的明天。利用好了这100天，也许你就可以创造奇迹；利用好这一百天，也许你就可以改变命运！ 曾经我也和大家一样，坐在一中的教室里，为高考而奋战。最后的那段时间里，要我真实的评价当时的感受，就一个字——累！觉得自己的人生里，过得最不快乐的就是高三，枯燥乏味，除了课本还是课本，除了考试还是考试，没有爱好，没有周末，没有娱乐。但谁能否认这就不是高三真实的生活呢？又有谁能在记忆里擦去属于高三那段刻骨铭心的记忆呢？又有谁能告诉我，在他的学海生涯里，有哪个时期的奋斗超过了高三？
我真的很感谢高三最后的那段时间，是它让我知道自己可以如此专注的去做一件事情。更感谢那些陪我一起走过的老师，同学和家人。我记得班主任王银老师没收了我心爱的杂志；我记得课堂上不小心走神时杨娜老师警示的眼神，还记得眼睛眯松时从讲台上直飞过来的不断放大的粉笔头……我还记得不善言辞的父亲，默默地把安神补脑液装我包里，要我回学校喝的情景……
同学们，闭上眼睛，想一想，你的身边一定也有这样的老师，这样的亲人。他们用各种的方式鼓励你，教育你，警醒你，或许你现在不能理解，但是若干年后，你一定会明白并感谢他们的用心良苦，正因他们的关注才有了你的进步。
同学们，要记住一点：你不光是为了自己奋战，你承载的是父母们的期盼；你也不是孤军奋战，你的身后有陪你同甘共苦的老师。当你们取得进步，我们会为你们喝彩；当你们遇到挫折和困难，我们会与你们共渡难关。在这最后的一百天里，我们高三年级的所有老师将精诚团结，通力合作，携手并肩，奋力耕耘。我们会以最饱满的热情，最负责的精神去以身作则。但是接下来的一百天，也许我们对大家有更苛刻的要求，更艰苦的训练，更严厉的批评，但请相信，这一切都是为了你们能出类拔萃、为了你们更加辉煌灿烂的明天。
同学们，机遇与挑战同在，越困难的时候就是离成功越近的时候。同学们，冲锋的号角已经吹响，十年磨一剑，此时不搏何时搏。让我们抓住黄金百日，扬鞭策马，用一腔热血，洒万丈豪情，创六月辉煌！
第二篇：高考倒计时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