Создать одномерный массив с рандомными значениями, чтобы его значения выводились на оси 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д