Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран

@aminka · Регистрация: 22.06.2013

Добрый день .
Задание:Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран.
Помогите !

@Igor_Tr · 22.06.2013, 10:44

Здравствуйте! А где сам массив?

Добавлено через 32 минуты
Если Вам нужно с 1D массивом...:

Visual Basic

Dim mARR(), i&, j&, tmpV
   ActiveSheet.Cells.Delete
   mARR = Array("mom", 212, "cat", "num99last", "922-56-18", 34, "twenty", 76)
   Cells(1, 1).Value = "SOURCE ONE-DIMENSIONAL ARRAY"
   Cells(2, 1).Resize(1, UBound(mARR) + 1).Value = mARR
      For i = LBound(mARR) To UBound(mARR) - 1
         For j = i + 1 To UBound(mARR)
            If IsNumeric(mARR(i)) Then Exit For
            If IsNumeric(mARR(j)) Then
               tmpV = mARR(i): mARR(i) = mARR(j): mARR(j) = tmpV
               Exit For
            End If
         Next 'j
      Next 'i
   With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
      .Offset(2, 0).Value = "SORTING ONE-DIMENSIONAL ARRAY"
      .Offset(3, 0).Resize(1, UBound(mARR) + 1).Value = mARR
   End With
End Sub

@aminka · 22.06.2013, 14:07 **[ТС]**

Сообщение от Igor_Tr

Здравствуйте! А где сам массив?

Добавлено через 32 минуты
Если Вам нужно с 1D массивом...:

Visual Basic

Dim mARR(), i&, j&, tmpV
   ActiveSheet.Cells.Delete
   mARR = Array("mom", 212, "cat", "num99last", "922-56-18", 34, "twenty", 76)
   Cells(1, 1).Value = "SOURCE ONE-DIMENSIONAL ARRAY"
   Cells(2, 1).Resize(1, UBound(mARR) + 1).Value = mARR
      For i = LBound(mARR) To UBound(mARR) - 1
         For j = i + 1 To UBound(mARR)
            If IsNumeric(mARR(i)) Then Exit For
            If IsNumeric(mARR(j)) Then
               tmpV = mARR(i): mARR(i) = mARR(j): mARR(j) = tmpV
               Exit For
            End If
         Next 'j
      Next 'i
   With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
      .Offset(2, 0).Value = "SORTING ONE-DIMENSIONAL ARRAY"
      .Offset(3, 0).Resize(1, UBound(mARR) + 1).Value = mARR
   End With
End Sub

Спасибо за помощь !
Уже сам разобрался !

@aminka 0 / 0 / 0 Регистрация: 22.06.2013 Сообщений: 7
		1
	Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран 22.06.2013, 06:14. Показов 1070. Ответов 2 Метки нет (Все метки) Добрый день . Задание:Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран. Помогите ! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы