求高手帮忙写一个c语言的心理测试程序

#include

#include

#include

int sum =0;

char choice;

int main()

{

printf("恋爱心理测试

");

printf("测试说明：

");

printf(" 1.本测试总共有15个小题，每个小题有4个选项

");

printf(" 2.选择答案前，请确认按下Cap Lock，仅支持输入A,B,C,D

");

printf(" 3.本测试不支持答案修改，确认后再选择

");

printf("试题开始:

");

printf("1、你认为谈恋爱的目的是什么？

");

printf(" A、最终找到一个情投意合的人，最终步入婚姻的殿堂――3分

");

printf(" B、过2人世界，不受外界的打扰――2分

");

printf(" C、为了生理需求，传宗接代――1分

");

printf(" D、在一起觉得很好玩，目的不明确――1分

");

choice = getch();

if(choice =="A") sum += 3;

if(choice =="B") sum += 2;

if(choice =="C") sum += 1;

if(choice =="D") sum += 1;

printf("2、你择偶的标准是什么？

");

printf(" A、外貌好，有气质――2分

");

printf(" B、能干，有事业心――1分

");

printf(" C、心地善良，为人正直――3分

");

printf(" D、只要爱我，其他一切无所谓――1分

");

choice = getch();

if(choice =="A") sum += 2;

if(choice =="B") sum += 1;

if(choice =="C") sum += 3;

if(choice =="D") sum += 1;

//此处省略3-15题，方法类似

printf("

试题结束！

");

printf("

您的得分是: %d

",sum);

printf("测试结果：

");

if(sum > 34)

{

printf("A、34分以上――爱情观念成年人

");

printf("你心理是成熟的，明确爱情的目的和方向。成熟的你明白爱情的真谛，也知道该如何追求你心目中的爱情，至于方法和技巧因人而异。不要害怕前方的艰难险阻，你有勇气和决心，尽管放弃你的顾虑，热情的面对爱人，以你的成熟获得一份美满的婚姻爱情只是迟早的事。

");

}

else if(sum > 24)

{

printf("B、25―34分――爱情观念大学生

");

printf("你的的爱情观属于半成熟的。总体上来说，你对爱情的观念是正确的，你内心渴望爱情的出发点也是无可厚非的，然而你却总是遇到失败的挫折感，原因并不完全在于你的观念，而是需要一点点信心，书本上的爱情永远是别人的，不能拷贝到你身上，你需要在现实中调整你的心态来抵达幸福的彼岸。

");

}

else if(sum > 14)

{

printf("C、15―24分――爱情观念中学生

");

printf("你的恋爱观念显然属于不成熟的那种，你渴望爱情的动机也有很多违背常理的地方。如果以你现在的心态和不成熟的爱情态度贸然坠入爱河，结果往往是以不欢而散来收场。所以你需要先摆正爱情的方向，再找到适合自己对待爱情的态度，这样才不至于“害人，害己。”就是说，你若以不成熟的心态涉足爱情，那绝对属于“早恋”。

");

}

else

{

printf("D、15分以下――爱情观念小学生

");

printf("对你来说，爱情的话题太沉重了，简直就是成年人的话题。你的内心根本还没开始进入到爱情这个话题，也就是说，你还没有形成自己的爱情观，也不渴望爱情，这有可能是你年纪过小，也有可能是你周围的环境让你总拒绝爱情的造访，你害怕爱情会给你带来伤害。其实可以放松心情，顺其自然的等待心理的成熟和“月老的红线”。

");

}

system("PAUSE");

return 0;

}

Java心理测试代码

把需求说清楚一点 是C/S结构的，还是B/S结构的 具体有什么要求。十一有时间的话就帮你做了。

求一个vb心理测试小程序

你分析一下我下面的代码，相信你会很快解决问题的！

Dim Zf As Integer

Dim An As Integer

Private Sub Command1_Click()

Dim Dcf As Integer

An = An + 1

Dcf = InputBox("请输入本次得分数：")

Zf = Zf + Dcf

Print "第" & An & "次按按钮后总分为：" & Zf

End Sub

求做一个vb心理测试程序

form1:

Option Explicit

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Form_Load()

Command1.Caption = "开始"

End Sub

form2:

Option Explicit

Dim n As Integer, m As Integer

Private Sub Command1_Click()

If Option2.Value = True Then m = m + 5

If Option3.Value = True Then m = m + 2

If n = 8 Then

Form3.Label1 = "你的分数是" & m & "分"

Form3.Show

End If

If n < 8 Then

n = n + 1

Select Case n

Case 1

Label1.Caption = "2.在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你"

Option1.Caption = "a.双手发抖，结结巴巴说不出话来"

Option2.Caption = "b.感到很荣幸，简短地讲几句"

Option3.Caption = "c.很平淡地谢绝了"

Case 2

Label1.Caption = "2.在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你"

Option1.Caption = "a.双手发抖，结结巴巴说不出话来"

Option2.Caption = "b.感到很荣幸，简短地讲几句"

Option3.Caption = "c.很平淡地谢绝了"

Case 3

Label1.Caption = "3.你在餐馆刚用过餐，服务员来结账，你忽然发现身上带的钱不够，此刻，你会"

Option1.Caption = "a.感到很窘迫，脸发红"

Option2.Caption = "b.自嘲一下，马上对服务员实话实说"

Option3.Caption = "c.在身上东摸西摸，拖延时间了"

Case 4

Label1.Caption = "2.在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你"

Option1.Caption = "a.双手发抖，结结巴巴说不出话来"

Option2.Caption = "b.感到很荣幸，简短地讲几句"

Option3.Caption = "c.很平淡地谢绝了"

Case 5

Label1.Caption = "2.在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你"

Option1.Caption = "a.双手发抖，结结巴巴说不出话来"

Option2.Caption = "b.感到很荣幸，简短地讲几句"

Option3.Caption = "c.很平淡地谢绝了"

Case 6

Label1.Caption = "2.在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你"

Option1.Caption = "a.双手发抖，结结巴巴说不出话来"

Option2.Caption = "b.感到很荣幸，简短地讲几句"

Option3.Caption = "c.很平淡地谢绝了"

Case 7

Label1.Caption = "2.在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你"

Option1.Caption = "a.双手发抖，结结巴巴说不出话来"

Option2.Caption = "b.感到很荣幸，简短地讲几句"

Option3.Caption = "c.很平淡地谢绝了"

Case 8

Label1.Caption = "2.在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你"

Option1.Caption = "a.双手发抖，结结巴巴说不出话来"

Option2.Caption = "b.感到很荣幸，简短地讲几句"

Option3.Caption = "c.很平淡地谢绝了"

End Select

End If

End Sub

Private Sub Form_Load()

n = 1

m = 0

End Sub

form3:

Option Explicit

Private Sub Form_Load()

Label2.Caption = "1.(0~25分)你承受压力的心理素质比较差，很容易失去心理平衡，变得窘促不安，甚至惊慌失措。 2.(25分~32分)你的心理素质比较强，性情还算比较稳定，遇事一般不会十分惊慌，但有时往往采取消极应付的态度。 3.(32~40分)你的心理素质很好，几乎没有令你感到尴尬的事，尽管偶尔会失去控制，但惫自来说，你的应变能力很强，是一个能经常保持镇静，从容不迫的人。"

End Sub

题目内容你自己改下吧

相似文章