作者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)