上一次将需要调用或赋值表及控件的都在程序循环前通过变量替代，效率提升很明显，但无奈计算量还是太大，应该还要用上异步线程，请问老师以下代码如何可以用上异步线程，每一个循环变量都在后续的运算中需要调用
For i31 As Integer = 0 To txzjtxdzjh1.Count-1 '铁芯直径及低压匝数循环
txzjtxdzcs = txzjtxdzjh(i31)
...其他代码（用txzjtxdzcs变量循环运算）
For i32 As Integer = 0 To dyxghjh1.Count-1
dyxghcs = dyxghjh(i32)
dyxgkcs = dyxgkjh(i32)
...其他代码（用dyxghcs及dyxgkcs变量循环运算）
For i33 As Integer = dydtezxjlxhmincs To dydtezxjlxhmaxcs Step dydtezxjlxhbjcs '低压到铁扼最小距离循环
dyxqdtezxjlcs = i33
...其他代码（用dyxqdtezxjlcs变量循环运算）
For i34 As Integer = gyxqcsxhmincs To gyxqcsxhmaxcs Step gyxqcsxhbjcs '高压线圈层数循环
gyxqcscs = i34
...其他代码（用gyxqcscs变量循环运算）
For i35 As Integer = 0 To gyxghjh1.Count-1
gyxghcs = gyxghjh(i35)
gyxgkcs = gyxgkjh(i35)
...其他代码（用gyxghcs 及gyxgkcs变量运算）
txzjtxdzjh2.Add(txzjtxdzcs) ‘将符合条件的参数存入以下集合中
dyzsjh2.Add(dyzscs)
dyxghjh2.Add(dyxghcs)
dyxgkjh2.Add(dyxgkcs)
gyxghjh2.Add(gyxghcs)
gyxgkjh2.Add(gyxgkcs)
gycsjh1.Add(gyxqcscs)
dydtezxjljh1.Add(dyxqdtezxjlcs)
Next
Next
Next
Next
Next
[此贴子已经被作者于2018/10/20 22:44:13编辑过]
加好友 
发短信
Post By：2018/10/20 22:44:00 [只看该作者]
