求高手帮忙写一个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
题目内容你自己改下吧
相似文章
