Одномерный и двумерный массив - VB
Формулировка задачи:
Добрый день! Прошу помочь написать код двух несложных программ (я в этом вообще не понимаю), на одномерный и двумерный массив на языке VB. Ну это все должно сопровождаться небольшими формами, для того чтоб информация вывелась туда. (label, textbox, listbox и button).
1) Все элементы вектора, расположенные между максимальным и минимальным элементами, поделить на заданное число, не равное нулю.
2) Дана матрица В (7,7). Если max элемент матрицы больше 10, то все элементы этой матрицы разделить на max элемент. В противном случае, элементы главной диагонали матрицы заменить на 1.
Решение задачи: «Одномерный и двумерный массив»
textual
Листинг программы
Option Explicit Const ii = 6, jj = 3 Private Sub Command1_Click() Dim i&, j&, n, s$, v Randomize If Option1.Value = True Then ReDim v(ii - 1) For i = 0 To ii - 1 v(i) = Fix(Rnd * 100) s = s & v(i) & "," & vbTab Next Else ReDim v(ii - 1, jj - 1) For j = 0 To jj - 1 For i = 0 To ii - 1 v(i, j) = Fix(Rnd * 100) s = s & v(i, j) & "," & vbTab Next s = s & vbCrLf Next End If Text1 = s End Sub Private Sub Form_Load() Dim i&, v For Each v In Me Select Case TypeName(v) Case "CommandButton", "Label", "OptionButton" Debug.Print TypeName(v) i = i + 1: v.Caption = Choose(i, "Двумерный " & ii & "x" & jj, "Одномерный " & ii, "Создать", "Массив") Case Else: Text1 = "Привет Ирина ))" End Select Next Me.Caption = "Работа с массивами" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д