Private Sub Timer1_Timer()
m = 0
For i = 1 To 10000
x = Rnd
y = Rnd

If x ^ 2 + y ^ 2 < 1 Then
m = m + 1
End If
Next i
p = 4 * m / 10000

n = (m / 10000) - (m / 10000) ^ 2

Text1.Text = Text1.Text & p & vbCrLf
Text2.Text = Text2.Text & n & vbCrLf
Open "c:\131.txt" For Output As #1
Print #1, Text1.Text
Close #1

Open "c:\132.txt" For Output As #2
Print #2, Text2.Text
Close #2


End Sub

form_load()
    timer1.I???=(1000*60*3)
    timer1.E???=false
end sub

.....
.....
timer1.E???=true

没有用哦

do...loop检测时间

能具体写下代码吗，高手

t = Timer
Do Until Timer - t = 180'延期3分钟
  '在此加入要运行的程序段
Loop

[ 本帖最后由 zhengang1026 于 2013-4-19 09:26 编辑 ]