Re: Problem with VB for next loop

Article View: pl.comp.lang.vbasic

Article #173

Back to pl.comp.lang.vbasic Previous Next

#173

From: Dick Harrison
Date: Fri, 21 Nov 1997 13:36

19 lines
1182 bytes

Wan Li Zhu

Try:

Dim temp As Double
Dim count As Integer

temp = 0
For count  = 2 To 1000 Step 2 ' where 1000 is your choice
    temp = temp * (count / (count - 1))
    temp = temp * (count / (count + 1))
Next count

Pi = temp * 8

Something like that, anyway.

Regards
Dick

Technical Details

Message-ID: <6542j6$rs3$1@sys10.cambridge.uk.psi.net>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!news.icm.edu.pl!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news.idt.net!dispose.news.demon.net!demon!uknet!nnrp1.news.uk.psi.net!uknet!not-for-mail

References: <3474B8D9.B305D462@okcom.net>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!news.icm.edu.pl!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news.idt.net!dispose.news.demon.net!demon!uknet!nnrp1.news.uk.psi.net!uknet!not-for-mail
From: "Dick Harrison" <dick.h@chase-comms.com>
Newsgroups: pl.comp.lang.vbasic,fj.lang.visualbasic,comp.lang.basic.visual.misc
Subject: Re: Problem with VB for next loop
Date: Fri, 21 Nov 1997 13:36:30 -0000
Organization: Connectivity (but not content) by PSINet UK, spam reporting mailto:abuse@uk.psi.com
Message-ID: <6542j6$rs3$1@sys10.cambridge.uk.psi.net>
References: <3474B8D9.B305D462@okcom.net>
NNTP-Posting-Host: 195.153.37.35
X-Newsreader: Microsoft Outlook Express 4.71.1712.3
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Lines: 21
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message