Соединение строк в одну с указанным условием для сортировки - VB

Узнай цену своей работы

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

Есть например обрывки адреса .64 3.13 3.133 20 как написать программу которая из подобных обрывков будет составлять правильный ip адрес... ума не приложу как это провернуть(( подскажите алгоритм или наведите на путь истинный... пробовал все числа отделять от точек потом поочередно склеивать и проверять какие получаются <=255, но потом проблема как их в нужном порядке записать тоесть не потерять закономерность точек указанных в обрывках...

Решение задачи: «Соединение строк в одну с указанным условием для сортировки»

textual
Листинг программы
Private Sub Command1_Click()
    a$ = ".22"
    b$ = "3.13"
    c$ = "3.33"
    d$ = "20"
    Dim mas$(3), part$()
    Dim good$
    mas(0) = a
    mas(1) = b
    mas(2) = c
    mas(3) = d
    For i = 0 To 3
        For j = 0 To 3
            If j <> i Then
                For k = 0 To 3
                    If k <> i And k <> j Then
                        m = 6 - i - j - k
                        st = mas(i) & mas(j) & mas(k) & mas(m)
                        part = Split(st, ".")
                        t = 0
                        For n = 0 To 3
                            If IsNumeric(part(n)) Then
                                If Val(part(n)) > 255 Then t = 1: Exit For
                            End If
                        Next
                        If t = 0 Then good = good & st & " - " & Chr(Asc("a") + i) & _
                        " " & Chr(Asc("a") + j) & " " & Chr(Asc("a") + k) & _
                        " " & Chr(Asc("a") + m) & vbCrLf
                    End If
                Next
            End If
        Next
    Next
    MsgBox good
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 4.133 из 5
Похожие ответы