Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
VB Вывод на экран изображения: елка и снеговик https://www.cyberforum.ru/ visual-basic/ thread2009601.html
изображения в виде елки и снеговика. Помогите пожалуйста! 		VB Объясните программу
программа
VB Получить текстовый заголовок из бинарного файла https://www.cyberforum.ru/ visual-basic/ thread2008653.html
Привет форумчанам! Есть необходимость зачитать текстовый заголовок графического файла (DICOM), не загружая весь файл. Исходя из FAQ по DICOM, длина заголовка 794 байта ("...в DICOM-файле первые 128 байт не используются (заполнены нулями), за ними следуют символы 'D', 'I', 'C', 'М'. Далее следует определенным образом сгруппированная информация заголовка, занимающая 794 байта..."). Вот их то как... 		VB Автоматизация программы https://www.cyberforum.ru/ visual-basic/ thread2008461.html
СЛАУ с Методом Крамера ( до 5 порядка) Нужно автоматизировать программу,поиск коэффициентов и вычисление определителей,вот код Private Sub CommandButton1_Click() Dim y1, y2, y3, y4, y5 As String Dim a1, a2, a3, a4, a5 As String Dim b1, b2, b3, b4, b5 As String Dim c1, c2, c3, c4, c5 As String Dim e1, e2, e3, e4, e5 As String Dim f1, f2, f3, f4, f5 As String Dim d1, d2, d3, d4, d5 As...
VB Сбились настройки скриптов
Доброго времени суток! Опишу проблему. Зашёл как-то в Свойства скипта и чёрт меня дернул установить галочку впараметрах который называется время показа или типа того. После этого диалоговые окна скриптов показывются на секунду и исчезают. Пробовал убрать галочку, а она восстанавливается! И так для всех скриптов. Помогите, как восстановить как было? Прошу не ругаться сильно я в скриптах не силён.... 		VB Запуск файла CSV и запись данных https://www.cyberforum.ru/ visual-basic/ thread2008311.html
Ребята подскажите пожалуйста, что я не так делаю с этим файлом: Dim XLM As Object Set XLM = CreateObject("Excel.Application") FileName = App.Path & "\BD\Сотрудники.CSV" XLM.Visible = False For Each X In XLM.Worksheets("Сотрудники").Range("A1:A5").Value 'ругается на "Х" в xl работает нормально! ComboBox1.AddItem X Next XLM.ActiveWorkbook.save
VB Run-time error'11' Divis9\ion by zero Как убрать уведомление об ошибке в калькуляторе? Помогите пожалуйста! сначала появляется MsgBox, а потом выдает ошибку.как ее убрать и можно ли? Private Sub Command_Click() num2 = Text1.Text If op = "+" Then Text1.Text = num1 + num2 ElseIf op = "-" Then Text1.Text = num1 - num2 ElseIf op = "*" Then Text1.Text = num1 * num2 https://www.cyberforum.ru/ visual-basic/ thread2007818.html Поправить ошибку пути создания папки VB
Ребята подскажите не получается прописать название конечной папки. strDate = "C:\Users\Public\Desktop\ОТЧЕТЫ\ " & Format(Date, "Mmmm YYYY")\ " & Format(Date, "dd.mm") ругается на " dd "
VB Экономическая задача на VBA. В столбце A на рабочем листе находится прибыль/убыток предприятия за N месяцев В столбце A на рабочем листе находится прибыль/убыток предприятия за N месяцев. (Заполнить первые N элементов столбца A случайными числами из диапазона ). Выделить красным цветом в столбце A положительные элементы и найти среди них максимальную прибылью. Максимальную прибыль вывести в диалоговое окно. Добавлено через 20 часов 10 минут Не могу разобраться почему не выводит в диалоговое окно. ... https://www.cyberforum.ru/ visual-basic/ thread2007346.html VB Экономическая задача. Известны результаты проверки N предприятий по налогам, прибыли и себестоимости продукции https://www.cyberforum.ru/ visual-basic/ thread2007195.html
Известны результаты проверки N предприятий по налогам, прибыли и себестоимости продукции. Определить и вывести предприятие с наибольшей прибылью и вычистить среднюю сумму налоговых сборов, которые платят все предприятия.
VB Найти сумму тех элементов главной диагонали, которые кратны 5
Заполнить таблицу размером N*N случайными целыми числами из диапазона . Найти сумму тех элементов главной диагонали, которые кратны 5. Результат вывести в ячейку N+2, N+2 и залить ее красным цветом. Sub cl14() Dim i as Integer, j as Integer, N as Integer, S as Integer N=InputBox("Введите количество элементов") For i = 1 to N For j = 1 to N Cells(i,j)=Int(Rnd()*26-1) Next j Next i 		VB Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R. Уравнение окружности R2=X2+Y2. Присвоить признаку N=1, если точка находится внутри круга, и N=0, если вне круга. Пожалуйста помогите с решением! Буду очень благодарен. https://www.cyberforum.ru/ visual-basic/ thread2006624.html
oh my god
1454 / 793 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
25.06.2017, 20:31 0

Как заполнить квадратную матрицу значениями? - VB - Ответ 10576777

25.06.2017, 20:31. Показов 765. Ответов 2
Метки (Все метки)

Ответ

Есть еще вариант с использованием функции GetArray
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

'Option Explicit
 
Private Sub Form_Load()
    Dim matrix(1 To 3, 1 To 3)
    arr = GetArray("a1 = 2", "a2 = 3", "a3 = 4", "b1 = 1", "b2 = 3", "b3 = 5", "c1 = 2", "c2 = 4", "c3 = 7")
    For i = 1 To UBound(matrix, 1)
        For j = 1 To UBound(matrix, 2)
            matrix(i, j) = arr(ind): ind = ind + 1
    Next j, i
    
    'Проверка
    For i = 1 To UBound(matrix, 1)
        s = s & vbLf
        For j = 1 To UBound(matrix, 2)
            s = s & " " & matrix(i, j)
    Next j, i
    MsgBox s
End Sub
 
 
Function GetArray(ParamArray exp())
    Dim g(), i&
    For Each v In exp
        v = Split(Replace(v, " ", ""), "=")
        ReDim Preserve g(i): g(i) = v(1)
        i = i + 1
    Next
    GetArray = g
End Function


Вернуться к обсуждению:
Как заполнить квадратную матрицу значениями? VB
Изображения
 
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 25.06.2017, 20:31
Готовые ответы и решения:

Заполнить матрицу F размерности 21×3 значениями
Заполнить матрицу F размерности 21×3 значениями, зависящими от величины x: x (первый...

Заполнить порядковыми номерами квадратную матрицу змейкой по диагонали
Заполнить порядковыминомерами квадратную матрицу N´N змейкой по диагонали, то есть в...

Заполнить матрицу F размерности 21×3 значениями Visual Basic
Заполнить матрицу F размерности 21×3 значениями, зависящими от величины x: x (первый...

Заполнить матрицу Р размерности m x n значениями элементов вектора Q размерности k = m x n
Помогите написать алгоритм и код в Visual Baisic: Заполнить матрицу Р размерности m x n значениями...

2
25.06.2017, 20:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 25.06.2017, 20:31
Помогаю со студенческими работами здесь

Заполнить порядковыми номерами квадратную матрицу
Заполнить порядковыми номерами квадратную матрицу NхN по спирали по часовой стрелке Помогите кто...

Заполнить квадратную матрицу размером n x n, значениями от 1 до 2n по спирали. Перевести с С++
Условие программы: Составьте программу, которая заполняет квадратную матрицу размером n x n ,...

Как рандомно заполнить квадратную матрицу звездочками?
Мне нужно на дошке 5 на 5 рандомно поставить 5 звездочек. Как это можна сделать? Я нашла...

Как заполнить квадратную матрицу числами по порядку?
Осталась надежда только на вас! Не могу понять как сделать чтобы матрица заполнялась в цикле...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru