Заполнить массив тремя способами - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Целочисленный массив А имеет размерность n. А. Заполнить массив тремя способами: 1. Задать присвоением (тестовый набор данных). 2. Вводом с клавиатуры. 3. Случайным образом целыми числами в интервале от a до b. Добрый день. Ту вопрос не столько к решению, скока к пониманию, решать постараюсь сам. Так вот имеется массив его тут назвали "А" но как этот массив может иметь размерность "n", ведь вроде там должно быть число указывающие на количество строк , или чего то не понял?

Решение задачи: «Заполнить массив тремя способами»

textual
Листинг программы
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
 
        Dim A(4) As Integer
        Dim q As Integer
        A(0) = 1
        A(1) = 2
        A(2) = 3
        A(3) = 4
        A(4) = 5
 
        Label1.Text = String.Empty
        For q = 0 To 4
 
            Label1.Text += CStr(A(q)) + vbCrLf
 
        Next q
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim A() As Object
        Dim z, q As Integer
 
        z = Val(InputBox("Введите размерность n", ))
        ReDim A(z)
 
        For q = 0 To z
            A(q) = Val(InputBox("Введите число в массив, размерностью " + CStr(z), ))
        Next q
 
        Label1.Text = String.Empty
        For q = 0 To z
            Label1.Text += CStr(A(q)) + vbCrLf
        Next q
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim A() As Object
        Dim z, q As Integer
        Dim r As New Random
        z = Val(InputBox("Введите размерность n", ))
        ReDim A(z)
      
 
 
        Label1.Text = String.Empty
        For q = 0 To z
            A(z) = r.Next(-100, 100)
            Label1.Text += CStr(A(z)) + vbCrLf
        Next q
 
    End Sub
 
 
End Class

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

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