UC知道vb 关于循环优化
来源：百度知道 编辑：UC知道 时间：2024/05/31 08:58:30
For st = 1 To 5
For stc = 1 To 5
For stb = 1 To 5
jj = "56789"
x = "01234"
diu(1) = Mid(jj, st, 1)
diu(2) = Mid(x, st, 1)
dii(1) = Mid(jj, stc, 1)
dii(2) = Mid(x, stc, 1)
dia(1) = Mid(jj, stb, 1)
dia(2) = Mid(x, stb, 1)
If Mid(sta, 1, 1) = "敌" Then adk = Val(diu(1))
If Mid(sta, 1, 1) = "我" Then adk = Val(diu(2))
If Mid(sta, 2, 1) = "敌" Then adp = Val(dii(1))
If Mid(sta, 2, 1) = "我" Then adp = Val(dii(2))
If Mid(sta, 3, 1) = "敌" Then adl = Val(dia(1))
If Mid(sta, 3, 1) = "我" Then adl = Val(dia(2))
next
next
For stc = 1 To 5
For stb = 1 To 5
jj = "56789"
x = "01234"
diu(1) = Mid(jj, st, 1)
diu(2) = Mid(x, st, 1)
dii(1) = Mid(jj, stc, 1)
dii(2) = Mid(x, stc, 1)
dia(1) = Mid(jj, stb, 1)
dia(2) = Mid(x, stb, 1)
If Mid(sta, 1, 1) = "敌" Then adk = Val(diu(1))
If Mid(sta, 1, 1) = "我" Then adk = Val(diu(2))
If Mid(sta, 2, 1) = "敌" Then adp = Val(dii(1))
If Mid(sta, 2, 1) = "我" Then adp = Val(dii(2))
If Mid(sta, 3, 1) = "敌" Then adl = Val(dia(1))
If Mid(sta, 3, 1) = "我" Then adl = Val(dia(2))
next
next
你的这段代码 最后可以简化成
If Mid(sta, 1, 1) = "敌" Then adk = 9
If Mid(sta, 1, 1) = "我" Then adk = 4
If Mid(sta, 2, 1) = "敌" Then adp = 9
If Mid(sta, 2, 1) = "我" Then adp = 4
If Mid(sta, 3, 1) = "敌" Then adl = 9
If Mid(sta, 3, 1) = "我" Then adl = 4
一次到位 结果是一样的
我靠。。。大哥。。。你这是什么程序。。。
居然写成了3层循环。。。而且。。。
// 下面2行代码,执行125次，st数值发生过5次变化(即:1~5)
diu(1) = Mid(jj, st, 1)
diu(2) = Mid(x, st, 1)
// 下面2行代码执行125次,stc数值发生过25次变化(即: 5次 1~5 )
dii(1) = Mid(jj, stc, 1)
dii(2) = Mid(x, stc, 1)
// 下面2行代码执行125次,stc数值发生过125次变化(即: 25次 1~5)
dia(1) = Mid(jj, stb, 1)
dia(2) = Mid(x, stb, 1)
我靠。。。大哥您这程序，用这么多循环，有用的就后面那几次。。。。
如果要优化。。。你干脆，说出具体目的。。
上面这段代码是 练习程序 还是 外挂程序的一部分。。。
我靠。。。忍受不了了。。。
这代码。。。犯心脏病的几率很大啊。。。
看你的代码也很累，你还不如告诉我你想要得到什么效果？我可以帮你想想用其他办法解决。
你们可以呀，有这份心看完他这不规则代码