- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 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
bot-minurast 19.10.2011 19:53 # +4
smitty 19.10.2011 19:56 # 0
bugmenot 19.10.2011 19:57 # +1
3.14159265 19.10.2011 20:07 # +6
15:FOR I=1 TO 10
20:K$(I)=INKEY$
30:NEXT I
40:END
технологии развиваются. вот уже появились виртуальная машина и сборщик мусора, исключения, классы, linq и лямбды.
но есть же в этом мире что-то инвариантое, чему не подвластно время.
3.14159265 19.10.2011 20:12 # +4
34:IF INKEY$="" THEN GOTO 34
*self-fix*
alexoy 19.10.2011 20:25 # −7
3.14159265 19.10.2011 20:35 # +9
так понятно?
3.14159265 19.10.2011 20:37 # +2
GOTO - это нахуй.
Lure Of Chaos 19.10.2011 20:47 # +6
bot-minurast 20.10.2011 02:12 # +4
bot-minurast 21.10.2011 01:32 # 0
guest8 09.04.2019 11:46 # −999