来源:蜘蛛抓取(WebSpider)
时间:2011-10-02 11:51
标签:
vb制作rpg
求做一个vb心理测试程序_百度知道
求做一个vb心理测试程序
://haimianzhuantou.blog。QQ 在线等:三个窗体://haimianzhuantou。)第三个窗体算出分数并且给出评价。选项用option来表达.163.163,直接把程序发给我;第二个窗体由第一道题逐渐变到第六题(不是1-6题平铺,第一个写开始测试.com/blog/static/2/" target="_blank">/blog/static/2/要求.blog题目在这个上面<a href="http,谢谢了!最好整个程序做好了之后,而是有一个下一题的按钮。回答好的会再追加100分
提问者采纳
遇事一般不会十分惊慌.Caption = &2.在朋友的婚礼上,结结巴巴说不出话来&b.自嘲一下,但有时往往采取消极应付的态度;Option3;开始":Option ExplicitPrivate Sub Form_Load()Label2;Option2,在毫无准备的情况下; & m & ".Caption = &Case 2Label1;End SelectEnd IfEnd SubPrivate Sub Form_Load()n = 1m = 0End Subform3;Option1;a.双手发抖,结结巴巴说不出话来",你未料到会被邀请发言;Option2,你未料到会被邀请发言;分".Caption = &Option1,简短地讲几句&c.很平淡地谢绝了&Case 7Label1.Caption = ".Caption = &Option2,你", m As IntegerPrivate Sub Command1_Click()If Option2;c.在身上东摸西摸,简短地讲几句".Caption = ".Caption = &c.很平淡地谢绝了&c.很平淡地谢绝了&b.感到很荣幸,性情还算比较稳定;Option1;Option3,此刻;你的分数是&Case 6Label1;Option3。 3,你未料到会被邀请发言.Caption = &2.在朋友的婚礼上;Option2;2.在朋友的婚礼上.Caption = ",在毫无准备的情况下;Case 8Label1;a.感到很窘迫;a.双手发抖,但惫自来说;a.双手发抖.Caption = &c.很平淡地谢绝了".Caption = &Case 4Label1,在毫无准备的情况下,服务员来结账。& 8 Thenn = n + 1Select Case nCase 1Label1.Caption = ",你",你未料到会被邀请发言,你未料到会被邀请发言,在毫无准备的情况下.Caption = &End Subform2;Option3,简短地讲几句":Option ExplicitPrivate Sub Command1_Click()Form2.Caption = &b.感到很荣幸;c.很平淡地谢绝了".Value = True Then m = m + 2If n = 8 ThenForm3,你未料到会被邀请发言.ShowEnd IfIf n &a.双手发抖.Caption = &Option1.Caption = &c.很平淡地谢绝了",很容易失去心理平衡.Caption = ",在毫无准备的情况下,你未料到会被邀请发言.Caption = &2.在朋友的婚礼上,你&Option2,结结巴巴说不出话来&Option1.Caption = &a.双手发抖,你",你会",从容不迫的人.Caption = &Option1,结结巴巴说不出话来",你&Option1,你".Caption = ",简短地讲几句",变得窘促不安;Form3;Option3.Caption = ",结结巴巴说不出话来",简短地讲几句",几乎没有令你感到尴尬的事,在毫无准备的情况下.Caption = &c.很平淡地谢绝了",你&Option3.Caption = &Case 3Label1.Caption = ".ShowEnd SubPrivate Sub Form_Load()Command1;3.你在餐馆刚用过餐;2.在朋友的婚礼上;b.感到很荣幸;a.双手发抖;2.在朋友的婚礼上.Caption = ",拖延时间了&Option3,简短地讲几句",简短地讲几句&Option1;a.双手发抖,是一个能经常保持镇静.Caption = ",结结巴巴说不出话来"。 2.Caption = &Option2,脸发红&Option2;Option3,你忽然发现身上带的钱不够;b.感到很荣幸;2.在朋友的婚礼上:Option ExplicitDim n As Integer.Caption = &Case 5Label1.Caption = ".Label1 = ".Value = True Then m = m + 5If Option3,结结巴巴说不出话来",你的应变能力很强.(0~25分)你承受压力的心理素质比较差;b.感到很荣幸,甚至惊慌失措;b.感到很荣幸,马上对服务员实话实说",在毫无准备的情况下form1.Caption = ".(32~40分)你的心理素质很好;1;b.感到很荣幸;Option2.Caption = ".Caption = ".(25分~32分)你的心理素质比较强,尽管偶尔会失去控制.Caption = "
提问者评价
哈哈,谢谢你的回答~~~真的很厉害~~跟要求的一模一样,追加了100分了~
其他类似问题
为您推荐:
心理测试的相关知识
其他1条回答
我不知道哎,但是我还是要顶你一下哦,继续加油哟
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁教你用VB制作RPG游戏-教你用VB制作RPG游戏 - 好知网-重拾学习乐趣-Powered By Howzhi
“罗培羽—教你用VB制作RPG游戏”是一套教你用VB制作一个完整RPG游戏的教程。本套教程是由罗培羽先生制作与讲解,是目前全国免费的同类作品中放出技术最多,技术含量最大的游戏教程。本套教程所教的游戏制作技术达到专业性商业游戏水准,教学效率高,是各所高校、游戏公司的首选,也是个人学习游戏编程的最佳选择。
Powered by
扫一扫 关注好知微信求助用vb.net(vb 2010)编写一个测试题类的小程序_百度知道
求助用vb.net(vb 2010)编写一个测试题类的小程序
每道题四个选项。请问代码应该怎么设计想用vb,有若干题目,最后算出并显示总分,每个选项分不一样.net(vb 2010)编写一个测试题类的小程序
提问者采纳
<file fsid="249" link="/share/link?shareid=&uk=" name="temp_49我已经写了一个实例给你参考了。请查看
提问者评价
非常感谢!
来自:求助得到的回答
来自团队:
其他类似问题
为您推荐:
小程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁创建时间:视频数:5
分类:教育综合
一键转发:
栏目创建者
视频列表(5)