Код событийной процедуры заполнения числового массива целыми случайными числами:
Dim bytI, bytA(0 To 10) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Randomize()
For bytI = 1 To 10
bytA(bytI) = Int(Rnd() * 10)
TextBox1.Text = TextBox1.Text + _____
Next bytI
End Sub
Введите пропущенное выражение (без пробелов).
Код событийной процедуры заполнения числового массива целыми случайными числами:
Dim bytI, bytA(0 To 10) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Randomize()
For bytI = 1 To 10
bytA(bytI) = Int(Rnd() * 10)
TextBox1.Text = TextBox1.Text + _____
Next bytI
End Sub
Введите пропущенное выражение (без пробелов).
Код событийной процедуры заполнения числового массива целыми случайными числами:
Dim bytI, bytA(0 To 10) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Randomize()
For bytI = 1 To 10
bytA(bytI) = Int(Rnd() * 10)
TextBox1.Text = TextBox1.Text + _____
Next bytI
End Sub
Введите пропущенное выражение (без пробелов).
Код событийной процедуры заполнения числового массива целыми случайными числами:
Dim bytI, bytA(0 To 10) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Randomize()
For bytI = 1 To 10
bytA(bytI) = Int(Rnd() * 10)
TextBox1.Text = TextBox1.Text + _____
Next bytI
End Sub
Введите пропущенное выражение (без пробелов).
Код событийной процедуры заполнения числового массива целыми случайными числами:
Dim bytI, bytA(0 To 10) As Byte
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Randomize()
For bytI = 1 To 10
bytA(bytI) = Int(Rnd() * 10)
TextBox1.Text = TextBox1.Text + _____
Next bytI
End Sub
Введите пропущенное выражение (без пробелов).
Код событийной процедуры поиска максимального элемента числового массива и его индекса:
Dim bytI, bytA(0 To 10), bytMax, bytN As Byte
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bytMax = bytA(1)
bytN = 1
For bytI = 2 To 10
If bytA(bytI) > bytMax Then bytMax = _____ : bytN = …
Next bytI
TextBox2.Text = Str(bytMax)
TextBox3.Text = Str(bytN)
End Sub
Введите выражение (без пробелов), вычисляющее значение bytMax (максимальное значение числового массива).
Код событийной процедуры поиска максимального элемента числового массива и его индекса:
Dim bytI, bytA(0 To 10), bytMax, bytN As Byte
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bytMax = bytA(1)
bytN = 1
For bytI = 2 To 10
If bytA(bytI) > bytMax Then bytMax = … : bytN = _____
Next bytI
TextBox2.Text = Str(bytMax)
TextBox3.Text = Str(bytN)
End Sub
Введите выражение (без пробелов), вычисляющее значение bytN (индекс максимального элемента числового массива).
Код событийной процедуры поиска среднего значения элементов числового массива:
Dim bytI, bytA(0 To 10) As Integer
Dim Sum As Double
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Sum = _____
For bytI = 1 To 10
Sum = Sum + bytA(bytI)
Next bytI
TextBox2.Text = …
End Sub
Введите выражение (без пробелов), устанавливающее начальное значение переменной Sum (сумма элементов числового массива).
Код событийной процедуры поиска среднего значения элементов числового массива:
Dim bytI, bytA(0 To 10) As Integer
Dim Sum As Double
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Sum = …
For bytI = 1 To 10
Sum = Sum + bytA(bytI)
Next bytI
TextBox2.Text = _____
End Sub
Введите выражение (без пробелов), вычисляющее значение TextBox2.Text (среднее значение элементов числового массива).
Код событийной процедуры поиска суммы и произведения первого и последнего элементов числового массива:
Dim bytI, bytA(0 To 10), Sum, Pr As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Sum = bytA(1) + bytA(10)
Pr = bytA(1) * bytA(10)
TextBox2.Text = _____
TextBox3.Text = …
End Sub
Введите выражение (без пробелов), вычисляющее значение TextBox2.Text (сумма первого и последнего элементов числового массива).
Код событийной процедуры поиска суммы и произведения первого и последнего элементов числового массива:
Dim bytI, bytA(0 To 10), Sum, Pr As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Sum = bytA(1) + bytA(10)
Pr = bytA(1) * bytA(10)
TextBox2.Text = …
TextBox3.Text = _____
End Sub
Введите выражение (без пробелов), вычисляющее значение TextBox3.Text (произведение первого и последнего элементов числового массива).
Код событийной процедуры поиска суммы и произведения элементов числового массива:
Dim bytI, bytA(0 To 10), Sum, Pr As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Sum = _____
Pr = …
For bytI = 1 To 10
Sum = Sum + bytA(bytI)
Pr = Pr * bytA(bytI)
Next bytI
TextBox2.Text = Str(Sum)
TextBox3.Text = Str(Pr)
End Sub
Введите выражение (без пробелов), устанавливающее начальное значение переменной Sum (сумма элементов числового массива).
Код событийной процедуры поиска суммы и произведения элементов числового массива:
Dim bytI, bytA(0 To 10), Sum, Pr As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Sum = …
Pr = _____
For bytI = 1 To 10
Sum = Sum + bytA(bytI)
Pr = Pr * bytA(bytI)
Next bytI
TextBox2.Text = Str(Sum)
TextBox3.Text = Str(Pr)
End Sub
Введите выражение (без пробелов), устанавливающее начальное значение переменной Pr (произведение элементов числового массива).
Код событийной процедуры поиска суммы минимального и максимального элементов числового массива:
Dim bytI, bytA(0 To 10), bytMin, bytMax As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bytMin = bytA(1)
bytMax = bytA(1)
For bytI = 2 To 10
If bytA(bytI) < bytMin Then bytMin = _____
If bytA(bytI) > bytMax Then bytMax = …
Next bytI
TextBox2.Text = Str(bytMin + bytMax)
End Sub
Введите выражение (без пробелов), вычисляющее значение bytMin (минимальный элемент числового массива).
Код событийной процедуры поиска суммы минимального и максимального элементов числового массива:
Dim bytI, bytA(0 To 10), bytMin, bytMax As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bytMin = bytA(1)
bytMax = bytA(1)
For bytI = 2 To 10
If bytA(bytI) < bytMin Then bytMin = …
If bytA(bytI) > bytMax Then bytMax = _____
Next bytI
TextBox2.Text = Str(bytMin + bytMax)
End Sub
Введите выражение (без пробелов), вычисляющее значение bytMax (максимальный элемент числового массива).
В Visual Basic для объявления переменной используют оператор
В Visual Basic для выделения целой части числа используется функция
В Visual Basic для генерации последовательности целых случайных чисел используется функция
В Visual Basic для преобразования числа в строковую форму используется функция
Укажите соответствие между типом данных и его описанием.
