求高手帮忙修改错误优化代码

luoye2016

  

窗口程序集名	保 留	保 留	备 注
窗口程序集
变量名	类 型	数组	备 注
题目列表	题目信息	0
开始时间	整数型
运算符号	文本型	4
括号类型数组	文本型	3

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

运算符号 ＝ { “＋”, “－”, “×”, “÷” }
括号类型数组 ＝ { “()”, “[]”, “{}” }
置随机数种子 ()

子程序名	返回值类型	公开	备 注
_按钮_生成_被单击

生成题目池 ()
开始时间 ＝ 取启动时间 ()

子程序名	返回值类型	公开	备 注
生成题目池

变量名	类 型	静态	数组	备 注
i	整数型
有效运算符	整数型		0
有效括号	整数型		0

' 收集有效运算符
如果真 (选择框_加法.选中)
加入成员 (有效运算符, 1)
如果真 (选择框_减法.选中)
加入成员 (有效运算符, 2)
如果真 (选择框_乘法.选中)
加入成员 (有效运算符, 3)
如果真 (选择框_除法.选中)
加入成员 (有效运算符, 4)

' 收集有效括号
如果真 (选择框_小括号.选中)
加入成员 (有效括号, 1)
如果真 (选择框_中括号.选中)
加入成员 (有效括号, 2)
如果真 (选择框_大括号.选中)
加入成员 (有效括号, 3)

' 清空并生成新题目
超级列表框1.全部删除 ()
重定义数组 (题目列表, 假, 到整数 (编辑框_数量.内容))
计次循环首 (取数组成员数 (题目列表), i)
生成题目 (i, 有效运算符, 有效括号)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 题目列表 [i].题目文本)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
生成题目
参数名	类 型	参考	可空	数组	备 注
索引	整数型
运算符池	整数型
括号池	整数型

变量名	类 型	静态	数组	备 注
数1	双精度小数型
数2	双精度小数型
运算符索引	整数型
括号类型	文本型

' 生成数值
数1 ＝ 生成数值 (到整数 (编辑框_小数.内容))
数2 ＝ 生成数值 (到整数 (编辑框_小数.内容))
' 选择运算符
运算符索引 ＝ 运算符池 [取随机数 (1, 取数组成员数 (运算符池))]
' 处理除法
如果真 (运算符索引 ＝ 4)
循环判断首 ()
数2 ＝ 生成数值 (到整数 (编辑框_小数.内容))
循环判断尾 (数2 ＝ 0)

' 添加括号
如果真 (取数组成员数 (括号池) ＞ 0)
括号类型 ＝ 括号类型数组 [括号池 [取随机数 (1, 取数组成员数 (括号池))]]
括号类型 ＝ “”

题目列表 [索引].题目文本 ＝ 格式化题目 (数1, 数2, 运算符索引, 括号类型)
题目列表 [索引].正确答案 ＝ 计算结果 (数1, 数2, 运算符索引)
题目列表 [索引].状态 ＝ “待回答”
题目列表 [索引].得分 ＝ 0
题目列表 [索引].用时 ＝ 0

子程序名	返回值类型	公开	备 注
生成数值	双精度小数型
参数名	类 型	参考	可空	数组	备 注
小数概率	整数型

变量名	类 型	静态	数组	备 注
整数部分	整数型
小数部分	整数型
是否小数	逻辑型

是否小数 ＝ 取随机数 (1, 100) ≤ 小数概率
整数部分 ＝ 取随机数 (1, 999)  ' 生成0到20的整数部分
如果 (是否小数)
小数部分 ＝ 取随机数 (0, 99)  ' 生成0到99的小数部分
返回 (整数部分 ＋ 小数部分 ÷ 100)  ' 组合成小数（如12.34）
返回 (整数部分)  ' 直接返回整数（如15）

子程序名	返回值类型	公开	备 注
格式化题目	文本型
参数名	类 型	参考	可空	数组	备 注
数1	双精度小数型
数2	双精度小数型
运算符索引	整数型
括号类型	文本型

变量名	类 型	静态	数组	备 注
显示数1	文本型
显示数2	文本型

' 添加括号
如果真 (取文本长度 (括号类型) ＝ 2)
显示数1 ＝ 取文本左边 (括号类型, 1) ＋ 数值到文本 (数1) ＋ 取文本右边 (括号类型, 1)
显示数2 ＝ 取文本左边 (括号类型, 1) ＋ 数值到文本 (数2) ＋ 取文本右边 (括号类型, 1)
显示数1 ＝ 数值到文本 (数1)
显示数2 ＝ 数值到文本 (数2)

返回 (显示数1 ＋ “ ” ＋ 运算符号 [运算符索引] ＋ “ ” ＋ 显示数2 ＋ “ ＝ ”)

子程序名	返回值类型	公开	备 注
数值到文本	文本型
参数名	类 型	参考	可空	数组	备 注
数值	双精度小数型

如果 (数值 ＝ 取整 (数值))
返回 (到文本 (取整 (数值)))
返回 (到文本 (四舍五入 (数值, 2)))

子程序名	返回值类型	公开	备 注
计算结果	双精度小数型
参数名	类 型	参考	可空	数组	备 注
数1	双精度小数型
数2	双精度小数型
运算符索引	整数型

变量名	类 型	静态	数组	备 注
结果	双精度小数型

判断 (运算符索引 ＝ 1)
结果 ＝ 数1 ＋ 数2
判断 (运算符索引 ＝ 2)
结果 ＝ 数1 － 数2
判断 (运算符索引 ＝ 3)
结果 ＝ 数1 × 数2
判断 (运算符索引 ＝ 4)
结果 ＝ 数1 ÷ 数2
结果 ＝ 0

返回 (四舍五入 (结果, 4))

子程序名	返回值类型	公开	备 注
_按钮_提交_被单击

变量名	类 型	静态	数组	备 注
i	整数型
当前时间	整数型
总得分	整数型

当前时间 ＝ 取启动时间 ()
总得分 ＝ 0
计次循环首 (取数组成员数 (题目列表), i)
题目列表 [i].用户答案 ＝ 超级列表框1.取标题 (i － 1, 1)
题目列表 [i].用时 ＝ (当前时间 － 开始时间) ÷ 1000
如果真 (是否数值 (题目列表 [i].用户答案))
如果 (取绝对值 (到数值 (题目列表 [i].用户答案) － 题目列表 [i].正确答案) ≤ 0.01)
题目列表 [i].状态 ＝ “正确”
题目列表 [i].得分 ＝ 10
题目列表 [i].状态 ＝ “错误”
题目列表 [i].状态 ＝ “无效”

更新列表项 (i)
总得分 ＝ 总得分 ＋ 题目列表 [i].得分
计次循环尾 ()
标签_得分.标题 ＝ 到文本 (总得分)

子程序名	返回值类型	公开	备 注
更新列表项
参数名	类 型	参考	可空	数组	备 注
索引	整数型

超级列表框1.置标题 (索引 － 1, 0, 题目列表 [索引].题目文本)
超级列表框1.置标题 (索引 － 1, 1, 题目列表 [索引].用户答案)

子程序名	返回值类型	公开	备 注
是否数值	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式

正则.创建 (“^[-+]?[0-9]*\.?[0-9]+$”, 假)
返回 (正则.匹配 (文本内容))

子程序名	返回值类型	公开	备 注
_按钮_审核_被单击

变量名	类 型	静态	数组	备 注
索引	整数型

超级列表框1.置标题 (索引 － 1, 2, 题目列表 [索引].状态)
超级列表框1.置标题 (索引 － 1, 3, 到文本 (题目列表 [索引].正确答案))
超级列表框1.置标题 (索引 － 1, 4, 到文本 (题目列表 [索引].得分))
超级列表框1.置标题 (索引 － 1, 5, 到文本 (题目列表 [索引].用时))

i支持库列表	支持库注释
iext	扩展界面支持库一
RegEx	正则表达式支持库

.版本 2<br /> .支持库 iext<br /> .支持库 RegEx<br /> <br /> .程序集 窗口程序集<br /> .程序集变量 题目列表, 题目信息, , "0"<br /> .程序集变量 开始时间, 整数型<br /> .程序集变量 运算符号, 文本型, , "4"<br /> .程序集变量 括号类型数组, 文本型, , "3"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 运算符号 ＝ { “＋”, “－”, “×”, “÷” }<br /> 括号类型数组 ＝ { “()”, “[]”, “{}” }<br /> 置随机数种子 ()<br /> <br /> .子程序 _按钮_生成_被单击<br /> <br /> 生成题目池 ()<br /> 开始时间 ＝ 取启动时间 ()<br /> <br /> .子程序 生成题目池<br /> .局部变量 i, 整数型<br /> .局部变量 有效运算符, 整数型, , "0"<br /> .局部变量 有效括号, 整数型, , "0"<br /> <br /> ' 收集有效运算符<br /> .如果真 (选择框_加法.选中)<br />     加入成员 (有效运算符, 1)<br /> .如果真结束<br /> .如果真 (选择框_减法.选中)<br />     加入成员 (有效运算符, 2)<br /> .如果真结束<br /> .如果真 (选择框_乘法.选中)<br />     加入成员 (有效运算符, 3)<br /> .如果真结束<br /> .如果真 (选择框_除法.选中)<br />     加入成员 (有效运算符, 4)<br /> .如果真结束<br /> <br /> ' 收集有效括号<br /> .如果真 (选择框_小括号.选中)<br />     加入成员 (有效括号, 1)<br /> .如果真结束<br /> .如果真 (选择框_中括号.选中)<br />     加入成员 (有效括号, 2)<br /> .如果真结束<br /> .如果真 (选择框_大括号.选中)<br />     加入成员 (有效括号, 3)<br /> .如果真结束<br /> <br /> ' 清空并生成新题目<br /> 超级列表框1.全部删除 ()<br /> 重定义数组 (题目列表, 假, 到整数 (编辑框_数量.内容))<br /> <br /> .计次循环首 (取数组成员数 (题目列表), i)<br />     生成题目 (i, 有效运算符, 有效括号)<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (i － 1, 0, 题目列表 <i>.题目文本)<br /> .计次循环尾 ()<br /> <br /> .子程序 生成题目<br /> .参数 索引, 整数型<br /> .参数 运算符池, 整数型, 数组<br /> .参数 括号池, 整数型, 数组<br /> .局部变量 数1, 双精度小数型<br /> .局部变量 数2, 双精度小数型<br /> .局部变量 运算符索引, 整数型<br /> .局部变量 括号类型, 文本型<br /> <br /> ' 生成数值<br /> 数1 ＝ 生成数值 (到整数 (编辑框_小数.内容))<br /> 数2 ＝ 生成数值 (到整数 (编辑框_小数.内容))<br /> <br /> ' 选择运算符<br /> 运算符索引 ＝ 运算符池 [取随机数 (1, 取数组成员数 (运算符池))]<br /> <br /> ' 处理除法<br /> .如果真 (运算符索引 ＝ 4)<br />     .循环判断首 ()<br />         数2 ＝ 生成数值 (到整数 (编辑框_小数.内容))<br />     .循环判断尾 (数2 ＝ 0)<br /> .如果真结束<br /> <br /> ' 添加括号<br /> .如果真 (取数组成员数 (括号池) ＞ 0)<br />     括号类型 ＝ 括号类型数组 [括号池 [取随机数 (1, 取数组成员数 (括号池))]]<br />     括号类型 ＝ “”<br /> .如果真结束<br /> <br /> 题目列表 [索引].题目文本 ＝ 格式化题目 (数1, 数2, 运算符索引, 括号类型)<br /> 题目列表 [索引].正确答案 ＝ 计算结果 (数1, 数2, 运算符索引)<br /> 题目列表 [索引].状态 ＝ “待回答”<br /> 题目列表 [索引].得分 ＝ 0<br /> 题目列表 [索引].用时 ＝ 0<br /> <br /> .子程序 生成数值, 双精度小数型<br /> .参数 小数概率, 整数型<br /> .局部变量 整数部分, 整数型<br /> .局部变量 小数部分, 整数型<br /> .局部变量 是否小数, 逻辑型<br /> <br /> 是否小数 ＝ 取随机数 (1, 100) ≤ 小数概率<br /> 整数部分 ＝ 取随机数 (1, 999)  ' 生成0到20的整数部分<br /> .如果 (是否小数)<br />     小数部分 ＝ 取随机数 (0, 99)  ' 生成0到99的小数部分<br />     返回 (整数部分 ＋ 小数部分 ÷ 100)  ' 组合成小数（如12.34）<br /> .否则<br />     返回 (整数部分)  ' 直接返回整数（如15）<br /> .如果结束<br /> <br /> <br /> .子程序 格式化题目, 文本型<br /> .参数 数1, 双精度小数型<br /> .参数 数2, 双精度小数型<br /> .参数 运算符索引, 整数型<br /> .参数 括号类型, 文本型<br /> .局部变量 显示数1, 文本型<br /> .局部变量 显示数2, 文本型<br /> <br /> ' 添加括号<br /> .如果真 (取文本长度 (括号类型) ＝ 2)<br />     显示数1 ＝ 取文本左边 (括号类型, 1) ＋ 数值到文本 (数1) ＋ 取文本右边 (括号类型, 1)<br />     显示数2 ＝ 取文本左边 (括号类型, 1) ＋ 数值到文本 (数2) ＋ 取文本右边 (括号类型, 1)<br />     显示数1 ＝ 数值到文本 (数1)<br />     显示数2 ＝ 数值到文本 (数2)<br /> .如果真结束<br /> <br /> 返回 (显示数1 ＋ “ ” ＋ 运算符号 [运算符索引] ＋ “ ” ＋ 显示数2 ＋ “ ＝ ”)<br /> <br /> .子程序 数值到文本, 文本型<br /> .参数 数值, 双精度小数型<br /> <br /> .如果 (数值 ＝ 取整 (数值))<br />     返回 (到文本 (取整 (数值)))<br /> .否则<br />     返回 (到文本 (四舍五入 (数值, 2)))<br /> .如果结束<br /> <br /> <br /> .子程序 计算结果, 双精度小数型<br /> .参数 数1, 双精度小数型<br /> .参数 数2, 双精度小数型<br /> .参数 运算符索引, 整数型<br /> .局部变量 结果, 双精度小数型<br /> <br /> .判断开始 (运算符索引 ＝ 1)<br />     结果 ＝ 数1 ＋ 数2<br /> .判断 (运算符索引 ＝ 2)<br />     结果 ＝ 数1 － 数2<br /> .判断 (运算符索引 ＝ 3)<br />     结果 ＝ 数1 × 数2<br /> .判断 (运算符索引 ＝ 4)<br />     结果 ＝ 数1 ÷ 数2<br /> .默认<br />     结果 ＝ 0<br /> .判断结束<br /> <br /> 返回 (四舍五入 (结果, 4))<br /> <br /> .子程序 _按钮_提交_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 当前时间, 整数型<br /> .局部变量 总得分, 整数型<br /> <br /> 当前时间 ＝ 取启动时间 ()<br /> 总得分 ＝ 0<br /> .计次循环首 (取数组成员数 (题目列表), i)<br />     题目列表 <i>.用户答案 ＝ 超级列表框1.取标题 (i － 1, 1)<br />     题目列表 <i>.用时 ＝ (当前时间 － 开始时间) ÷ 1000<br />     .如果真 (是否数值 (题目列表 <i>.用户答案))<br />         .如果 (取绝对值 (到数值 (题目列表 <i>.用户答案) － 题目列表 <i>.正确答案) ≤ 0.01)<br />             题目列表 <i>.状态 ＝ “正确”<br />             题目列表 <i>.得分 ＝ 10<br />         .否则<br />             题目列表 <i>.状态 ＝ “错误”<br />         .如果结束<br />         题目列表 <i>.状态 ＝ “无效”<br />     .如果真结束<br /> <br />     更新列表项 (i)<br />     总得分 ＝ 总得分 ＋ 题目列表 <i>.得分<br /> .计次循环尾 ()<br /> 标签_得分.标题 ＝ 到文本 (总得分)<br /> <br /> .子程序 更新列表项<br /> .参数 索引, 整数型<br /> <br /> 超级列表框1.置标题 (索引 － 1, 0, 题目列表 [索引].题目文本)<br /> 超级列表框1.置标题 (索引 － 1, 1, 题目列表 [索引].用户答案)<br /> <br /> .子程序 是否数值, 逻辑型<br /> .参数 文本内容, 文本型<br /> .局部变量 正则, 正则表达式<br /> <br /> 正则.创建 (“^[-+]?[0-9]*\.?[0-9]+$”, 假)<br /> 返回 (正则.匹配 (文本内容))<br /> <br /> .子程序 _按钮_审核_被单击<br /> .局部变量 索引, 整数型<br /> <br /> 超级列表框1.置标题 (索引 － 1, 2, 题目列表 [索引].状态)<br /> 超级列表框1.置标题 (索引 － 1, 3, 到文本 (题目列表 [索引].正确答案))<br /> 超级列表框1.置标题 (索引 － 1, 4, 到文本 (题目列表 [索引].得分))<br /> 超级列表框1.置标题 (索引 － 1, 5, 到文本 (题目列表 [索引].用时))

hxnr

下标错误这么简单   

没事瞎琢磨

数组分配不正确 检查数组变量

Ruang

数组使用的问题

Ruang

一般在调试的时候，错误后光标会停在有问题的代码附近

as790912701

  

子程序名	返回值类型	公开	备 注
__按钮_审核_被单击

变量名	类 型	静态	数组	备 注
索引	整数型

计次循环首 (取数组成员数 (题目列表), 索引)  ' 你刚刚的那种写法索引一直是0肯定数组报错啊不可能 题目列表[0].状态吧  数组索引从1开始
超级列表框1.置标题 (索引 － 1, 2, 题目列表 [索引].状态)
超级列表框1.置标题 (索引 － 1, 3, 到文本 (题目列表 [索引].正确答案))
超级列表框1.置标题 (索引 － 1, 4, 到文本 (题目列表 [索引].得分))
超级列表框1.置标题 (索引 － 1, 5, 到文本 (题目列表 [索引].用时))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
生成题目
参数名	类 型	参考	可空	数组	备 注
索引	整数型
运算符池	整数型
括号池	整数型

变量名	类 型	静态	数组	备 注
数1	双精度小数型
数2	双精度小数型
运算符索引	整数型
括号类型	文本型

如果真 (取数组成员数 (运算符池) ＝ 0)  ' 判断一下成员数量比较好  因为上面选择框选中才会加入成员  要是没成员下面的运算符池就会出错了’
返回 ()

数1 ＝ 生成数值 (到整数 (编辑框_小数.内容))
数2 ＝ 生成数值 (到整数 (编辑框_小数.内容))
运算符索引 ＝ 运算符池 [取随机数 (1, 取数组成员数 (运算符池))]

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 __按钮_审核_被单击<br /> .局部变量 索引, 整数型<br /> <br /> .计次循环首 (取数组成员数 (题目列表), 索引)  ' 你刚刚的那种写法索引一直是0肯定数组报错啊不可能 题目列表[0].状态吧  数组索引从1开始<br />     超级列表框1.置标题 (索引 － 1, 2, 题目列表 [索引].状态)<br />     超级列表框1.置标题 (索引 － 1, 3, 到文本 (题目列表 [索引].正确答案))<br />     超级列表框1.置标题 (索引 － 1, 4, 到文本 (题目列表 [索引].得分))<br />     超级列表框1.置标题 (索引 － 1, 5, 到文本 (题目列表 [索引].用时))<br /> .计次循环尾 ()<br /> <br /> .子程序 生成题目<br /> .参数 索引, 整数型<br /> .参数 运算符池, 整数型, 数组<br /> .参数 括号池, 整数型, 数组<br /> .局部变量 数1, 双精度小数型<br /> .局部变量 数2, 双精度小数型<br /> .局部变量 运算符索引, 整数型<br /> .局部变量 括号类型, 文本型<br /> <br /> .如果真 (取数组成员数 (运算符池) ＝ 0)  ' 判断一下成员数量比较好  因为上面选择框选中才会加入成员  要是没成员下面的运算符池就会出错了’<br />     返回 ()<br /> .如果真结束<br /> <br /> 数1 ＝ 生成数值 (到整数 (编辑框_小数.内容))<br /> 数2 ＝ 生成数值 (到整数 (编辑框_小数.内容))<br /> 运算符索引 ＝ 运算符池 [取随机数 (1, 取数组成员数 (运算符池))]

应该是这两个问题