CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

slarp Nybegynder

08. november 2000 - 16:32 Der er 8 kommentarer og
1 løsning

hjælp med VB

Hej folkens
Er der nogle der vil løse den her opgave for mig?
Her er den:
Lav det her om så der tælles op, hvor mange gange Tal skal ganges på, før man når op over 10000.

Public Sub gange()
Dim produkt, tal As Integer
tal = 5
produkt = 1
Do While produkt < 10000
produkt = produkt * tal
Debug.Print produkt
Loop
End Sub

--Slarp--

Synes godt om

uffe_kld Nybegynder

08. november 2000 - 16:39 #1

Public Sub gange()
Dim produkt, tal As Integer
counter = 0
tal = 5
produkt = 1
Do While produkt < 10000
counter = counter +1
produkt = produkt * tal

Loop
Debug.Print counter
End Sub

Synes godt om

slarp Nybegynder

08. november 2000 - 16:42 #2

det virker ikke

Synes godt om

uffe_kld Nybegynder

08. november 2000 - 16:47 #3

sorry:

Dim produkt, tal, counter As Integer
counter = 0
tal = 5
produkt = 1
Do While produkt < 10000
counter = counter +1
produkt = produkt * tal

Loop
Debug.Print counter
End Sub

Synes godt om

slarp Nybegynder

08. november 2000 - 16:51 #4

ja, den virker ligsom den du skrev før, men den skal også skrive tallene

Synes godt om

uffe_kld Nybegynder

08. november 2000 - 16:57 #5

mener du:
Dim produkt, tal, counter As Integer
counter = 0
tal = 5
produkt = 1
Do While produkt < 10000
counter = counter +1
produkt = produkt * tal
Debug.Print counter, produkt
Loop
Debug.Print counter
End Sub

Synes godt om

danagadk Nybegynder

12. november 2000 - 16:44 #6

(Lidt \'ord\'-kløveri... *S*)

Hvis
tal = 10
så virker funktionen ikke, da produktet skal være over 10000 (den stopper VED 10000). Ergo:
Do While produkt <= 10000
... eller:
Do Until produkt > 10000

/Dan

Synes godt om

tdaugaard Nybegynder

08. december 2000 - 16:22 #7

hvad med at lukke ?

Synes godt om

slarp Nybegynder

16. december 2000 - 18:18 #8

Ok....der er ikkke noget jeg kan bruge til noget såå....15 point til mig selv!!!!!!

Synes godt om

nomiz Nybegynder

21. december 2000 - 13:32 #9

tsk, tsk

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS