Список вопросов базы знанийИнформационные технологии в туристской индустрииВопрос id:1260431 Код событийной процедуры перемещения надписи в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = Label1.Size val2 = Me.Size val.X = ___ val.Y = … Label1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260432 Код событийной процедуры перемещения надписи в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = Label1.Size val2 = Me.Size val.X = … val.Y = ___ Label1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y Вопрос id:1260433 Код событийной процедуры перемещения надписи в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = Label1.Size val2 = Me.Size val.X = ___ val.Y = … Label1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260434 Код событийной процедуры перемещения надписи в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = Label1.Size val2 = Me.Size val.X = … val.Y = ___ Label1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260435 Код событийной процедуры перемещения переключателя в левый верхний угол формы: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim val As Point val.X = ___ val.Y = … RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X Вопрос id:1260436 Код событийной процедуры перемещения переключателя в левый верхний угол формы: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim val As Point val.X = … val.Y = ___ RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y Вопрос id:1260437 Код событийной процедуры перемещения переключателя в левый нижний угол формы: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim val, val1, val2 As Point val1 = RadioButton1.Size val2 = Me.Size val.X = ___ val.Y = … RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X Вопрос id:1260438 Код событийной процедуры перемещения переключателя в левый нижний угол формы: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim val, val1, val2 As Point val1 = RadioButton1.Size val2 = Me.Size val.X = … val.Y = ___ RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260439 Код событийной процедуры перемещения переключателя в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = RadioButton1.Size val2 = Me.Size val.X = ___ val.Y = … RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260440 Код событийной процедуры перемещения переключателя в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = RadioButton1.Size val2 = Me.Size val.X = … val.Y = ___ RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y Вопрос id:1260441 Код событийной процедуры перемещения переключателя в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = RadioButton1.Size val2 = Me.Size val.X = … val.Y = ___ RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260442 Код событийной процедуры перемещения правой верхней кнопки в центр формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = Button2.Size val2 = Me.Size val.X = ___ val.Y = … Button2.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val2 Вопрос id:1260443 Код событийной процедуры перемещения правой верхней кнопки в центр формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = Button2.Size val2 = Me.Size val.X = … val.Y = ___ Button2.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260444 Код событийной процедуры перемещения правой нижней кнопки в центр формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = Button4.Size val2 = Me.Size val.X = ___ val.Y = … Button4.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val2 Вопрос id:1260445 Код событийной процедуры перемещения списка в левый верхний угол формы: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim val As Point val.X = ___ val.Y = … ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X Вопрос id:1260446 Код событийной процедуры перемещения списка в левый верхний угол формы: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim val As Point val.X = … val.Y = ___ ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y Вопрос id:1260447 Код событийной процедуры перемещения списка в левый нижний угол формы: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim val, val1, val2 As Point val1 = ListBox1.Size val2 = Me.Size val.X = ___ val.Y = … ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X Вопрос id:1260448 Код событийной процедуры перемещения списка в левый нижний угол формы: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim val, val1, val2 As Point val1 = ListBox1.Size val2 = Me.Size val.X = … val.Y = ___ ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260449 Код событийной процедуры перемещения списка в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = ListBox1.Size val2 = Me.Size val.X = ___ val.Y = … ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260450 Код событийной процедуры перемещения списка в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = ListBox1.Size val2 = Me.Size val.X = … val.Y = ___ ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y Вопрос id:1260451 Код событийной процедуры перемещения списка в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = ListBox1.Size val2 = Me.Size val.X = ___ val.Y = … ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260452 Код событийной процедуры перемещения списка в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = ListBox1.Size val2 = Me.Size val.X = … val.Y = ___ ListBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260453 Код событийной процедуры перемещения текстового поля в левый верхний угол формы: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim val As Point val.X = ___ val.Y = … TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X Вопрос id:1260454 Код событийной процедуры перемещения текстового поля в левый верхний угол формы: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim val As Point val.X = … val.Y = ___ TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y Вопрос id:1260455 Код событийной процедуры перемещения текстового поля в левый нижний угол формы: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim val, val1, val2 As Point val1 = TextBox1.Size val2 = Me.Size val.X = ___ val.Y = … TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X Вопрос id:1260456 Код событийной процедуры перемещения текстового поля в левый нижний угол формы: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim val, val1, val2 As Point val1 = TextBox1.Size val2 = Me.Size val.X = … val.Y = ___ TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260457 Код событийной процедуры перемещения текстового поля в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = TextBox1.Size val2 = Me.Size val.X = ___ val.Y = … TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260458 Код событийной процедуры перемещения текстового поля в правый верхний угол формы: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim val, val1, val2 As Point val1 = TextBox1.Size val2 = Me.Size val.X = … val.Y = ___ TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y Вопрос id:1260459 Код событийной процедуры перемещения текстового поля в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = TextBox1.Size val2 = Me.Size val.X = ___ val.Y = … TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260460 Код событийной процедуры перемещения текстового поля в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = TextBox1.Size val2 = Me.Size val.X = … val.Y = ___ TextBox1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260461 Код событийной процедуры перемещения формы в левый нижний угол экрана монитора для Проекта 1 «Расположение формы»: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = Me.Size val2 = My.Computer.Screen.WorkingArea.Size val.X = ___ val.Y = … Me.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X Вопрос id:1260462 Код событийной процедуры перемещения формы в левый нижний угол экрана монитора для Проекта 1 «Расположение формы»: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = Me.Size val2 = My.Computer.Screen.WorkingArea.Size val.X = … val.Y = ___ Me.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260463 Код событийной процедуры перемещения формы в правый нижний угол экрана монитора для Проекта 1 «Расположение формы»: Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim val, val1, val2 As Point val1 = Me.Size val2 = My.Computer.Screen.WorkingArea.Size val.X = ___ val.Y = … Me.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260464 Код событийной процедуры перемещения формы в правый нижний угол экрана монитора для Проекта 1 «Расположение формы»: Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim val, val1, val2 As Point val1 = Me.Size val2 = My.Computer.Screen.WorkingArea.Size val.X = … val.Y = ___ Me.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260465 Код событийной процедуры перемещения переключателя в правый нижний угол формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = RadioButton1.Size val2 = Me.Size val.X = ___ val.Y = … RadioButton1.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2 Вопрос id:1260466 Код событийной процедуры перемещения правой нижней кнопки в центр формы: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim val, val1, val2 As Point val1 = Button4.Size val2 = Me.Size val.X = … val.Y = ___ Button4.Location = val End Sub Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2 Вопрос id:1260467 В Microsoft Visual Basic 2005 Express Edition окно Конструктор форм вызывается командой ?) View- Properties ?) View-Designer ?) View-Form ?) View-Code Вопрос id:1260468 Из перечисленного примерами событий являются: ?) Size ?) Resize ?) Click ?) Load ?) Location Вопрос id:1260469 Из перечисленного управляющими элементами являются: ?) Code ?) Button ?) View ?) TextBox ?) Label Вопрос id:1260470 Точное местоположение управляющих элементов отображаются двумя парами чисел: ?) Load ?) Size ?) Resize ?) Location Вопрос id:1260471 Укажите соответствие между названием окна интегрированной среды программирования Microsoft Visual Basic 2005 и его назначением
Вопрос id:1260472 Код событийной процедуры заполнения числового массива целыми случайными числами: Dim bytI, bytA(0 To 10) As IntegerPrivate 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 Введите пропущенное выражение (без пробелов). Вопрос id:1260474 Код событийной процедуры поиска максимального элемента числового массива и его индекса: 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 (максимальное значение числового массива). Вопрос id:1260475 Код событийной процедуры поиска максимального элемента числового массива и его индекса: 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 (индекс максимального элемента числового массива). Вопрос id:1260476 Код событийной процедуры поиска среднего значения элементов числового массива: 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 (сумма элементов числового массива). Вопрос id:1260477 Код событийной процедуры поиска среднего значения элементов числового массива: 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 (среднее значение элементов числового массива). Вопрос id:1260478 Код событийной процедуры поиска суммы и произведения первого и последнего элементов числового массива: 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 (сумма первого и последнего элементов числового массива). Вопрос id:1260479 Код событийной процедуры поиска суммы и произведения первого и последнего элементов числового массива: 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 (произведение первого и последнего элементов числового массива). Вопрос id:1260480 Код событийной процедуры поиска суммы и произведения элементов числового массива: 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 (сумма элементов числового массива). Вопрос id:1260481 Код событийной процедуры поиска суммы и произведения элементов числового массива: 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 (произведение элементов числового массива). |