Visual_Basic 板


LINE

※ 引述《gade62001 (lcp)》之铭言: : 因为作业的需要 : 我们想要用VBA做心理测验 : 但我们想知道USERFORM里的按钮 : 可以连结到另外一个新的USERFORM嘛 : 或是MSGBOX里的回答(EX YES NO) : 可以改成其他选项或是有更多的回答嘛??? : 我们是新手~~~拜托大家帮忙 因为你标题是VBA,就以VBA的状况来看 VBA中一个表单就是一个程式 如果要用多表单,参数也不容易在多个表单之间传递 硬要写出来,对新手而言也很难写下去 但是心理测验往往有那种「本题答A者请跳答8题」的设计 感觉上这种时候用各个form跳来跳去好像会比较好做 因为测验各题之间只有答题顺序的关连,没有其他累计属性,如分数 最後导到某一个form显示「你是…………的人,你都穿袜子进浴室」就好了 如果你们要做的就如上述(没有分数累计,但有跳答关系的测验),可以不看下面 不然,对有分数累计的测验而言,可以在同一个form中拉多个按钮、输入框等元件 在不同情况下显示或隐藏,用一个form达到多重form的效果 比如说,是非题只显示两个按钮;选择题显示到四个; 问答题通通隐藏,只显示输入框 这样你们的程式会比较好写 按钮或输入框显不显示利用各个control的visible属性 如commandbutton1.visible = true,表示显示;false就是不显示 还可以用frame把多个control组织起来 这样控制frame的visible就可以隐藏或显示同一批control 以下的档案下载後解开是一个Excel 2003的档案 含一个form,是一个简单的算术测验游戏 http://goldmember.myweb.hinet.net/transfer/singlechoice.zip 特色是每次执行时除了产生题目外,还会乱数产生一个1-3的难度值 难度1时,显示两个按钮;难度2时显示三个,以此类推 而各个按钮的答案则用按钮的caption属性来显示 就测验而言,把题目用阵列存起来,每题的选项数也用阵列存,不要乱数产生 那麽这个程式就可以做测验了 但是测验的答案较长,最好不要显示在按钮上 可以用若干个label显示答案 按钮就固定显示A,B,C,D就好 至於那种「本题答A者请跳答8题」的设计 需要一个二维阵列存放各选项的跳题题号(next question) 比如说,nq(10, 4), nq(1, 0)表示第一题选项A的跳题题号; nq(2,2)表示第二题C的跳题题号 如果某一题不管答什麽都不影响答题顺序,如第二题,那麽阵列内容就是 阵列索引 (2, 0) (2, 1) (2, 2) (2, 3) 内容 3 3 3 3 而第三题如果答A会跳到8,答B跳到6,其他选项不影响,那就是 阵列索引 (3, 0) (3, 1) (3, 2) (3, 3) 内容 8 6 4 4 整个阵列编起来就是 nq(i, j) i/j 0 1 2 3 ================================ 1 2 2 2 9 2 3 3 3 3 3 8 6 4 4 4 5 7 5 6 ... ............ 其实这种设计用阵列做并不难,题目也很好安排。用到资料库的时候才是变态难。 --- 前年我同事写一次这种跳题试卷,他写的厉害到我看不懂。所以去年另一个客户 也要跳题的时候我只好自己写。虽然写出来了,可是半年之後他又要用,这时我 完全忘记当初是怎麽写的。Zero-maintainability. :P   -- Google 关键字 : MPFC-TCP / 杀人笑话 / 包租婆也有过当罗莉的时候 Youtube关键字 : 脱衫脱裤 / 傻蛋奥运 / 宗教审讯 / 买张床 / 单车超人 / 讴歌金钱 *美发师登山队 http://tinyurl.com/dm6lh3 *Ypres 1914 http://tinyurl.com/b432jb [蒙帝派松正体中文计画] https://www.youtube.com/user/JamesBondXD --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 58.114.194.207 ※ 编辑: MOONRAKER 来自: 58.114.194.207 (06/08 01:54)
1F:推 wrltertnnn:pjush 09/02 14:45







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:iOS站内搜寻

TOP