作者ClubT (在某種意義上 我應該很正)
看板Visual_Basic
標題Re: [VB6]請問程式執行到結束之程式碼計時設計?
時間Fri Jul 30 11:03:23 2010
※ 引述《YKKK (e^(iπ) = -1)》之銘言：
: ：[VB6]請問程式執行到結束之程式碼計時設計?
算時間的話其實設個變數就好囉
Dim tempTime As String
tempTime = CStr(Time)
For i = 2 To 1000
...
Next i
print tempTime+"~"+CStr(Time)
這樣就OK囉
不過如果你需要更精準的計時那就...爬吧XD
: 下列程式要怎麼塞入讓他能計算 執行所花的時間呢
: 我的問題如下中文的地方
: 請高手解答 或是高手能重新設計一個輸入數值 算出小於他質數並計算程式跑的time
: 謝謝
: 程式碼如下
: Private Sub cmdStart_Click()
: Dim i, j, k As Integer
: Dim flag As Boolean
: For i = 2 To 1000
: ^^^^^^
: 請問這邊要怎麼設定成我們輸入一個任何整數
: 用成一個視窗我們可以輸入個值這樣
簡單點就是放個Textbox
按cmdStart先檢查輸入的是否為數字再執行
或是用InputBox也可以
: flag = True
: For j = 2 To i - 1
: If i Mod j = 0 Then
: flag = False
: Exit For
: End If
: Next j
: 下面如果是 真 的話 他才會執行下面嗎 還是連 false也會執行(如何讓它直接跳到全域呢
: 如果是這樣的話如果設定值很大的話 很跑很慢吧(多走遠路)
看不太懂這邊再問什麼
不過如果
flag 是 false 那下面的 If...End if 裡的東西當然就不會執行囉
: 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
另外可以在文章列表按
/ 然後輸入
質數 可以查到一些相關文章
--
我的P2個板 自然就是美 傾聽‧自然之美
NB_COLSPRING 科技 Σ 冷 泉 港 >生命孕育地，海洋之心
ClubT [風]
有空可以來逛逛^_^
Blog:
http://www.wretch.cc/blog/ClubT http://clubtblog.blogspot.com
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.64.134
※ 編輯: ClubT 來自: 220.136.64.134 (07/30 11:05)