人际关系测试：你是否人见人爱？

人际关系测试：你是否人见人爱？

请在每题三个选项中选择一个最适合你的。

1.最近交了一批新朋友，这是因为：

你发现他们很有意思，令人感兴趣；

他们都喜欢你；

这是你的需要。

2.外出度假时，你是否

很容易交上新朋友；

喜欢一个人独自消磨时间；

想交新朋友，但又感到很困难。

3.你本来约好要去见一位朋友，但此时感到很疲倦，却不能让朋友知道你这种处境，你：

希望朋友会谅解你，尽管你没有去；

还是尽力赴约，并且试图让自己过得愉快；

到朋友那里去了，并且询问如果你早点回家他（她）会有什么想法。

4.你结交朋友的时间：

数年之久；

说不定，合得来的朋友能长期相处；

一般不长，经常更换。

5.一位朋友告诉你一件极有趣的私事，你：

尽量为其保密而不对任何人讲；

根本没有考虑过将此事告诉别人；

这位朋友刚离开，你就马上与别人议论此事。

6.当你有问题时，你：

通常是靠自己去解决；

找自己信赖的朋友商量；

只有在迫不得已时才找朋友帮助。

7.当你朋友遇到问题时：

他们都喜欢求助于你

只有那些和你关系密切的朋友才来找你商量；

一般都不愿意来麻烦你。

8.你交朋友的途径通常是：

通过熟人介绍；

在各种社交场合；

必须经过相当长的时间，而且不容易交上朋友。

9.你认为选择朋友最重要的是：

具有使你感到幸福和快乐的能力；

为人可靠，值得信赖；

你感兴趣。

10.你给的印象是：

经常会引人发笑；

经常启发人们去思考问题；

别人和你在一起时感到很舒服。

11.假如有人邀请你参加一次活动、一次比赛，或者在晚会上请你表演节目，你：

会婉言拒绝；

欣然接受；

直截了当地拒绝。

12.对你来说，下列哪种情况是真实的？

我喜欢称赞自己的朋友？

我认为诚实是最重要的品质之一，所以我是常提出与朋友不同的看法；

我对朋友的态度是：即不奉承，也不批评。

13.你是否发现：

你同那些能够与你分担忧愁和欢乐的朋友们相处的很好；

一般情况下能和任何人相处；

有时甚至愿意与那些和你脾气不相投的人相处得很好。

14.如果朋友们和你开玩笑（恶作剧），你会：

和大家一起笑；

感到气恼，并且表现出来；

根据自己当时的情绪和精神状态，可能和大家一起大笑，也可能恼怒。

15.假如别人想依赖你，你的态度是：

对此并不介意，但是想和朋友们保持一定的距离，保持一定的独立性；

觉得这样很好，我喜欢让别人依赖我；

要小心谨慎，尽量避免承担责任。

评价：

option explicit

dim answer

dim ex1,ex2,ex3,ex4,ex5,ex6,ex7,ex8,ex9,ex10,ex11,ex12,ex13,ex14,ex15

sub res_onclick

form_test1.reset

form2.reset

end sub

'--------------------------------------------------------------------------

sub get_answer()

dim count

count=0

'1

if ex1=1 then

count=count+3

elseif ex1=2 then

count=count+2

elseif ex1=3 then

count=count+1

end if

'2

if ex2=1 then

count=count+3

elseif ex2=2 then

count=count+2

elseif ex2=3 then

count=count+1

end if

'3

if ex3=1 then

count=count+1

elseif ex3=2 then

count=count+3

elseif ex3=3 then

count=count+2

end if

'4

if ex4=1 then

count=count+3

elseif ex4=2 then

count=count+2

elseif ex4=3 then

count=count+1

end if

'5

if ex5=1 then

count=count+2

elseif ex5=2 then

count=count+3

elseif ex5=3 then

count=count+1

end if

'6

if ex6=1 then

count=count+1

elseif ex6=2 then

count=count+2

elseif ex6=3 then

count=count+3

end if

'7

if ex7=1 then

count=count+3

elseif ex7=2 then

count=count+2

elseif ex7=3 then

count=count+1

end if

'8

if ex8=1 then

count=count+2

elseif ex8=2 then

count=count+3

elseif ex8=3 then

count=count+1

end if

'9

if ex9=1 then

count=count+3

elseif ex9=2 then

count=count+2

elseif ex9=3 then

count=count+1

end if

'10

if ex10=1 then

count=count+2

elseif ex10=2 then

count=count+1

elseif ex10=3 then

count=count+3

end if

'11

if ex11=1 then

count=count+2

elseif ex11=2 then

count=count+3

elseif ex11=3 then

count=count+1

end if

'12

if ex12=1 then

count=count+3

elseif ex12=2 then

count=count+1

elseif ex12=3 then

count=count+2

end if

'13

if ex13=1 then

count=count+1

elseif ex13=2 then

count=count+3

elseif ex13=3 then

count=count+2

end if

'14

if ex14=1 then

count=count+3

elseif ex14=2 then

count=count+1

elseif ex14=3 then

count=count+2

end if

'15

if ex15=1 then

count=count+2

elseif ex15=2 then

count=count+3

elseif ex15=3 then

count=count+1

end if

'end switch

if count>=36 then

answer="你和朋友相处得很好，你能够从日常生活中得到许多乐趣。你在朋友中有一定的威信，他们比较信赖你。就是说，你会交朋友，你的了际关系很好。"

elseif count>26 then

answer="你的人际关系不太好，你和朋友的关系不牢固，时好时坏。你确实想让别人喜欢你，想多交些朋友。尽管你自己做了许多努力，但别人并不一定喜欢你，朋友们和你在一起时很可能不会感到轻松愉快。你只有认真检查自己的言行，直诚对待别人，学会待人接物，你的处境才会改好。"

else

answer="你很可能是一个孤僻的人，思想不活跃、不开朗，喜欢独处。但是，这一切不能味着你不会交朋友。主要原因是你对社交活动、人际交往不感兴趣。如果你愿意，只要努力，你就能交上许多朋友。"

end if

end sub

sub ok_OnClick

dim x,mymsg,theform

dim myex(16)

dim ch

set theform=Document.form_test1

ch=true

for x=1 to 15

myex(x)=false

next

for x=0 to 2

if (form_test1.ex1(x).checked) then

myex(1)=true

ex1=form_test1.ex1(x).value

end if

if (form_test1.ex2(x).checked) then

myex(2)=true

ex2=form_test1.ex2(x).value

end if

if (form_test1.ex3(x).checked) then

myex(3)=true

ex3=form_test1.ex3(x).value

end if

if (form_test1.ex4(x).checked) then

myex(4)=true

ex4=form_test1.ex4(x).value

end if

if (form_test1.ex5(x).checked) then

myex(5)=true

ex5=form_test1.ex5(x).value

end if

if (form_test1.ex6(x).checked) then

myex(6)=true

ex6=form_test1.ex6(x).value

end if

if (form_test1.ex7(x).checked) then

myex(7)=true

ex7=form_test1.ex7(x).value

end if

if (form_test1.ex8(x).checked) then

myex(8)=true

ex8=form_test1.ex8(x).value

end if

if (form_test1.ex9(x).checked) then

myex(9)=true

ex9=form_test1.ex9(x).value

end if

if (form_test1.ex10(x).checked) then

myex(10)=true

ex10=form_test1.ex10(x).value

end if

if (form_test1.ex11(x).checked) then

myex(11)=true

ex11=form_test1.ex11(x).value

end if

if (form_test1.ex12(x).checked) then

myex(12)=true

ex12=form_test1.ex12(x).value

end if

if (form_test1.ex13(x).checked) then

myex(13)=true

ex13=form_test1.ex13(x).value

end if

if (form_test1.ex14(x).checked) then

myex(14)=true

ex14=form_test1.ex14(x).value

end if

if (form_test1.ex15(x).checked) then

myex(15)=true

ex15=form_test1.ex15(x).value

end if

next

for x=1 to 15

if not myex(x) then

mymsg=msgbox("在提交之前请完整输入",48,"请完整输入")

ch=false

exit for

end if

next

'ch=true

'topic="aassssssssssssssssssssssssssssssssssssssssssss"

'answer="bbasdasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"

if ch then

get_answer()

document.form2.text2.value=answer

end if

end sub