]返回值为空，子程序反复调用直到有返回结果

xmw666 · 发表于 2014-5-13 15:41:39

版本 2

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量 x, 文本型
.局部变量 y, 文本型
.局部变量 z, 文本型
.局部变量结果, 文本型
.局部变量文件, 整数型

文件＝打开文件 (“E:\问答题1200条\1.txt”, , )
x ＝读入文本 (文件, )
y ＝ “海洋”  ' ’此处取需要字段。
z ＝ “大山”  ' ’此处取需要字段。
' ----------------------------------------'第一次判断条件。
结果＝判断_ (x, y, z)
编辑框1.内容＝结果
.判断开始 (结果＝ “ ”)  ' 如果返回数据为空。就执行第二个判断条件，子程序---还是原来的判断_子程序。
y ＝ “河流”  ' ’此处取需要字段。
z ＝ “土丘”  ' ’此处取需要字段。
结果＝判断_ (x, y, z)
.默认

.判断结束
' ----------------------------------------'第二次判断条件。

.判断开始 (结果＝ “ ”)  ' 如果返回数据为空。就执行第二个判断条件，子程序---还是原来的判断_子程序。
y ＝ “小河”  ' ’此处取需要字段。
z ＝ “小桥”  ' ’此处取需要字段。
结果＝判断_ (x, y, z)
.默认

.判断结束
' ----------------------------------------'第三次判断条件。

.子程序判断_, 文本型
.参数 x文本, 文本型
.参数 y文本, 文本型
.参数 z文本, 文本型
.局部变量分割, 文本型, , "0"
.局部变量计次, 整数型
.局部变量答案1, 文本型
.局部变量答案2, 文本型
.局部变量答案3, 文本型
.局部变量答案4, 文本型
.局部变量共有答案, 文本型

分割＝分割文本 (x文本, “ ”, )

.计次循环首 (取数组成员数 (分割), 计次)
.判断开始 (寻找文本 (分割 [1], y文本, , 假) ≠ -1 或寻找文本 (分割 [1], z文本, , 假) ≠ -1)
      答案1 ＝ “问答题1”
.默认

.判断结束
.判断开始 (寻找文本 (分割 [2], y文本, , 假) ≠ -1 或寻找文本 (分割 [2], z文本, , 假) ≠ -1)
      答案2 ＝ “问答题2”
.默认

.判断结束
.判断开始 (寻找文本 (分割 [3], y文本, , 假) ≠ -1 或寻找文本 (分割 [3], z文本, , 假) ≠ -1)
      答案3 ＝ “问答题3”
.默认

.判断结束
.判断开始 (寻找文本 (分割 [4], y文本, , 假) ≠ -1 或寻找文本 (分割 [4], z文本, , 假) ≠ -1)
      答案4 ＝ “问答题4”
.默认

.判断结束
' 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。‘共一千多条题。

.计次循环尾 ()
共有答案＝答案1 ＋答案2 ＋答案3 ＋答案4
返回 (共有答案)

我的意思是：第一个条件判断后，返回数据如果=空，就进行第二个条件判断，如果继续=空，就进行第三个条件判断。。。判断子程序还是那一个子程序。只是条件不断更换，直到答案不为空为止。
我现在的问题是：返回数据为空时，“判断=空”，不知道放在那里好，我前后来回折腾，也没搞明白。因为判断问答题有一千多条。
恳请大师高手帮忙，多谢。