• Работа с массивами в VBA (Microsoft Excel)

Текст задания 

При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное двухзначное число) целых положительных случайных четырехзначных чисел. Из последовательности {ai} получить последовательность {bi}, переставив в элементах ai вторую и четвертую цифры. Обе последовательности вывести в соседние столбцы рабочего листа

Решение

Добавляем на рабочий лист Excel кнопку, на нее вешаем код, приведенный ниже и получаем готовое решение. Если Вам нужна готовая книга Excel, то можете её приобрести, заплатив символическую сумму. Для этого добавьте работу в корзину, оформите заказ и оплатите его. Сразу же после оплаты Вы сможете скачать готовое решение

Код макроса:

Sub Кнопка3_Щелчок()
Dim a(99) As Integer
Dim B(99) As Integer
Dim n As Integer
Dim i As Integer
Dim n1 As String
For i = 1 To 99
  Cells(i + 1, 12) = ""
  Cells(i + 1, 13) = ""
Next i
Randomize
n = Rnd() * 100
Cells(1, 11) = "N=" & n
For i = 1 To n
  a(i) = Rnd() * 10000
  n1 = CStr(a(i))
  B(i) = CInt(Mid(n1, 1, 1) & Mid(n1, 4, 1) & Mid(n1, 3, 1) & Mid(n1, 2, 1))
  Cells(i + 1, 12) = a(i)
  Cells(i + 1, 13) = B(i)
Next i
End Sub

Написать отзыв

Внимание: HTML не поддерживается! Используйте обычный текст!
    Плохо           Хорошо

Работа с массивами в VBA (Microsoft Excel)

  • 20.00 р.




Смотрите также

Замена слов в текстовом файле с помощью VBA (Microsoft Excel)

Замена слов в текстовом файле с помощью VBA (Microsoft Excel)

 В текстовом файле поменять все слова "Дима" на "Петров Д. М.".РешениеРядом с книгой Excel..

100.00 р.

Типовой расчет в VBA (Microsoft Excel)

Типовой расчет в VBA (Microsoft Excel)

 Написать программу, которая считывает в одномерный массив A действительные числа, записанные в..

40.00 р.

Разбивка массива на подмассивы в VBA (Microsoft Excel)

Разбивка массива на подмассивы в VBA (Microsoft Excel)

 В массив A считать 100 действительных чисел, находящихся в первом столбце рабочего листа. Во в..

60.00 р.

Теги: Microsoft Excel, VBA

Не подошла работа?

Узнайте стоимость написания работы по Вашему заданию

(это быстро и бесплатно)

Узнать стоимость

Спасибо, не надо