Составить программу преобразования матрицы размера 5x5, разделив каждый элемент матрицы на ее минимальный элемент - VB

  1. Доброго времени суток. Задача у меня простая, но в с vb туговато... Составить программу преобразования матрицы размера 5x5, разделив каждый элемент матрицы на ее минимальный элемент.


textual

Код к задаче: «Составить программу преобразования матрицы размера 5x5, разделив каждый элемент матрицы на ее минимальный элемент - VB»

Sub Прямоуг1_Щелкнуть()
Dim i As Byte, j As Byte, r As Byte
Dim str As String, Matrix(4, 4) As Integer
r = 255
For i = 0 To 4
    For j = 0 To 4
        Matrix(i, j) = Int(Rnd() * 256)
        If Matrix(i, j) < r Then r = Matrix(i, j)
    Next j
Next i
 
If r = 0 Then Exit Sub
 
For i = 0 To 4
    For j = 0 To 4
        Matrix(i, j) = Int(Matrix(i, j) / r)
        str = str & Matrix(i, j) & " "
    Next j
    str = str & vbCrLf
Next i
MsgBox str
End Sub

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.200 из 5



Похожие ответы
  1. Разработать программу, которая вводит слово с клавиатуры и переставляет первые три и последние три буквы,сохранив при этом порядок их следования. Реализовать с помощью ОПЕРАТОРА ЦИКЛА. пример: ввод слова корреляция, вывод - циярелякор

  1. Даны два множества А и B c различным кол-вом элементов( в программе они в виде проинициализированных массивов). разработать программу, которая выводит объединение и пересечение этих множеств

  1. Помогите!!! Вот задача: Компьютер загадывает число от 0 до 100 Пользователь начинает отгадывать число. Если разница между загаданным числом и предложенным пользователем больше 30 выводится сообщение – Холодно Если разница от 20 до 30 – Выводится «тепло» От 10 до 20 – «Горячо» От 5 до 10 – «Почти угадал» От 1 до 5 – «Еще чуть-чуть!!!» Сделайте подсчет количества попыток за которые отгадано число

  1. Подскажите в чем ошибка, не получается что окружности красного и зеленого цвета не рисуется как окружности синего цвета

  1. Дано простое число. Составить функцию, которая будет находить следующее за ним простое число!

  1. как написать на vb программу, выводящую на консоле 'Hi, world!'(тип проекта консоль)

  1. Можно-ли сделать само обновляемую программу в vb6 . И как

  1. а может кто то подсказать как при открытии программы используя ComboBox или ListBox загрузить информацию из Excel, а в Excel была таблица не важно сколько строк но один столби чтобы было возможно выбрать любой ряд и его афишировать, а в стоках будут написаны целые предложения

  1. Составить блок схему и реализовать на VB. Даны четыре целых числа А,В,С,D. Вывести на экран наибольшее из этих чисел или сообщение <<Нет>>,если среди указанных чисел нет наибольшего.

  1. Товарищи, помогите пожалуйста. Необходимо составить программу автоматического переноса слов. Исходная информация вводится с клавиатуры. Заранее благодарен, за любую помощь!