Контакты

Случайная статья

Лабораторная работа № 3

Лабораторная работа № 3

Тескт программы:

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Случайные числа"

ComboBox1.AddItem "Ввод с клавиатуры"

End Sub

Private Sub CommandButton1_Click()

n = Int(TextBox1.Text)

m = Int(TextBox2.Text)

l = Int(TextBox3.Text)

ReDim a(n), b(m), c(l)

Dim t As String

Rem Ввод массива

Select Case ComboBox1.ListIndex

Case 0

Call vvod_rnd(a())

Call stroka(a(), t$)

TextBox4.Text = t$

Call vvod_rnd(b())

Call stroka(b(), t$)

TextBox5.Text = t$

Call vvod_rnd(c())

Call stroka(c(), t$)

TextBox6.Text = t$

Case 1

Call vvod(a())

Call stroka(a(), t$)

TextBox4.Text = t$

Call vvod(b())

Call stroka(b(), t$)

TextBox5.Text = t$

Call vvod(c())

Call stroka(c(), t$)

TextBox6.Text = t$

End Select

Rem Произведение элементов с нечетными индексами

p_a = p_el(a())

TextBox7.Text = CStr(p_a)

p_b = p_el(b())

TextBox8.Text = CStr(p_b)

p_c = p_el(c())

TextBox9.Text = CStr(p_c)

Rem замена

Call zamena(a(), p_a, k_a)

Call stroka(a(), t$)

TextBox10.Text = t$

TextBox13.Text = CStr(k_a)

Call zamena(b(), p_b, k_b)

Call stroka(b(), t$)

TextBox11.Text = t$

TextBox14.Text = CStr(k_b)

Call zamena(c(), p_c, k_c)

Call stroka(c(), t$)

TextBox12.Text = t$

TextBox15.Text = CStr(k_c)

End Sub

Private Sub CommandButton2_Click()

End

End Sub

Function p_el(z())

p_el = 1

For i = 1 To UBound(z) Step 2

p_el = p_el * z(i)

Next i

End Function

Sub zamena(z(), p_z, k_z)

k_z = 0

For i = 1 To UBound(z)

If z(i) < 0 Then z(i) = z(i) + p_z: k_z = k_z + 1

Next i

End Sub

Sub vvod_rnd(z())

For i = 1 To UBound(z)

z(i) = Int(-50 + 100 * Rnd())

Next i

End Sub

Sub vvod(z())

For i = 1 To UBound(z)

r = Str(i)

y = InputBox("элемент массива (" + r + ")=", "Ввод значений элементов")

z(i) = Val(y)

Next i

End Sub

Sub stroka(z, w$)

w$ = " "

For i = 1 To UBound(z)

w$ = w$ + Str(z(i)) + " "

Next i

End Sub

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.