- Код: Выделить всё
Dim a(9) as Integer={1,2,3,4,5,6,7,8,9,10}
Dim b(4) as integer
b(4)=a(3-6)
Ясное дело, что последняя строка синтактически не верна. Как можно реализовать что-то подобное?
Dim a(9) as Integer={1,2,3,4,5,6,7,8,9,10}
Dim b(4) as integer
b(4)=a(3-6)
Dim a() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim b(3) As Integer
Array.Copy(a, 2, b, 0, 4)
'вывести результаты
Dim SB As New System.Text.StringBuilder()
For Each i As Integer In b
SB.AppendLine(i.ToString)
Next i
MsgBox(SB.ToString)
Сейчас этот форум просматривают: Mail.ru [бот] и гости: 36