Написать программный код к заданиям на VBA.
1. Дан линейный массив. Вывести в один список – исходный массив, в другой – только элементы, кратные трем.
2. Разработать программу, содержащую многостолбцовый список. Составить таблицу перевода километров в мили на интервале от 10 до 50 с шагом 5 (1 миля=1,609 километра).
3. Разработать программу, содержащую несколько списков, осуществляющую выбор из списка. В двух списках записаны числа, указывающие первый член и знаменатель геометрической прогрессии. Получить в третьем списке 10 первых членов геометрической прогрессии.
Ответы
Ответ:
1.Sub PrintMultiplesOfThree()
' Define variables
Dim myArray As Variant
Dim i As Integer
' Define the original array
myArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
' Print the original array
For i = LBound(myArray) To UBound(myArray)
Debug.Print myArray(i)
Next i
' Print multiples of three
For i = LBound(myArray) To UBound(myArray)
If myArray(i) Mod 3 = 0 Then
Debug.Print myArray(i)
End If
Next i
End Sub
2. Sub ConvertKmToMiles()
' Определение переменных
Dim km As Double
Dim miles As Double
Dim i As Integer
' Создание таблицы
Range("A1").Value = "Километры"
Range("B1").Value = "Мили"
' Заполнение таблицы
For i = 2 To 9
km = (i - 2) * 5 + 10
miles = km / 1.609
Range("A" & i).Value = km
Range("B" & i).Value = miles
Next i
End Sub
3.Sub generateGeomProg()
' Создаем 3 списка
Dim list1 As Object
Set list1 = CreateObject("System.Collections.ArrayList")
Dim list2 As Object
Set list2 = CreateObject("System.Collections.ArrayList")
Dim list3 As Object
Set list3 = CreateObject("System.Collections.ArrayList")
' Заполняем первые 2 списка случайными числами
For i = 1 To 2
For j = 1 To 1
If i = 1 Then
list1.Add Int(Rnd * 10) + 1
Else
list2.Add Int(Rnd * 10) + 1
End If
Next j
Next i
' Вычисляем первые 10 членов геометрической прогрессии
Dim firstTerm As Integer
Dim commonRatio As Integer
firstTerm = list1(0)
commonRatio = list2(0)
For i = 1 To 10
list3.Add firstTerm * (commonRatio ^ (i - 1))
Next i
' Выводим результат в третий список
For Each num In list3
Debug.Print num
Next num
End Sub
Объяснение:
Ответ:uxjxjxjdj
Объяснение:
![](https://st.uroker.com/files/c04/c040317781ec7eb55677b97a42b0b3dc.jpg)