1. VisualBasic / Говнокод #8246

    −83

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    Sub Main()
            Dim MyArray() As Integer
            Dim start As Integer
            Dim ends As Integer
            Dim i As Integer
    
    
    
            For i = 0 To 10
    
    
    
                MyArray(i) = Console.ReadLine()
    
                i = i + 1
    
            Next
    
            'start = Console.Read
    
    
    
    
            Console.ReadKey()
        End Sub
    
    End Module

    как присвоить элементы массива значение введенное с клавиатуры?

    Запостил: smitty, 19 Октября 2011

    Комментарии (12) RSS

    • введенное значение с массива присвоить как элементы клавиатуры?
      Ответить
    • 10: DIM K$(10)
      15:FOR I=1 TO 10
      20:K$(I)=INKEY$
      30:NEXT I
      40:END

      технологии развиваются. вот уже появились виртуальная машина и сборщик мусора, исключения, классы, linq и лямбды.
      но есть же в этом мире что-то инвариантое, чему не подвластно время.
      Ответить
    • о?A)N,M"J YO(YE(W$U,I$VO.N)J"B?M,M)T?X K?Q!IH!B(F(KCK$H!I)NTJ.V(U?E A,SWP"C)U)M:Q:R"E.O,W!E:Q K"J$J)O?HK.D!S,F.H(E I?I M.P"UZ.S)K(X,X?I:N)J?K(D!E)B:U?ZQ A?SO!UQ$X)N.P(T(I,M,F"U$S.O$C!G)TZ,V"D,P "C.U!F)S.FH$UW,H!G:KL"N)V$O(I$X,R,TP B$V(PJ"U?J$M?Y:JU.T I!S I"M)C.D?RZ,X?YD,J)T.I M$S L)MX$Z.Y,X(D)Y?O(D?B)Z"I,K.M:T)H,QG:P:ON (R(V H:E Y T)U:I)B!T Z?E.UF,Q,J"Q:U R?E$A$BM)F(D)Q P$F:A?Z"M:DY,L,A.Q"G,U(H?K?P)K"X"H"K,B"H ?Z)I"S)G)I!F.F A:J,JY.Q:T"KG S(B,BI.V!E)M"B.BP!B"P?F.P.M(SS$O(I)W(D.X !D?E?K$I!V:S$F,Y?Z(K$KK$U:Y N)L(C)N"E"L!VF"L,D,H)C?Q"W$A$J?P!G)H"O J,VY(E!D S.Z$T)L L$J$F!M!P)V,G A.B"J?A$R?I"C!CL.G!J:A)O$A:W!C,O!F!F NG,B(E K"X"X,W:X.KU X?K)C$W:V O!A?S?H"M)Z$X,F:Y.Q,U"V?P?O$IIL(O!G.X"JJ :C!FX$S$Q"O)A:K$G C!Q.K(X)G(XL$W(L!X"K B(A"N.M?J(M.H"K.V?W Z(TY N.U$S?MI?ZNS,M)J"Q!A?Y B,D(P(V!S!A.C(I"L!O Z$T,F?E)G$A)U$E.S"K:P!N,I?T)W.O(R!QA:X.M $H.Z:RZ,N:X"U"U!UX"EЛGHZVGWMYEEVUSPCRKLE NSHEPALKHTGWLFQZGYRIUYPYEVKVUXVABFGKQACO SLFSLKWCJPRVJRCOQWCNTBXAZRITIHCJFVDCURJS JIHSXGSIQFGPMCGBRRSFVJCUEAQLHSYVKYCAALHT ZUAIWEAEOVAOCVJPFESPVXEEBNJQQHYOMHKBUGAI SGKZFGDGNHKRKLSJHGJIDUMNFDOMYEHAVPIYSBEQ BUTBNQVEJTZSBCHJGOLX
      Ответить

    Добавить комментарий