Søg
Avatar billede w13 Novice
07. november 2001 - 17:23 Der er 1 kommentar og
1 løsning

Random

Hej!

Hvordan får jeg noget tilfældigt tekst frem?
Hvor computeren altså vælger mellem forskellige sætninger jeg har skrevet ind?

Tobias!
Avatar billede jennemaan Nybegynder
07. november 2001 - 17:29 #1
Sub Whatever()
myTekst=Array(\"Tekst1\",\"Tekst2\",\"Tekst3\")
Randomize
iTekst=Int(rnd()*3))

MsgBox myTekst(iTekst)

End Sub

/Jennemaan
Avatar billede jennemaan Nybegynder
07. november 2001 - 17:31 #2
Ups... En parantes for meget ;o)

Sub Whatever()
myTekst = Array(\"Tekst1\", \"Tekst2\", \"Tekst3\")
Randomize
iTekst = Int(Rnd() * 3)

MsgBox myTekst(iTekst)

End Sub
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
41 min siden Måned og år på graf Af mort1 i Excel
I dag 12:28 2 diske Af dcedata1977 i Andet hardware
I dag 12:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
I dag 10:20 ASP classic kopiere database fil på server Af bsn i ASP
I går 15:04 Kan Medie Player overspille en CD ? - Hvordan Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »