|
楼主 |
发表于 2024-4-12 16:19:59
|
显示全部楼层
河北省衡水市
.版本 2
.程序集 窗口程序集
.子程序 遍历超级列表框
.局部变量 行, 整数型
.局部变量 列, 整数型
.局部变量 斜向连续人数, 整数型
.局部变量 当前单元格内容, 文本型
.局部变量 最大行数, 整数型
.局部变量 最大列数, 整数型
' 初始化行列和斜向连续人数
行 = 6
列 = 7
斜向连续人数 = 0
' 获取超级列表框的最大行列数
最大行数 = 超级列表框_获取行数(超级列表框1)
最大列数 = 超级列表框_获取列数(超级列表框1)
' 遍历超级列表框
循环 到 行 <= 最大行数
如果 列 > 最大列数 则 退出循环
当前单元格内容 = 超级列表框_获取单元文本(超级列表框1, 行, 列)
如果 当前单元格内容 = "怪" 则
' 如果是怪,行加1,列不变
行 = 行 + 1
否则 如果 当前单元格内容 = "人" 则
' 如果是人,尝试往右下走(行加1,列加1)
行 = 行 + 1
列 = 列 + 1
斜向连续人数 = 斜向连续人数 + 1
' 检查是否斜向连续6次为人
如果 斜向连续人数 = 6 则
' 计数一次,重置斜向连续人数
输出("斜向连续6次为人")
斜向连续人数 = 0
结束如果
结束如果
' 如果到达边界,列返回7,行继续
如果 列 > 最大列数 则
列 = 7
结束如果
循环结束
.子程序结束
逻辑是对的,谁能告诉我一下循环 到 行 <= 最大行数 用易语言应该怎么写,试了计次循环也不对啊
|
|