воскресенье, 22 июня 2014 г.

Переменные и методы Visual basic


      Какие действия выполнит программа?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Width += 100
Me.Height += 100
Button2.Visible = True
Button1.Visible = False
End Sub







      Какие действия выполнит программа?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Top -= 10
Button2.Left += 10
End Sub




       Какие действия выполнит программа?
 If Button1.Text = "а" Then
    TextBox1.Text += "а"
 ElseIf Button2.BackColor = Color.Red Then
    TextBox1.Text = "а"
 End If






      Исправь ошибки в коде
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim x New Form2
       x = Form
       x.Show()
End Sub




      Исправь ошибки в коде
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
   If TextBox.Text = "синий"
            BackColor = Color.Blue
            ForeColor = Color.White
            Button1=ForeColor.Black
   End If



      Какое действие для элемента Button выполнит свойство TabIndex?
a) Задаст уровень видимости элемента клавишей TAB для данного элемента
b) Укажет возможность переключения фокуса клавишей TAB для данного элемента
c) Задаст индекс порядка переключения клавишей TAB для данного элемента




      Какое действие для элемента MenuStrip выполнит свойство Dock?
a) Определит возможность автоматического изменения размера элемента в соответствии с содержимым
b) Позволит выбрать границы, которые будут привязаны к форме для данного элемента
c) Определит можно ли перемещать элемент или изменять его размеры
d)  Указывает включение или отключение элемента




      Допишите код программы, так чтобы после нажатия клавиши Escape открывалось окно MsgBox, с сообщением «Программа закрывается», появлялись кнопки Button2 (надпись «Да») и Button3 (надпись «Нет»). После нажатия на Button2 программа должна закрыться
   Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
        If e.KeyValue Then
         






 
        End If
    End Sub

      Исправьте код программы и объясните ошибку
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start("D:\игры\картинки\картинка\картинка 1)
    End Sub





      Напишите код программы. Задача программы: нажатие на кнопку Button1 перемещает OvalShape1 влево на 10 пикселей, нажатие на кнопку Button2 перемещает OvalShape1 вправо на 10 пикселей, нажатие на кнопку Button3 перемещает OvalShape1 вверх на 10 пикселей, нажатие на кнопку Button4 перемещает OvalShape1 вниз на 10 пикселей. Нажатие на клавишу  +, при активной кнопке Button1 увеличивает размер программы на 50 пикселей.