Создать одномерный массив с рандомными значениями, чтобы его значения выводились на оси X - VB

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

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

Ребят, помогите, пожалуйста! мой друг, не очень умный, горит на экзамене с задачей, а Я в бэйсике не шарю нужно сделать одномерный массив с рандомными значениями , чтобы его значения выводились на оси х

Решение задачи: «Создать одномерный массив с рандомными значениями, чтобы его значения выводились на оси X»

textual
Листинг программы
Private Sub Command1_Click()
    Dim A() As Integer, min As Integer, max As Integer, n As Integer, i As Integer
    Picture1.DrawWidth = 1: Picture1.ForeColor = 0
    Picture1.AutoRedraw = True
    Picture1.Cls
    Randomize
    n = Val(InputBox("Размер массива", "Размер", 10))
    min = Val(InputBox("Минимальне значение массива", "Min", 1))
    max = Val(InputBox("Максимальное значение массива", "Max", 10))
    Picture1.Scale (min - 1, 30)-(max + 1, -30)
    Picture1.CurrentY = 28: Picture1.CurrentX = min - 1
    ReDim A(1 To n)
    For i = 1 To n
         A(i) = Int((max - min + 1) * Rnd + min)
         Picture1.Print A(i) & ";  ";
    Next i
    Picture1.Line (min - 1, 0)-(max + 1, 0)
    Picture1.DrawWidth = 3
    For i = 1 To n
          Picture1.ForeColor = 255
          Picture1.Line (A(i), 1)-(A(i), -1)
          Picture1.ForeColor = vbBlue
          Picture1.Print A(i)
    Next i
End Sub

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

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