[VB6]請問程式執行到結束之程式碼計時設計?
：[VB6]請問程式執行到結束之程式碼計時設計?
下列程式要怎麼塞入讓他能計算 執行所花的時間呢
我的問題如下中文的地方
請高手解答 或是高手能重新設計一個輸入數值 算出小於他質數並計算程式跑的time
謝謝
程式碼如下
Private Sub cmdStart_Click()
Dim i, j, k As Integer
Dim flag As Boolean
For i = 2 To 1000
^^^^^^
請問這邊要怎麼設定成我們輸入一個任何整數
用成一個視窗我們可以輸入個值這樣
flag = True
For j = 2 To i - 1
If i Mod j = 0 Then
flag = False
Exit For
End If
Next j
下面如果是 真 的話 他才會執行下面嗎 還是連 false也會執行(如何讓它直接跳到全域呢
如果是這樣的話如果設定值很大的話 很跑很慢吧(多走遠路)
If flag = True Then
Print i;
k = k + 1
If k Mod 10 = 0 Then
Print
End If
End If
Next i
Print
Print "質數個數是"; k
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.40.158
→
07/29 23:42, , 1F
07/29 23:42, 1F
→
07/29 23:42, , 2F
07/29 23:42, 2F
→
07/29 23:51, , 3F
07/29 23:51, 3F
討論串 (同標題文章)