Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Visual Basic märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
lil-nuki
HV vaatleja
lil-nuki

liitunud: 08.09.2007
sõnum 03.05.2009 23:56:50 Visual Basic vasta tsitaadiga
nii oleks abi vaja eirit lihtsa jupiga
Sub masiiiv()
    Dim X()
    c = 1
    a = InputBox("Mitu arvu tahad?")
    ReDim X(1 To a)
    For i = 1 To a
        X(i) = InputBox("Sisesta arv")
        c = c * X(i)
    Next i
    MsgBox "Vastus: " & c
End Sub

Sub korduslaused_DO()
    Dim X()
    c = 1
    a = Val(InputBox("sisestage väärtuste koguarv"))
    ReDim X(1 To a)
    i = 1
    Do
        X(i) = Val(InputBox("Sisestage element"))
        c = c * X(i)
        i = i + 1
    Loop Until i > a
    MsgBox "Vastus: " & c
End Sub

Sub korduslaused_DOwhile()
    Dim X()
    c = 1
    a = Val(InputBox("sisestage väärtuste koguarv"))
    ReDim X(1 To a)
    i = 1
    Do While i <= a
        X(i) = Val(InputBox("Sisestage element"))
        c = c * X(i)
        i = i + 1
    Loop
    MsgBox "Vastus: " & c
End Sub

lisasin juurde sama tööülesandega koodi jupid.
kõik teevad sama asja aga lihtsalt kasutatud erinevaid käske

see siis tavaline VB For'i kood
kuid oleks vaja teha analoogne For each'i kasutades
Sub korduslasused_foreach()
    Dim X()
    c = 1
    a = InputBox("Mitu arvu tahad?")
    ReDim X(1 To a)
    For Each i In X
        If X(i) = InputBox("Sisesta arv") Then
            c = c * X(i)
            i = i + 1
            Exit For
        End If
    Next i
    MsgBox "Vastus: " & c
End Sub


ise tegin midagi sellist kuid seal miski asi ei tööta korrailkult ega saa poindile pihta
Kommentaarid: 6 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 6
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Visual Basic
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.