End Sub. 8. Разберитесь в приведенном ниже коде обработчика события Click для кнопки «Заполнение массива», а затем наберите его:

 

8. Разберитесь в приведенном ниже коде обработчика события Click для кнопки «Заполнение массива», а затем наберите его:

Private Sub cmdЗаполнение_Click()

Label2.Visible = True

txtМассив.Visible = True

cmdОчистка.Enabled = True

cmdMax.Enabled = True

cmdMin.Enabled = True

cmdSrednee.Enabled = True

cmdSum.Enabled = True

cmdVozr.Enabled = True

cmdUbiv.Enabled = True

n = Val(txtN.Text) ' количество элементов массива

ReDim a(1 To n) 'переопределение массива

Select Case cboСпособ.ListIndex 'выбрать действия в зависимости от значения списка

Case 0 'если выбран пункт "Ввод с клавиатуры", то

txtМассив.Text = ""

For i = 1 To n

k = InputBox("Введите " + Str(i) + " число", "Заполнение массива")

a(i) = Val(k)

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Next i

Case 1 'если выбран пункт "Случайные числа", то

txtМассив.Text = ""

Randomize Timer

For i = 1 To n

If chkЦелые.Value = 1 Then

a(i) = Int(101 * Rnd())

Else

a(i) = 101 * Rnd()

End If

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Next i

Case 2 'если выбран пункт "Случайные числа в указанном диапазоне", то

txtМассив.Text = ""

x = Val(txtX.Text)

y = Val(txtY.Text)

Randomize Timer

For i = 1 Ton

If chkЦелые.Value = 1 Then

a(i) = Int((Rnd() * (y - x + 1) + x))

Else

a(i) = Rnd() * ((y - x + 1) + x)

End If

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Next i








Дата добавления: 2015-06-12; просмотров: 576;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.