Dim z1, z2, z3, z4 As Single
Dim i As Single
Dim X, Y As Single
Dim t1, t2 As Single
Dim p As String
List1.Clear
t1 = (Abs(X - Int(X + 0.5)) <= 0.02 And Abs(z1 - Int(z1 + 0.5)) <= 0.001 _
And Abs(z2 - Int(z2 + 0.5)) <= 0.001 And Abs(z3 - Int(z3 + 0.5)) <= 0.001 _
And Abs(z4 - Int(z4 + 0.5)) <= 0.001)
For z1 = 70 To 120
For z2 = 70 To 120
For z3 = 70 To 120
For z4 = 70 To 120
X = z1 * z3
Y = z2 * z4
If (z1 * z3) / (z2 * z4) = 0.7853983 And t1 Then
End If
p = Format(z1, "@@@") & Format(z2, "@@@@") & Format(z3, "@@@@") & Format(z4, "@@@@")
List1.AddItem p
Next
Next
Next
Next
uj5u.com熱心網友回復：
你這不是“沒回應”，而是代碼有嚴重問題，一運行就會卡死很久！
① 你的回圈最內層那個空If陳述句，寫在那兒干嘛？
② 你知道你的這段代碼，會向List控制元件中添加多少條專案嗎！！！
這是51×51×51×51＝6765201條啊！！！
豈不說List控制元件能不能裝得下（估計VB6的List控制元件最多65535項），
單說這個運行時間，以一般的電腦，
在IDE中運行時每秒能操作添加2000條來算，
你這一段代碼，它要50多分鐘才能執行完！
你說說，它會不會“卡死”（沒回應）？？？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/85549.html
標籤：網絡編程
上一篇：VB 指定檔案的路徑獲取
下一篇：宏變成可執行檔案