測試：你的快樂感

測試：你的快樂感

1.每天醒來：

我都感到刺激，雀躍地開始新的一天；

咒罵討厭的鬧鐘，害怕面對煩惱的一天

需要一段時間掙扎起床，雖然仍感到疲憊，但明白必須面對新的一天。

2.當我與朋友一起時：

經常擔心，究竟他們是否像我喜歡他們一樣喜歡我；

感到嫉妒他們；

經常情緒高漲，沒有什麼需要顧慮的。

3.我感到我的父母：

非常尊重我，深感他們愛我特別深；

未能給予我需要的關心；

還行，雖然他們有時對我過分緊張。

4.聯想到學校：

我會感到身體不適，總渴望能逃避上課；

我深知這對我前途非常重要，所以對我繁重的功課並不介意；

我一點也不介意，反之，我非常熱愛。

5.通常我的健康是：

當有流行疾病發生時，我都會是下一位受害者；

我偶爾會病倒，但通常都在我身體較弱時；

我的父母標傍我是"超人"，我不會病倒的。

6.假如有人嘗試鼓動我去做一些我不喜歡做的事：

我知道我會與他對立的；

我會逆來順受，避免與人衝突；

我並不清楚我會怎樣做

7.照鏡子時：

我會看到自己的優點，但必須在很多缺點出現之後；

我想："為什麼我總不及其他人？"；

我從不自怨自艾，我喜歡我的一切。

8.在開課後，我的生活是：

非常繁忙，因此我絕少有悠閒的一刻；

我一直渴望追求的，是能有大量時間享受我喜愛的事物；

每天都是一模一樣，沒有什麼特別。

9.情緒低落時：

我並不憂心，我相信這很快便能度過；

我感到無法平息，令我更加低落；

我並不刻意擔心，但有時我仍感悲哀。

10.與他人比較時，我會說：

我完全及不上他的；

我跟任何人一樣；

我深信我是別人不同的，我是比別人突出的。

你的快樂指數（22-0）：

option explicit dim topic dim answer dim ex1,ex2,ex3,ex4,ex5,ex6,ex7,ex8,ex9,ex10 sub res_onclick form_test1.reset form2.reset end sub '-------------------------------------------------------------------------- sub get_answer() dim count count=0 '1 if ex1=1 then count=count+2 elseif ex1=2 then count=count+0 elseif ex1=3 then count=count+1 end if '2 if ex2=1 then count=count+1 elseif ex2=2 then count=count+0 elseif ex2=3 then count=count+2 end if '3 if ex3=1 then count=count+2 elseif ex3=2 then count=count+0 elseif ex3=3 then count=count+1 end if '4 if ex4=1 then count=count+0 elseif ex4=2 then count=count+1 elseif ex4=3 then count=count+2 end if '5 if ex5=1 then count=count+0 elseif ex5=2 then count=count+1 elseif ex5=3 then count=count+2 end if '6 if ex6=1 then count=count+2 elseif ex6=2 then count=count+0 elseif ex6=3 then count=count+0 end if '7 if ex7=1 then count=count+1 elseif ex7=2 then count=count+0 elseif ex7=3 then count=count+2 end if '8 if ex8=1 then count=count+1 elseif ex8=2 then count=count+2 elseif ex8=3 then count=count+0 end if '9 if ex9=1 then count=count+2 elseif ex9=2 then count=count+0 elseif ex9=3 then count=count+1 end if '10 if ex10=1 then count=count+0 elseif ex10=2 then count=count+1 elseif ex10=3 then count=count+2 end if if count