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