请教一下编码简写方式

2211504505

1. 功能 算()
   
2.     循环(A1<9)
   
3.         A1=A1+1
   
4.         如果(A1!=A2&&A1!=A3&&A1!=A4&&A1!=A5&&A1!=A6&&A1!=A7&&A1!=A8&&A1!=A9)
   
5.             如果(A1!=B1&&A1!=B2&&A1!=B3&&A1!=C1&&A1!=C2&&A1!=C3)
   
6.                 如果(A1!=D1&&A1!=D4&&A1!=D7&&A1!=G1&&A1!=G4&&A1!=G7)
   
7.                     表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
   
8.                 结束
   
9.             结束
   
10.         结束
    
11.     结束
    
12.     A1=""
    
13. 结束

复制代码

2211504505

比如:
如果(-------------------------------------------------
       -------------------------------------------------
       -------------------------------------------------)

结束

cjxdn

1. 功能 算()
   
2.     变量 对比数组=数组(A2,A3,A4,A5,A6,A7,A8,A9,B1,B2,B3,C1,C2,C3,D1,D4,D7,G1,G4,G7)
   
3.     循环(A1<9)
   
4.         A1=A1+1
   
5.         遍历(变量 i = 0; i < 数组大小(对比数组); i++)
   
6.             如果(A1!=对比数组[i])
   
7.                 如果(i==数组大小(对比数组)-1)
   
8.                     表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
   
9.                 结束
   
10.             否则
    
11.                 跳出
    
12.             结束
    
13.         结束
    
14.     结束
    
15.     A1=""
    
16. 结束

复制代码

good

讲下想法,不知道合适不

把B几C几D几G几的定义成数组,
遍历数组, 如果(A1!=retarr[i]),把A1赋给新变量AA1
然后用 遍历代替你的循环(A1<9),遍历里一样是AA1=AA1+1
最后给表格的值只是把A1换成AA1
在数组里有种叫数组键,有种叫数组值,B几C几的应该照样可以当变量用

2211504505

good 发表于 2017-3-18 06:58
讲下想法,不知道合适不

把B几C几D几G几的定义成数组,

很感谢两位的回答,我这里不显示回复提醒...
我可能表达的不是很清楚,又或许我理解能力不够.
我试过楼上cjxdn 的编码...结果不是我想象中的那样
变量 对比数组=数组(A2,A3,A4,A5,A6,A7,A8,A9,B1,B2,B3,C1,C2,C3,D1,D4,D7,G1,G4,G7)
它的过程是A1对比A2,然后再对比A3类推...我的A1+1是有用的
而且我的A2----G7里面有相同的,比如1,2,3,5,1,2,3,6,9,7,8
我上面---如果(A1!=A2&&A1!=A3.....)编码是一次性连贯的对比全部,和数组对比性质就不一样了.
就好像A1是一个石头,,, 如果编码里也是一个石头
比如 A1:石头------对比-------------如果:石头
换数组来对比的话,就是将--------如果:石头------转换成-------敲碎装进一个袋子里
然后再用  A1:石头-------------对比--------------袋子里敲碎的石头
本来可以对比一整块石头,,,,,却敲碎来对比.........结果虽然一样但过程繁琐了
我本来是想让  如果这块石头体积变小,但石头质量不变.
数组是让这块石头体积变小了,但是面积又变大了......
我感觉数组是用来探测内部是否含有玉石的,只是我对比的只是石头...
真心感谢两位大神的回答!

2211504505

cjxdn 发表于 2017-3-17 22:01

我的回复被吞掉了,下面有

cjxdn

2211504505 发表于 2017-3-18 13:00
我的回复被吞掉了,下面有

1. 变量 原=0,新=0
   
2. 变量 A1=0,A2=1,A3=2,A4=3,A5=1,A6=2,A7=3,A8=6,A9=9
   
3. 变量 B1=7,B2=8,B3=0
   
4. 变量 C1=1,C2=2,C3=3
   
5. 变量 D1=100,D4=100,D7=100,G1=7,G4=8,G7=100
   
6. 功能 算()
   
7.     变量 对比数组=数组(A2,A3,A4,A5,A6,A7,A8,A9,B1,B2,B3,C1,C2,C3,D1,D4,D7,G1,G4,G7)
   
8.     循环(A1<9)
   
9.         A1=A1+1
   
10.         如果(A1!=A2&&A1!=A3&&A1!=A4&&A1!=A5&&A1!=A6&&A1!=A7&&A1!=A8&&A1!=A9)
    
11.             如果(A1!=B1&&A1!=B2&&A1!=B3&&A1!=C1&&A1!=C2&&A1!=C3)
    
12.                 如果(A1!=D1&&A1!=D4&&A1!=D7&&A1!=G1&&A1!=G4&&A1!=G7)
    
13.                     调试输出("原: "&原++)//测试同步输出次数
    
14.                     //表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
    
15.                 结束
    
16.             结束
    
17.         结束
    
18.         
    
19.         遍历(变量 i = 0; i < 数组大小(对比数组); i++)
    
20.             如果(A1!=对比数组[i])
    
21.                 如果(i==数组大小(对比数组)-1)
    
22.                     调试输出("新: "&新++)//测试同步输出次数
    
23.                     //表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
    
24.                 结束
    
25.             否则
    
26.                 跳出
    
27.             结束
    
28.         结束
    
29.     结束
    
30.     A1=""
    
31. 结束

复制代码

唯一不同的是会遍历很多次
不过输出结果是一样的
也就是你想要的结果应该一样的吧

2211504505

cjxdn 发表于 2017-3-18 14:07
唯一不同的是会遍历很多次
不过输出结果是一样的
也就是你想要的结果应该一样的吧 ...

结果是可以一样,我的目的是简化...如果用数组就繁琐化了
功能 过滤A()
变量 查,全
获取信息A()
全 = A2&A3&A4&A5&A6&A7&A8&A9&A10&A11&A12&A19&A20&A21&A28&A37&A46&A55&A64&A73
循环(数 < 9)
数 = 数 + 1
查 = 字符串查找(全, 数)
如果(查 == -1)
结果A = 结果A&数
结束
结束
消息框(结果A)
结束
我把之前的改成这样了