魔法學號

Ⅰ VB求救啊，我要製作魔法學號

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Randomize
Text1.Text = Fix(Rnd * 50 + 1)
End Sub

可以更改timer控制項的響應時間以改變隨即速度

Ⅱ 飲食與健康的班會主持稿！急急急急急！

生了解健康的真正含義---身體健康，心裡健康（2）如何使自己更健康-----合理飲食，增強抗挫折能力，學會與人溝通。
准備工作：宣傳委員、文藝委員收集材料，布置工作
活動過程：
主：各位同學大家好！今天是聖誕夜，伴隨著這種喜悅的氣氛，我將帶領大家一起來討論一個對我們每個人都很重要的問題（幻燈片1）。「Healthy,Unhealthy,That』s a question!」，
首先，我想問大家，你們認為自己「健康」嗎？
同學：大都說健康
主：那我問你們，你們覺得健康的標準是什麼？
同學：很多吧，身體上的，心理上的或是…等等啊。
主：你們認為那有哪幾大類？
同學：可能答不上來
主：好的沒關系，現在請看大屏幕
（幻燈片2）內容：大家認為自己健康嗎？健康的標準是什麼？健康有哪幾大類？
我們可以把健康先分為身體健康方面和心理健康方面，而我們又可以把身體健康分為飲食和生活兩方面，至於心理健康也可以分為抗挫折和溝通能力兩方面（幻燈3）。好，既然已了解了這個框架，那我先給大家看一下張韶韻同學為我們找到的資料。
同學都專注看資料，
幻燈片4）內容 健康與生活
21世紀是步入健康生命科學的時代，隨著工業化、城市化、機械化的進步程度加快，人類的運動越來越少，大自然的生態平衡不斷遭到破壞，環境污染日趨嚴重，現代人普遍存在攝氧不足造成慢性病人增多。半健康人比例的加大重要原因就是嚴重缺氧，對現代人健康狀況初步分析為：75％的人屬於半健康，20％的人屬於健康，5％的人屬於真正的病人
主：從提供的信息上，同學們有何感想？
生1：加強體育鍛煉，不偷懶
生2：注意飲食衛生，不叫外買（同學大笑）
主：下面測測你的飲食習慣
幻燈5內容 測測你的飲食習慣健康嗎
1.下列哪個小吃既營養又低脂？
a.椒鹽餅干b.蘋果 c.干爆米花d.以上都是 e.不知道
正確答案是：d。
所有這三項小吃既營養又健康，您可以放心食用。
2.保持健康飲食習慣的關鍵所在是：
a.多樣化 b.平衡 c.適量 d.以上都是 e.不知道
正確的答案是：d。
吃各種不同的食物，不要挑食適可而止這三點是保持健康習慣的重要元素
3.您應該每天多吃以下食物：
a.麵包、面條及米飯等谷類 b.蔬菜
c.水果 d.牛奶、酸奶和乳酪。
e.肉、禽、魚、豆、蛋及乾果類
f.不知道正確的答案是：a。
專家們推薦食品成分中有相當大比例的谷類食品，這點上只有極少數的老美達到了這一點。
4.下列哪一種食品能夠提供健康低脂菜？
a.中國菜 b.義大利菜c.墨西哥菜 d.以上都可以 e.不知道
正確的答案是：d。
這三類食品都能為您提供色、香、味具全的健康低脂菜餚健康飲食大法
主：通過交流，同學們不難發現自己的飲食還不夠合理、不夠科學，為了進一步增強同學們身體健康，給同學們提供一飲食大法：
幻燈6內容 健康飲食大法：
w 用芒果護發 ，柚子皮拯救斷發
w 腹瀉時別吃菠菜
w 吃土豆南瓜可以對抗寒冷
w 吃胡蘿卜能增強記憶力
w 多吃藍莓和乳酪可消除眼睛疲勞
w 不要喝剛剛泡出來的「頭遍茶」
w 紅薯要在中午吃 別和柿子同食
w 多吃香菇可防齲齒
w 喝西紅柿汁能緩解胃痛
w 咀嚼口香糖的時間不要超過15分鍾
主：剛才我們從飲食及生活中談了健康，接下來我們從心理方面來談一下健康
幻燈7內容：身體健康-----抗挫折問題。
挫折是一種珍貴的資源，也是一種人生的財富。甚至可以說，痛苦是快樂之門。
毫無疑問，父母與教師都是非常重要的教育者，但能否抗挫折的關鍵還是取決於學生本人。盡管許多中學生還是未成年人，但命運也是掌握在自己手裡的。
因此，要想成為一個真正的人，關鍵在於培養我們的健康人格，而健康人格的核心就是自信，就是心理健康。
主：平時你們會遇到哪些挫折？
生：（學生討論並積極發言）
幻燈8 總結學生遇到的挫折。你在以下這些方面是如何做的？
1. 你在遇到問題時是否灰心喪氣、急躁不安？
2. 你是否敢於接受艱巨的任務，敢於接受學習和生活的挑戰？
3. 你在失敗時是否悲觀失望？
4. 當老師和父母錯怪你時，你是否會大吵大鬧？
5. 當你學習成績不好時，你是否把其歸結為自己不聰明？
6. 如果你在學校里挨了批評，回到家裡是否會向父母發脾氣？
生：暢所欲言，
主：你怎樣提高自己的抗挫折能力？
生：白花齊放，白家爭鳴，踴躍發言
主：恩——好的，接下來為了提高自己的抗挫折能力，同學們最好能按下列提示去做一做。
A、獨立完成作業，遇到問題時要開動腦筋，認真思考，查閱有關資料。如果經過努力仍做不出來，再向老師、家長和同學求教，並弄清思路，以便舉一反三。
B、測驗或考試不及格時不要氣餒，要仔細分析一下原因，找出問題根本之所在，徹底弄清它。
C、在你因表現積極上進而被諷刺打擊時，你一定要冷靜地對待，不要怒發沖冠或心情郁悶。
D、遇到挫折時，心胸要開闊一些，給自己留的餘地大一點，做到「游刃有餘」。
E、經過多次挫折後，你千萬不要失去自信心，要堅信：經過努力是可以實現自己的目標的。
F、把自己發揮抗挫折能力的事情記錄下來，以此激勵自己做的更好。
主：最後我們要談到的就是溝通問題。我想先了解一下，同學們在家裡存不存在「小型的」代溝問題？
生：存在/不存在。
主：那是不是主要因為與父母缺少溝通的關系呢？
生：是。
主：好的，沒關系，這其實是很正常的，那你們認為存在這樣的情況是因為什麼呢？父母與自己觀念不同，沒有共同語言？還是自己的要求稍稍高了點呢？如果是那樣的話，有什麼好的辦法可以解決呢？
（同學個抒己見，發言十分熱烈。）
主：大家都不錯啊，能夠從客觀和主觀上都考慮，還反省到自己身上所存在的問題，那我想就算現在還存在著代溝的同學，把此問題處理好應該不成什麼問題吧！那還有一個大家比較敏感的話題——就是你怎樣看待與異性溝通？大家是不是不大好意思發言？那我又要請出我的「魔法學號「程序嘍。
（同學個抒己見。）
主：看來大家都是很會交往的人啊，那我們現在來總結一下此次的主題班會吧，我們首先將健康分了類，與大家討論了較多飲食健康方面的問題，至於生活上的，大家則應注重細節（同PPT所言）。然後就是心理健康，抗挫折以及溝通兩方面的探討。經過此次主題班會，我想知道大家是否有什麼收獲呢？
（同學發言諸多。）
主：好的，謝謝大家。那我想請班主任孫老師的發言來結束此次主題班會吧。
（老師簡短發言。）
主：謝謝孫老師。那麼本學期的最後一次主題班會就到此結束吧！希望你們為下一次的主題班會出謀劃策，讓大家的校園生活更加豐富多彩！謝謝！
備註：班會中所有討論部分都可由「魔法學號」程序來邀請同學發言，同時可以提高同學的好奇和積極性。

Ⅲ VB延時，如何延時較短的時間且CPU佔用率較少，像魔法學號

我自己改進了一點的延時函數，需要添加2個API函數，CPU佔用率很低
參數是秒，最小0.001秒，即1ms。
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub DelayTime(DlyTime As Double)
Dim Start

Start = timeGetTime
Do While (timeGetTime < Start + CLng(DlyTime * 1000))
DoEvents
Sleep 1
Loop
End Sub