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.

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