Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Определить, является ли заданное шестизначное число счастливым https://www.cyberforum.ru/ visual-basic/ thread1130755.html Определить, является ли заданное шестизначное число счастливым (счастливым называют такое шестизначное число, у которого сумма его первых трех цифр равна сумме его последних трех цифр). И к ней еще блок схему нужно. Не работал в Basic поэтому возникли проблемки.	Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная VB Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная. Private Sub Command1_Click() Dim m As Integer, i As Integer Dim a() As Single, c() As Single m = InputBox("Введите размерность массива") ReDim a(1 To m), c(1 To m) For i = 1 To m c(i) = InputBox("c(" & i & ")", "Ввод значений элементов массива C") Next Print "Исходный массив:"
VB Работа с контейнером https://www.cyberforum.ru/ visual-basic/ thread1129859.html Ребят помогите решить задание: Добавьте на форму два контейнера (Panel). В каждую панель добавить по текстовому окну и кнопке. При нажатии кнопки на 1 панели 2 панель должна деактивироваться вместе с содержимым (при повторном нажатии этой же кнопки активироваться). При нажатии 2 кнопки цвет первой панели должен измениться.	VB Отыскание параметров многочлена m-й степени Заказывал программу, выполнили, теперь сижу разбираю... Подскажите пожалуйста, что значит xpq() в этой шапке: И почему внизу самом Next без значения стоит? То есть обычно пишется же Next и какая то переменная(для который цикл открывали) Dim xpq(m * m) For i = 1 To n: x(i) = Cells(i, 1): y(i) = Cells(i, 2): Next i For i = 0 To m * m xpq(i) = 0 For j = 1 To n xpq(i) = xpq(i) +... https://www.cyberforum.ru/ visual-basic/ thread1129806.html
Переставить первые три и последние и последние три элемента местами, сохраняя их следования VB Переставить первые три и последние и последние три элемента местами, сохраняя их следования/ Visual Basic ПОМОГИТЕ ПОЖАЛУЙСТА!!!	VB Найти минимальный элемент в каждом массиве / Visual Basic Найти минимальный элемент в каждом массиве / Visual Basic https://www.cyberforum.ru/ visual-basic/ thread1129128.html
VB Тангенс https://www.cyberforum.ru/ visual-basic/ thread1128881.html Разработать форму при помощи которой, введя соответствующий код, для заданого угла в радианах получаем 1.Тангенс, 2.Арктангенс, 3.Котангенс?	VB Visual Basic Определить сумму S, произведение P и количество K элементов массива, Дан массив А(15). Определить сумму S, произведение P и количество K элементов массива, попадающих в интервал .
VB Определить среднее арифметическое положительных элементов массива https://www.cyberforum.ru/ visual-basic/ thread1128741.html Дан массив А(10). Определить среднее арифметическое SA положительных элементов массива с нечетными порядковыми номерами.	VB Нахождения и распечатки строки максимальной длины https://www.cyberforum.ru/ visual-basic/ thread1128505.html Предварительно создать текстовый файл. Написать программу для нахождения и распечатки строки максимальной длины
VB Как введя номер месяца в году получить его название Разработать форму, при помощи которой введя номер месяца в году, получается его название?	VB Как перевести число из одной системы счисления в другую. https://www.cyberforum.ru/ visual-basic/ thread1128073.html Добрый день! Помогите пожалуйста, нужно создать программку: TextBox1.Text - вводится любое число в любой СС (от двоичной до 16) TextBox2.Text - задается СС в которой ввели число TextBox3.Text - задается СС в которую нужно перевести введенной выше число (СС от 2 до 16) TextBox4.Text - выводится число в той СС, которая введена в TextBox3.Text Есть программа, но она не доделана. Не могу...

Bar123

7 / 0 / 0

Регистрация: 26.11.2013

Сообщений: 20

27.03.2014, 17:54 [ТС]

Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента - VB - Ответ 5960540

27.03.2014, 17:54. Показов 1155. Ответов 2

Метки (Все метки)

Ответ

Visual Basic

Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer, q As Integer
Dim a() As Single, max As Integer
m = InputBox("Ââåäèòå êîëè÷åòñâî ñòðîê ìàòðèöû")
n = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ ìàòðèöû")
ReDim a(1 To m, 1 To n)
For i = 1 To m
  For j = 1 To n
   a(i, j) = InputBox("a(" & i & " , " & j & ")")
 Next j
Next i
Print Spc(4); "Èñõîäíûé ìàññèâ:"
For i = 1 To m
    Print
    For j = 1 To n
        Print a(i, j);
    Next j
Next i
max = a(1, 1)
For i = 1 To m
  For j = 1 To n
   If a(i, j) > max Then
   max = a(i, j)
End If
   Next j
Next i
For i = 1 To m
For j = 1 To n
If i = j Then
a(i, i) = max
End If
Next
Next
Print Spc(4); "Ðåçóëüòàò:"
For i = 1 To m
  Print
  For j = 1 To m
    Print a(i, j);
    Next
Next
End Sub

Вернуться к обсуждению:
Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента VB

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.03.2014, 17:54

Готовые ответы и решения:

Заменить все элементы главной диагонали заданной матрицы значением первого элемента
Дан двумерный статический массив действительных чисел размером 6х5. Заменить все...

В заданном массиве заменить значения отрицательных элементов значением максимального элемента
Дан вещественный массив х(12).В заданном массиве заменить значения отрицательных элементов...

Найти произведение положительных элементов главной диагонали квадратной матрицы, заменить полученные значением
Найти произведение положительных элементов главной диагонали квадратной матрицы, заменить...

Сумму элементов главной диагонали матрицы увеличить на значение максимального элемента
Найти суму элементов главной диагонали, увеличить на значение максимального элемента в массиве...

	27.03.2014, 17:54

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.03.2014, 17:54

Помогаю со студенческими работами здесь

В каждой строке матрицы элемент главной диагонали заменить суммой ранее расположенных элементов
Ребята выручайте, до пятницы нужно сделать это задание(( я понимаю, что вы мне не обязаны( но очень...

Найти сумму максимального и минимального элемента среди элементов главной диагонали матрицы
1. В массиве размерности n*n, состоящего из целых чисел, найти сумму максимального и минимального...

Заменить все положительные элементы матрицы значением максимального, а отрицательные - значением минимального элемента
Нужна помощь в написании программы на Java. Дано матрицу A . Элементы матрицы нужно ввести с...

Наверх