Visual Basic - vypsání sudých čísel   zodpovězená otázka

VB.NET

Dobrý den, potřebuji poradit, potřebuji sestavit program pro VB Windows Application, který vypíše dvacet následujících sudých čísel od zadaného čísla. Potřebuji vědět co mám napsat aby program fungoval. Předem děkuji!


nahlásit spamnahlásit spam 0 odpovědětodpovědět

Zdravím,

asi budu jeden z mála, který odpoví nesarkasticky, ale k věci.

Budete potřebovat znalost vývoje windows form aplikací (zaměřte se na události, textbox, button a třeba message box). Na webu je ohromná spousta článků a informací na toto téma např. tento video tutorial:

https://www.youtube.com/watch?v=nif7ViGa...

Dále budete potřebovat znalost cyklů, zase informací je všude spousta, např. zde na webu je celý seriál o VB.NET od Toma Hercega, cykly tam také jistě najdete.

Dále definici sudého čísla, pokud si dobře pamatuje, tak je to:

sude = 2 * n (kde n je celé číslo)

Hodně štěstí.

R.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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á.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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 ;)

nahlásit spamnahlásit spam 0 odpovědětodpovědět

a neni jednodussi

start += start mod 2

nez

if start \ 2 .........

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback