心理学门户小程序有哪些，手机上什么软件可以自学心理学？

导读：本文介绍了自学心理学的手机应用、免费心理咨询软件、心理门户网站以及VB心理测试小程序等资源。通过这些资源，可以更好地了解心理学知识和提高自我认知。如下为有关心理学门户小程序有哪些，手机上什么软件可以自学心理学？的文章内容，供大家参考。

1、手机上什么软件可以自学心理学？

手机设置没有软件，

自学心理学的

，除非你，

去看看。

会有心理学书籍。 想要自学心理学那么就得从入门的开始学习，推荐入门书籍《普通心理学》《心理学与生活》当你看完基本的入门书籍后，就可以选择一个方向进行研究学习了。

2、有没有什么免费的心理咨询软件？推荐一个呗

柠檬心理提供在线心理咨询的，可以帮到你。家暴一旦发生绝不能含糊过去，否则容易纵容，报警之后去验伤，家里有什么矛盾也可以找社工帮忙调节，你不是一个人，千万不要害怕，加油！ 有很多啊，似乎不少大学额都有呢，我知道北师大就有一个辅仁心理培训机构，还不错。有快十年的历史了吧，在海淀区学院南路12号 北师大科技园区e座一层

麻烦采纳，谢谢！

3、心理门户网有哪些呀，心优网社区怎么样呢？

心优网是一个由心理学专业人士打造的心理行业的网络信息平台，是一个汇集各方心理优秀资源的心理门户网站。 同学，请记住，网络是虚拟的，你提问心理方面问题，别人是看笑话多过看问题，找个知心朋友，或者找个蓝颜知己，他才是你真正的心理医生

4、求一个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 定义一个dim score as integer

第一题点击“下一题”按钮时，判断选择了哪个，然后score=score+多少分

第二题点击“提交”时，再判断下score=score+多少分

这个score就是2题的总分

大概思路是这样的，我这没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

题目内容你自己改下吧