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