Получить вторую последовательность, переставив в элементах исходной первую и вторую цифры

@bertye · Регистрация: 20.05.2015

Author24 — интернет-сервис помощи студентам

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

@mihey1993 · 21.05.2015, 09:42

Visual Basic

Sub ai_bi()
Randomize Timer
 
Dim a() As Integer, b() As Integer
Dim N As Integer
 
N = Int((30 - 7 + 1) * Rnd() + 7)
 
ReDim a(1 To N)
ReDim b(1 To N)
 
For i = 1 To N
    a(i) = Int((999 - 100 + 1) * Rnd() + 100)
    b(i) = CInt(Left(a(i), 1)) * 10 + CInt(Mid(a(i), 2, 1)) * 100 + CInt(Right(a(i), 1))
Next i
 
ActiveSheet.Cells(1, 1) = "a"
ActiveSheet.Cells(1, 2) = "b"
 
For i = 1 To N
    ActiveSheet.Cells(1 + i, 1) = a(i)
    ActiveSheet.Cells(1 + i, 2) = b(i)
Next i
End Sub

@bertye 0 / 0 / 0 Регистрация: 20.05.2015 Сообщений: 2
		1
	Получить вторую последовательность, переставив в элементах исходной первую и вторую цифры 20.05.2015, 16:31. Показов 1411. Ответов 1 Метки нет (Все метки) При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное число от 7 до 30) целых положительных случайных трехзначных чисел. Из последовательности {ai} получить последовательность {bi}, переставив в элементах ai первую и вторую цифры. Обе последовательности вывести в соседние столбцы рабочего листа. 0

	21.05.2015, 09:42

Получить вторую последовательность, переставив в элементах исходной первую и вторую цифры

Решение