1.怎么用易语言制作答题器
2.哥哥姐姐们帮我快点解决一下这个vb好么?谢谢了
怎么用易语言制作答题器
需要数据库。随机随机存放题目和答案以及错误答案。出题出题 其他的源码源码用都好写了。 ------------------------------源码 .版本 2 .程序集 窗口程序集1 .程序集变量 单选框,随机随机 单选框, , "4" .程序集变量 正确答案, 文本型, , , 记录正确答案 .子程序 _按钮答题_被单击, , , 判断问题以及清空 .局部变量 x, 整数型 .局部变量 答案, 文本型 .局部变量 记录正确数量, 整数型 .如果真 (单选框 [1].选中 ≠ 真 且 单选框 [2].选中 ≠ 真 且 单选框 [3].选中 ≠ 真 且 单选框 [4].选中 ≠ 真) 信息框 (“请先选择答案”, 0, ) 返回 () .如果真结束 .计次循环首 (4, x) .如果真 (单选框 [x].选中) 答案 = 单选框 [x].标题 跳出循环 () .如果真结束 .计次循环尾 () ' 这里也需要读数据库里的当前题目的答案,用来判断与选择框里的出题出题答案是否相符, .如果 (正确答案 = 答案) 记录正确数量 = 记录正确数量 + 1 标签2.标题 = “你一共答对” + 到文本 (记录正确数量) + “道题!源码源码用彩票系统全套源码购买流程” .否则 信息框 (“你答错了,随机随机要努力哦!出题出题”,源码源码用 0, ) .如果结束 ' 不管对与错,都要继续出题。随机随机 .计次循环首 (4,出题出题 x) 单选框 [x].选中 = 假 .计次循环尾 () 出题 () .子程序 __启动窗口_创建完毕 单选框 [1] = 单选框1 单选框 [2] = 单选框2 单选框 [3] = 单选框3 单选框 [4] = 单选框4 置随机数种子 () ' 窗口创建完毕,给予单选框赋值数组,源码源码用方便后面调用。随机随机op 源码 .子程序 _按钮开始_被单击,出题出题 , , 出题 出题 () ' 现在运行是会出错的,因为数据库没有打开。源码源码用 .子程序 出题 .局部变量 a, 整数型, , , 记录随机数 .局部变量 x, 整数型 .局部变量 n, 整数型 ' 这里要读写数据库里的内容了。比如我数据库里有条题目。我每次都是随机出的题目! a = 取随机数 (1,西红柿源码 ) 跳到 (a) 标签1.标题 = 读 (“题目”) ' 这里弄一个程序集的变量,正确答案,要调用的 。 正确答案 = 读 (“答案”) x = 取随机数 (1, 4) 单选框 [x].标题 = 正确答案 .如果真 (x = 1) .计次循环首 (3, n) a = 取随机数 (1, ) 跳到 (a) 单选框 [n + 1].标题 = 读 (“答案”) .计次循环尾 () .如果真结束 .如果真 (x = 2) a = 取随机数 (1, ) 跳到 (a) 单选框 [1].标题 = 读 (“答案”) .计次循环首 (2, n) a = 取随机数 (1, ) 跳到 (a) 单选框 [n + 2].标题 = 读 (“答案”) .计次循环尾 () .如果真结束 .如果真 (x = 3) .计次循环首 (2, n) a = 取随机数 (1, ) 跳到 (a) 单选框 [n].标题 = 读 (“答案”) .计次循环尾 () a = 取随机数 (1, ) 跳到 (a) 单选框 [4].标题 = 读 (“答案”) .如果真结束 .如果真 (x = 4) .计次循环首 (3, n) a = 取随机数 (1, ) 跳到 (a) 单选框 [n].标题 = 读 (“答案”) .计次循环尾 () .如果真结束 ' 这样写不完美, 会有可能出现重复的答案。其实直接也可以用一个大的循环全部循环、
哥哥姐姐们帮我快点解决一下这个vb好么?谢谢了
首先楼主给的源码媒体这些东西。都不完整的。就算给你解释了没用。程序是要有一个核心问题。就是要干什么。你最好是给一个连接。把全部文件打包然后提供下载。feem源码这样就ok了。
然后就是楼主的简直无语。误导人。解释的都是什么= =+。这个一般就是vb6的
dim D(),T(7) as string'声明数组D 和 T 为字符串型变量
dim NPreTargets’声明NPRETARGETS为缺省变量
dim i as integer’声明 i 为数值
dim letters, BlankDisplays’同二
dim duration’同上
= =第一条居然可以同时申明2个字符串数组变量。看看书。vb是不可以批量这样的。他这个前边是d()申明了一个变体型数组后便的才是字符型数组
所以地下的就不同上了。还是一样。没有特别as的都是变体型。也可以称未初始化变量。
还有这句
RandomizeArray D'这是某个声明函数的调用,看下模块。不规则的选取数组
= =这个其实是
Randomize
Array D
是两句。前边的是随机数初始化。后来的Array是vb函数.返回一个包含数组的变体型。和前边申明是一致的。
并不是什么模块函数调用。也不用看模块。
罪过罪过。给你指出来。你可不要骂人。实话实说
然后楼主这个应该是随机出题。程序源代码看底下的应该还有类模块。鉴定完毕。不解释。