作者YKKK (e^(iπ) = -1)
看板Visual_Basic
標題[VB6]請問程式執行到結束之程式碼計時設計?
時間Thu Jul 29 22:41:06 2010
：[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
1F：→ r31422009:flag = True 應該放在 For j = 2 To i - 1 後面吧!! 07/29 23:42
2F：→ r31422009:然後 Next i 應該放在 Next j 前面吧!! 07/29 23:42
3F：→ r31422009:當我上面沒說好了~ 07/29 23:51