Поменять местами N первых с группой элементов ,нач. с №K - VB

Формулировка задачи:

Дан одномерный массив числовых значений,насчитывающий N элементов. Поменять местами M первых с группой элементов с группой элементов,начинающихся с номера K. Помогите пожалуйста составить программу,сама совсем не понимаю..

Решение задачи: «Поменять местами N первых с группой элементов ,нач. с №K»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim n As Integer, m As Integer, k As Integer, i As Integer, t As Integer
Dim mas() As Integer
Dim res As String
 
Private Sub Form_Load()
    On Error Resume Next
    Randomize
    res = "Old: "
    n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ n")
    m = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ m")
    k = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ k")
    For i = 1 To n
        ReDim Preserve mas(i)
        mas(i) = 100 * Rnd()
        res = res + CStr(mas(i)) + " "
    Next i
    res = res + vbCrLf + "New: "
    For i = 1 To m
        t = mas(i)
        mas(i) = mas(i + k)
        mas(i + k) = t
    Next i
    For i = 1 To n
        res = res + CStr(mas(i)) + " "
    Next i
    MsgBox res
    End
End Sub
                        

Оцени полезность:

5 голосов , оценка 3.8 из 5

Похожие ответы