Gå til innhold

Anbefalte innlegg

Dim Antallganger As integer 'Definerer Antallganger som helltall, en variabel.

Dim b AS Integer 'Definerer b som heltall.

Dim Antall As Integer = 10 '

 

 

Sub Telleprosedyre(Teller As Integer)

Do

Label1.text &= Teller.ToString() & "<BR/>"

Teller = Teller - 1

Loop until Teller = 0

End Sub

 

Function Tellefunksjon(telletall As Integer) As Integer

Dim teller As Integer

b = Telletall * 1000

teller = 1

Do

Label2.text &= teller.Tostring() & "<BR/>"

teller = teller +1

Loop until teller = telletall + 1

End function

 

Sub Button1_Click(sender As Object, e As EventArgs)

Telleprosedyre(Antall)

End Sub

 

Sub Button2_Click_1(sender As Object, e As EventArgs)

Antallganger = CInt(TextBox1.Text)

Tellefunksjon(Antallganger)

Label3.Text = CInt(b) & " returverdi!"

End Sub

 

 

Trenger hjelp med å definere alle linjene her, som jeg har klart på de to øverste linjene selv (jippi).. Noen som kan hjelpe meg med det? Hadde vært flott :innocent:

Lenke til kommentar
Videoannonse
Annonse

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...