为何不用edb

.版本 2
.支持库 iext
.子程序 _按钮_导入_被单击
.局部变量 语文数据, 文本型, , "0"
.局部变量 数学数据, 文本型, , "0"
.局部变量 英语数据, 文本型, , "0"
.局部变量 i_语文, 整数型
.局部变量 i_数学, 整数型
.局部变量 i_英语, 整数型
.局部变量 语文名字分数, 文本型, , "0"
.局部变量 数学名字分数, 文本型, , "0"
.局部变量 英语名字分数, 文本型, , "0"
语文数据 ＝ 分割文本 (编辑框_语文.内容, #换行符, )
数学数据 ＝ 分割文本 (编辑框_数学.内容, #换行符, )
英语数据 ＝ 分割文本 (编辑框_英语.内容, #换行符, )
.计次循环首 (取数组成员数 (语文数据), i_语文)
语文名字分数 ＝ 分割文本 (语文数据 [i_语文], “ ”, )
超级列表框_成绩.插入表项 (, 语文名字分数 [1], , , , )
超级列表框_成绩.置标题 (i_语文 － 1, 1, 语文名字分数 [2])
.计次循环首 (取数组成员数 (数学数据), i_数学)
数学名字分数 ＝ 分割文本 (数学数据 [i_数学], “ ”, )
.如果真 (数学名字分数 [1] ＝ 语文名字分数 [1])
超级列表框_成绩.置标题 (i_语文 － 1, 2, 数学名字分数 [2])
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (英语数据), i_英语)
英语名字分数 ＝ 分割文本 (英语数据 [i_英语], “ ”, )
.如果真 (英语名字分数 [1] ＝ 语文名字分数 [1])
超级列表框_成绩.置标题 (i_语文 － 1, 3, 英语名字分数 [2])
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()

路过混眼熟