dotNETportal.cz

Zdravím,

je to velice jednoduché. Do formuláře vložte jeden Textbox, jeden Label ze kterého vymažete veškerý text a jedno tlačítko. Do události tlačítka vložte následující kód.

   If TextBox1.Text = "" Then Exit Sub
   Dim zbytek As Integer
   zbytek = TextBox1.Text Mod 2 ' vypočítá zbytek ( dělitelnost dvěma )
   If zbytek < 1 Then ' rozhodne zda-li je zbytek větší než 1
      Dim soucet As Integer = TextBox1.Text 'založíme proměnnou s prvním číslem
      For n As Integer = 1 To 20 ' vypíše 20 následujících sudých čísel
         soucet = soucet + 2 'zvětšení čísla o dvě
         Label1.Text = Label1.Text & ", " & soucet 'zápis čísla do prvku Label
      Next n
   End If

Takhle bych to asi řešil já.

Neřeším prázdný nebo nečíselný vstup v textboxu.

Ale je to nejjednodušší.

Dim start As Integer
start = cint(TextBox1.Text)
if start \ 2 <> start / 2 then start=start-1 'Neni li sude odecti 1
   For n As Integer = 1 To 20 ' vypíše 20 následujících sudých čísel
      start = start + 2 'zvětšení čísla o dvě
      Label1.Text = Label1.Text & ", " & start 'zápis čísla do prvku Label
   Next n
End If

Funguje i na zadané liché číslo na vstupu ;)