VB 2005 Express edition : """Willekeurige getallen""""

Article View: nl.comp.programmeren

Article #108

Back to nl.comp.programmeren Previous Next

#108

From: Ward
Date: Fri, 27 Apr 2007 16:01

19 lines
1799 bytes

Hoe komt het dat als ik dit

     Sub Main()
         Dim arraytt(5) As Byte
         Dim AC As Integer
         For AC = 1 To 5
             arraytt(AC) = (Int(Rnd() * 42) + 1)
         Next
         For AC = 1 To 5
             MsgBox(arraytt(AC))
         Next
     End Sub

uitvoer met VB 2005 krijg ik willekeurige getallen, maar als ik dit 
programma nogmaals uitvoer krijg ik juist dezelfde getallen enz enz 
enz... Als ik echter dit in access bij modulles invoer werkt het 
programma wel zoals het moet, hoe komt dit?

W.

Technical Details

Message-ID: <l7pYh.144037$iy5.807039@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!proxad.net!newsfeed1.ip.tiscali.net!tiscali!newsfeed2.ip.tiscali.net!news.astraweb.com!newsrouter-eu.astraweb.com!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 107324,8468d4a1c42425b0,start
X-Google-Thread: fcea4,8468d4a1c42425b0,start
X-Google-Attributes: gid107324,gidfcea4,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!proxad.net!newsfeed1.ip.tiscali.net!tiscali!newsfeed2.ip.tiscali.net!news.astraweb.com!newsrouter-eu.astraweb.com!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: Ward <mmoopp@gmail.com>
User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)
MIME-Version: 1.0
Newsgroups: nl.comp.programmeren,be.comp.programming
Subject: VB 2005 Express edition : """Willekeurige getallen""""
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Antivirus: avast! (VPS 000736-2, 26/04/2007), Outbound message
X-Antivirus-Status: Clean
Lines: 19
Message-ID: <l7pYh.144037$iy5.807039@phobos.telenet-ops.be>
Date: Fri, 27 Apr 2007 16:01:21 GMT
NNTP-Posting-Host: 84.195.40.191
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1177689681 84.195.40.191 (Fri, 27 Apr 2007 18:01:21 MEST)
NNTP-Posting-Date: Fri, 27 Apr 2007 18:01:21 MEST
Organization: Telenet Internet