今回は、「男脳・女脳」です。
「話を聞かない男、地図が読めない女」
という本がありますが、
その本にテストがありましたので作ってみました。
こちらをクリックしてください。
<cfinclude template="define.cfm"> <cfinclude template="header.cfm"> <cfinclude template="set_data.cfm"> <cfinclude template="form.cfm"> <cfinclude template="footer.cfm">
<cfinclude template="define.cfm"> <cfinclude template="header.cfm"> <cfinclude template="chk_data.cfm"> <cfinclude template="footer.cfm">
<cfset question=ArrayNew(1)> <cfset answer=ArrayNew(2)> <cfset def_ans="どれも該当しない"> <cfscript> i=1; question[i]="地図や市街図を見るとき"; answer[i][1]="なかなか理解できなくて、結局は誰かに聞いてしまう。"; answer[i][2]="そんなものは見ないで、自分の行きたい道を行く。"; answer[i][3]="地図も市街図も、苦もなく読むことができる。"; answer[i][4]=def_ans; i=2; question[i]="ラジオの鳴っている台所で、手のこんだ料理を作っている。そこに友人から電話がかかってきた。"; answer[i][1]="友人と電話で話しながら、料理を続ける。もちろんラジオもそのまま。"; answer[i][2]="ラジオを消して、友人と話しながら料理を続ける。"; answer[i][3]="料理が終わったらかけ直すからと言って電話を切る。"; answer[i][4]=def_ans; i=3; question[i]="あなたの家をはじめて訪れる友人に、行きかたを聞かれたら･･････"; answer[i][1]="わかりやすい地図を描いて送る。あるいは誰かほかの人に説明してもらう。"; answer[i][2]="そこから何が見えるのかたずね、それを手がかりに道順を説明する。"; answer[i][3]="行きかたを言葉で説明する。「高速にのって、ニューキャッスルで降りたら左に曲がって、二番目の信号を･･････」"; answer[i][4]=def_ans; i=4; question[i]="考えや概念を説明するとき、あなたがよくやるのは･･････"; answer[i][1]="ペンと紙を使い、身ぶりをまじえて説明する。"; answer[i][2]="身ぶり手ぶりをまじえながら、言葉で説明する。"; answer[i][3]="明快でわかりやすい言葉を使って説明する。"; answer[i][4]=def_ans; i=5; question[i]="映画を見てすごく感動した。家に帰ったあなたは･･････"; answer[i][1]="その映画の場面を思いうかべる。"; answer[i][2]="感動した場面やせりふについて語る。"; answer[i][3]="その映画の評判をもっぱら引用する。"; answer[i][4]=def_ans; i=6; question[i]="映画館で座る場所は"; answer[i][1]="スクリーンに向かって右側。"; answer[i][2]="どこでもかまわない。"; answer[i][3]="スクリーンに向かって左側。"; answer[i][4]=def_ans; i=7; question[i]="友人の持っている機械がうまく動かない。あなたは……"; answer[i][1]="同情して友人がどんな気持ちかということを話題にする。"; answer[i][2]="直せそうな人を教えてあげる。"; answer[i][3]="仕組みを探り、自分で直そうとする。"; answer[i][4]=def_ans; i=8; question[i]="はじめての場所で、北の方角はどっちですかとたずねられた。あなたは……"; answer[i][1]="わからないと正直に言う。"; answer[i][2]="ちょっと考えて、適当に答える。"; answer[i][3]="確信を持って北の方角を指す。"; answer[i][4]=def_ans; i=9; question[i]="駐車スペースが見つかったのはいいが、バックでないと入りそうにない。あなたは……"; answer[i][1]="ほかの場所を探す。"; answer[i][2]="慎重に車を入れる。"; answer[i][3]="苦もなく車を入れる。"; answer[i][4]=def_ans; i=10; question[i]="テレビを見ているとき、電話が鳴った。あなたは……"; answer[i][1]="テレビはそのままにして電話に出る。"; answer[i][2]="テレビの音量を下げて電話に出る。"; answer[i][3]="テレビを消し、ほかの者に静かにするように言ってから電話にでる。"; answer[i][4]=def_ans; i=11; question[i]="好きなアーティストの新曲をはじめて聞いた。あなたは……"; answer[i][1]="どんな曲でも、全部または一部分を思い出して歌うことができる。"; answer[i][2]="難しい曲でなければ、一部分を思いだして歌うことができる。"; answer[i][3]="メロディはなかなか覚えられないが、歌詞の一部なら思いだせる。"; answer[i][4]=def_ans; i=12; question[i]="予想が当たるのは、もっぱら"; answer[i][1]="直感に頼ったとき。"; answer[i][2]="手に入る情報と、「本能的な」感覚にもとづいて判断したとき。"; answer[i][3]="事実、統計、データを参考にしたとき"; answer[i][4]=def_ans; i=13; question[i]="鍵をどこに置いたかわからなくなった。そのときあなたは……"; answer[i][1]="自然に思いだすまで別のことをする。"; answer[i][2]="別のことをしているが、そのあいだも懸命に思いだそうとする。"; answer[i][3]="自分の足どりを思いおこして、どこに置いたか突きとめようとする。"; answer[i][4]=def_ans; i=14; question[i]="ホテルの部屋で、遠くからサイレンが聞こえてきた。"; answer[i][1]="音がどっちから聞こえるかまったくわからない。"; answer[i][2]="神経を集中させて聞けば、だいたいの方角がわかる。"; answer[i][3]="音がどの方向から聞こえるか即座にわかる。"; answer[i][4]=def_ans; i=15; question[i]="ある集まりで、初対面の人を７～８人紹介された。翌日あなたは……"; answer[i][1]="全員の顔をはっきり思いだせる。"; answer[i][2]="何人かは思いだせる。"; answer[i][3]="顔より名前のほうをよく覚えている。"; answer[i][4]=def_ans; i=16; question[i]="休みの日。あなたは高原に行きたいが、パートナーは海辺のリゾート地を希望している。高原のほうが断然いいと相手に納得してもらうためにはどうする？"; answer[i][1]="猫なで声で自分の心情を訴える。高原に行けば自分も子供たちも楽しく過ごせて、家族みんなが満足すると言う。"; answer[i][2]="今回は高原にしてくれたら恩に着る、次はぜったい海にするからと言う。"; answer[i][3]="有利な事実を持ちだす。高原のほうが近いし、安いし、スポーツやレジャーを楽しむ設備も整っていると主張する。"; answer[i][4]=def_ans; i=17; question[i]="今日何をするか考えるとき、あなたは……"; answer[i][1]="片づけなければならない用事がひと目でわかるよう、一覧にする。"; answer[i][2]="やるべきことについて考える。"; answer[i][3]="今日会う人、行く場所、やることを思いえがく。"; answer[i][4]=def_ans; i=18; question[i]="友人が悩みを相談しにやってきた。あなたは……"; answer[i][1]="同情と理解を示す。"; answer[i][2]="悩みというものは本人が思っているほど深刻ではない、なぜなら……と説明する。"; answer[i][3]="問題解決のための合理的な提案とアドバイスをする。"; answer[i][4]=def_ans; i=19; question[i]="友人どうしがひそかに不倫しているようだ。あなたは……"; answer[i][1]="かなり早い段階で感づく。"; answer[i][2]="途中で気がつく。"; answer[i][3]="たぶん知らないままだろう。"; answer[i][4]=def_ans; i=20; question[i]="あなたにとって人生とは結局どういうもの？"; answer[i][1]="友人をたくさん作って、みんなと仲良くやっていくこと。"; answer[i][2]="周囲の人たちとうまくやりながら、個人としての自立を守ること。"; answer[i][3]="有意義な目標を実現し、周囲の尊敬をかちとり、名声を手にして出世すること。"; answer[i][4]=def_ans; i=21; question[i]="あなたにとって望ましい仕事のしかたは"; answer[i][1]="メンバーが適宜入れかわるチームで働くこと。"; answer[i][2]="みんなと同じ場所で、ただし自分だけのスペースは確保して仕事すること。"; answer[i][3]="ひとりでやる。"; answer[i][4]=def_ans; i=22; question[i]="好きな本のジャンルは"; answer[i][1]="小説などのフィクション。"; answer[i][2]="新聞や雑誌。"; answer[i][3]="自伝などのノンフィクション。"; answer[i][4]=def_ans; i=23; question[i]="あなたの買い物のしかたは"; answer[i][1]="衝動のおもむくままで、とりわけ「お買い得」という言葉に弱い。"; answer[i][2]="だいたいの計画は立てるが、あとは成りゆきまかせ。"; answer[i][3]="表示を念入りに読み、値段をくらべる。"; answer[i][4]=def_ans; i=24; question[i]="寝起きや食事は"; answer[i][1]="好きな時間にする。"; answer[i][2]="だいたいの時間は決まっているが、ずれることも多い。"; answer[i][3]="毎日ほぼ決まった時間である。"; answer[i][4]=def_ans; i=25; question[i]="転職してまもないとき、新しい同僚のひとりから自宅に電話がかかってきた。あなたは……"; answer[i][1]="相手がすぐにわかる。"; answer[i][2]="しばらく話していると誰かわかる。"; answer[i][3]="声だけでは誰かわからない。"; answer[i][4]=def_ans; i=26; question[i]="口論しているとき、いちばんむかつく態度は？"; answer[i][1]="相手の沈黙、あるいは無反応。"; answer[i][2]="あなたの考え方を理解してもらえないこと。"; answer[i][3]="挑戦的な、あるいは鋭い質問やコメント。"; answer[i][4]=def_ans; i=27; question[i]="学校の漢字テストや作文の課題は……"; answer[i][1]="楽々とこなしていた。"; answer[i][2]="どちらかだけ点が良かった。"; answer[i][3]="どっちも苦手だった。"; answer[i][4]=def_ans; i=28; question[i]="ダンスやジャズダンスをするとき……"; answer[i][1]="ステップを覚えないと音楽に「のれ」ない。"; answer[i][2]="身体を動かすことはできるが、まわりの人と合わない。"; answer[i][3]="リズムについていけない。"; answer[i][4]=def_ans; i=29; question[i]="動物の声や音を聞きわけたり、まねたりするのは……"; answer[i][1]="かなり得意。"; answer[i][2]="けっこうできる。"; answer[i][3]="まあまあ。"; answer[i][4]=def_ans; i=30; question[i]="さんざんな目にあった日は、どうしたくなる？"; answer[i][1]="友人や家族にその日のことをぶちまける。"; answer[i][2]="ほかの人がどんな日を過ごしたか聞く。"; answer[i][3]="新聞を読んでテレビを見る。話はしない。"; answer[i][4]=def_ans; </cfscript>
上記のようにcfsetタグよりcfscriptを使ったほうが、見やすいですね。
<cfoutput> <h3>男脳・女脳テスト</h3> <form action="post.cfm" method="post"> <cfloop index="i" from="1" to="30"> (#i#) <b>#question[i]#</b><br> <input type="Radio" name="chk_#i#" value="1">a) #answer[i][1]#<br> <input type="Radio" name="chk_#i#" value="2">b) #answer[i][2]#<br> <input type="Radio" name="chk_#i#" value="3">c) #answer[i][3]#<br> <input type="Radio" name="chk_#i#" value="4" checked>d) #answer[i][4]#<br> <br> </cfloop> <hr> <input type="Submit" value="送信"> </form> </cfoutput>
<cfset val_1=0>
<cfset val_2=0>
<cfset val_3=0>
<cfset val_4=0>
<cfloop index="i" from="1" to="30">
<cfset tmp=evaluate("cnt=form.chk_#i#")>
<!---解説
evaluate関数内で動的な変数名をセットしたりできます。
ただし、処理スピードが遅くなるので
注意が必要です。
上記の場合は以下のように変更できます。
<cfset cnt=form["chk_#i#"]>
実は元ネタが10年以上前でして、
「evaluate関数は利用価値がある」
って言ってました。。。
あると思いますけど、できるだけ使用しない方向で
お願いします。
--->
<cfset tmp=evaluate("val_#cnt#=val_#cnt#+1")>
</cfloop>
<cfset val_1=val_1 * 15>
<cfset val_2=val_2 * 5>
<cfset val_3=val_3 * -5>
<cfset val_4=val_4 * 5>
<cfset kei=val_1 + val_2 + val_3 + val_4>
<cfset u_mes="
男脳・女脳の結果をお知らせします。
あなたの点数は、#kei#点です。
男のほとんどは0～180点、女は150～300点の範囲だそうです。
150～180点の人は異性同性を問わず、友達ができるそうです。
">
<cfoutput>
#u_mes#
</cfoutput>
うたらぼ
⇒詳しいプロフィール