Pereiti prie turinio

visual basic- reikia pagalbos

skyboy

Sukūrė skyboy
Ne į temą

 Dalintis Sekėjai 0

Rekomenduojami pranešimai

skyboy

skyboy 0

Sukurta
Sukurta (redaguota)

Sugeneruoti K sveikųjų atsitiktinių skaičių intervale [0;1]. Apskaičiuoti kiek sugeneruotoje sekoje yra 0 ir 1.

naudoti cikla For...Next

 

Dim n As Integer

Dim sk As Single

Dim seka As String

Dim suapval As Byte

Dim i As Integer

 

 

Private Sub Command1_Click()

n = Text1.Text

seka = " "

For i = 0 To n - 1

Randomize

sk = Rnd

suapval = Round(sk)

seka = seka & suapval & " - "

Next i

Label1.Caption = seka

End Sub

 

vat tiek sugalvoju, toliau nzn gal kokia komanda reikia kuri skaiciuotu vienodus skaicius

gaip manot Jūs.

Redagavo skyboy
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
×
 Dalintis
Sekėjai 0
Eiti į temų sąrašą

  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...