Все те числа, в которых целая часть кратна 4, выделить цветом

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

В одномерный массив A размерности N при помощи датчика случайных чисел вводятся действительные числа в диапазоне от 900 до 4500 (N ввести с клавиатуры). Вывести их в строку рабочего листа. Все те числа, в которых целая часть кратна 4, выделить цветом.

@mihey1993 · 20.05.2015, 18:04

Visual Basic

Sub rnd_color()
Randomize Timer
 
ActiveSheet.Rows(1).Clear
 
Dim N As Integer, A() As Double
 
N = InputBox("Enter N")
 
ReDim A(1 To N)
 
For i = 1 To N
    A(i) = ((4500 - 900 + 1) * Rnd() + 900)
Next i
 
For i = 1 To N
    ActiveSheet.Cells(1, i) = A(i)
    If Int(i) Mod 4 = 0 Then ActiveSheet.Cells(1, i).Interior.Color = RGB(50, 100, 150)
Next i
 
End Sub

@bertye 0 / 0 / 0 Регистрация: 20.05.2015 Сообщений: 2
		1
	Все те числа, в которых целая часть кратна 4, выделить цветом 20.05.2015, 16:29. Показов 2110. Ответов 1 Метки нет (Все метки) В одномерный массив A размерности N при помощи датчика случайных чисел вводятся действительные числа в диапазоне от 900 до 4500 (N ввести с клавиатуры). Вывести их в строку рабочего листа. Все те числа, в которых целая часть кратна 4, выделить цветом. 0

Опции темы

Все те числа, в которых целая часть кратна 4, выделить цветом

Решение