Заполнить массив тремя способами - 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