什么小程序可以做心理问卷

心理评估问卷、心理健康状况问卷、心理问卷等小长须都可以做心理问卷。

心理测试在员工招聘中有许多优点，主要有以下四点。

（1）迅速。心理测试可以在较短的时间内迅速了解一个人的心理素质，潜在能力和他的各种指标。

（2）比较科学。世界上目前还没有一种完全科学的方法，可以在短期内全面了解一个人的心理素质和潜在能力，而目前心理测试比较科学地了解一个人的基本素质。

（3）比较公平猛迅宴。员工招聘中往往会出现不公平竞争的倾向，但心理测试在一定程度上可以避昌衡免这种不公平性。因为通过心理测试，心理素质比较高的员工可以脱颖而出，而心理素质较低的应聘者，落选也感到心平气和，因为他们知道自己心理测试的成绩比较低。

（4）可以比较。员工素质的高低通过智力测试以后，他们的测试结果可以比较，因为用枝银同一种心理测试的方法得出的结果有可比性，而其他的方法往往在不同的场合，不同的地点，没有可比性。

Problem0 = "你最喜欢什么山：" &chr(13) &"1.喜马拉雅山" &chr(13) &"2.阿尔卑斯山"

Dim Problem(10)

Dim Result(4)

Problem(1) = "你最喜欢的花是：1.玫瑰 2.茉莉 3.紫亩腊罗兰 4.郁金香"

Problem(2) = "你最喜欢的车是：1.宝马 2.奔驰樱拦 3.布加迪威龙 4.宾利"

Problem(3) = "你最喜欢的人是：1.爸爸 2.妈妈 3.张三 4.李四"

Result(1) = "A"

Result(2) = "B"

Result(3) = "C"

Result(4) = "D"

Dim Answer

Dim Index

Index = 0

Do Until Index >5

Answer = InputBox(Problem0)

Select Case Answer

Case "1"

Answer = InputBox(Problem(1))

Case "2"

Answer = InputBox(Problem(2))

Case "3"迅颂滑

Answer = InputBox(Problem(3))

Case "4"

MsgBox("给我重新好好答!")

End Select

Index = Index + 1

Loop

MsgBox(Result(CInt(Answer)))

自己改改吧，

0分，不太厚道！

一款趣味测评答题小程序，目前1.0版本已上线，功能只有基础的答题分享功能。

在2.0版本将增加社区功能，滚者实现用户交流互动，欢迎各位同学提槐备弯供好的建议和意见，一起打造一款铅闷优秀的小程序产品

---