Одномерный и двумерный массив - 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

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

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