渐变色背景随机点名软件

信息框 (“格式是姓名加减号加座位号，例如” ＋ #引号 ＋ “郑凯-048” ＋ #引号 ＋ #换行符 ＋ “导入后要记得保存修改哦”, 0, , )
通用对话框1.类型 ＝ 0
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文档文件|*.txt”
分隔符 ＝ “-”
.如果 (通用对话框1.打开 ())
' ml003 ＝ 通用对话框1.文件名 ' 待续
' 调试输出 (子文本替换 (通用对话框1.文件名, “\”, “”, 0, 寻找重复文本个数 (通用对话框1.文件名, “\”) － 1, 假))
' ml003 ＝ 子文本替换(取文本中间内容 (子文本替换 (通用对话框1.文件名, “\”, “”, 0, 寻找重复文本个数 (通用对话框1.文件名, “\”) － 1, 假), “\”, “txt”),".","",0,寻找重复文本个数(取文本中间内容 (子文本替换 (通用对话框1.文件名, “\”, “”), 0, 寻找重复文本个数 (通用对话框1.文件名, “\”), 假)
z001 ＝ 子文本替换 (通用对话框1.文件名, “\”, “”, 0, 寻找重复文本个数 (通用对话框1.文件名, “\”) － 1, 假) ' 删除至最后一个\
z002 ＝ 取文本中间内容 (z001, “\”, “txt”)
ml003 ＝ 子文本替换 (z002, “.”, “”, 0, 1, 真)
调试输出 (ml003)
文本22222 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环首 (取数组成员数 (文本22222), i)
名字 ＝ 文本_取左边 (文本22222 [i], 分隔符, )
座位号 ＝ 文本_取右边 (文本22222 [i], 分隔符, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
.判断开始 (名字 ＝ “”)

.默认
超级列表框1.置标题 (索引, 0, 到文本 (i))
超级列表框1.置标题 (索引, 1, 名字)
超级列表框1.置标题 (索引, 2, 座位号)

提高上课的积极性，和专注性，能公平对待每一位学生，保护幼小的自尊心，防止学生开小差，随机点名能使学生更专心。