Заменить все числа, кратные заданной цифре X, нулями - VB

Узнай цену своей работы

Формулировка задачи:

Буду очень благодарна, если кто-нибудь сможет помочь с 2 задачами) 1. Пусть дан одномерный числовой массив, составленный из целых чисел. Его можно получить либо вводом с клавиатуры командой Inputbox, либо выбором из ячеек рабочего листа, либо с помощью датчика случайных чисел. Количество элементов заранее не известно. а) Заменить все числа, кратные заданной цифре X, нулями. б) Разделить все элементы с четными номерами на 2. 2. Пусть на рабочем листе задан некоторый двумерный массив натуральных чисел( или же получить его иным способом). Выделить другим цветом все четные числа матрицы и найти наибольшее среди них.

Решение задачи: «Заменить все числа, кратные заданной цифре X, нулями»

textual
Листинг программы
Option Explicit
Private Sub proc1()
Dim arr() As Single
Dim i As Byte, n As Byte
Dim x As Single
n = InputBox("N")
x = InputBox("X")
ReDim arr(1 To n) As Single
For i = 1 To n
arr(i) = 100 * Rnd - 50
If (arr(i) Mod x) = 0 Then arr(i) = 0
Next i
For i = 2 To n Step 2
arr(i) = arr(i) / 2
Next i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.364 из 5
Похожие ответы