08. november 2000 - 16:32Der 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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
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
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.
Ny bruger
Nybegynder
Opret
Preview
