Windows приложение в Visual Basic: опрос-шутка

 

Федеральное государственное  бюджетное образовательное учреждение высшего профессионального образования

“Нижегородский государственный архитектурно-строительный университет”

 

 

 

Кафедра информационных систем и технологий

 

 

 

 

 

Лабораторная работа по информатике № 2

Вариант 1.

1,2,3 Уровни.

 

 

 

 

Выполнила: студентка гр.1318                                                                     Н.С.Семенова

Проверила:                                                                                                        Т.В.Егорова

 

 

 

 

 

Нижний Новгород

2013г.

 

Содержание:

Задание……………………………………………………………….3

Блок-схема……………………………………………………………4

Код программы……………………………………………………….5

Пример работы программы………………………………………….6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задание:

Вариант 1

1,2,3 уровени.

Тема: Windows приложение в Visual Basic: опрос-шутка.

Цель работы: познакомиться  с  некоторыми  возможностями  работы  с  мышью  и диалоговыми окнами.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Код программы:

Private Sub Button1_Click(sender As System.Object, e As System. EventArgs) Handles Button1.Click

MessageBox.Show(“Мы рады, что вы считаете, что в повышении размера стипендии необходимости нет!”,”Благодарим вас за участии в опросе”)

End Sub

Private Sub Button3_Click(sender As System.Object, e As System. EventArgs) Handles Button3.Click

Application.Exit()

End Sub

Private Sub Form1_Load(sender As System.Object, e, As System.EventArgs) Handles MyBase. Load

End Sub

Private Sub Button2_MouseMove(sender As System. Object, e As System. Windows.Forms.MousEventArgs) Handles Button2.MouseMove

Dim x, y As Single

x=Rnd()

y=Rnd()

Button2.Location=New Point(x*(Me.Width*0.9-Button2.Width), y*(Me.Height*0.9-Button2.Height))

End Sub

Private Sub Button1_MouseHover(sender As System.Object, e As System.EventArgs)Handles Button1.MouseHover

Button1.Sire=New Sire(150,78)

End Sub

Private Sub Button1_MouseLeave(sender As System.Object, e As System.EventArgs)Handles Button1.MouseLeave

Button1.Sire=New Sire(75,39)

End Sub

End Class

Private Sub Button1_MouseHover(sender As System.Object, e As System.EventArgs)Handles Button1.MouseHover

Button1.Sire=New Sire(75,37)

End Sub

Private Sub Button2_MouseHover(sender As System.Object, e As System.EventArgs)Handles Button2.MouseLeave

Dim x,y As Single

x= 289

y=122

Button2.Location=New Point(x,y)

End Sub

End Class

3 уровень

Public Class Form1

Public num=0

Private Sub Button1_Click(sender As System.Object, e As System. EventArgs) Handles Button1.Click

MessageBox.Show(“Мы рады, что вы считаете, что в повышении размера стипендии необходимости нет!”,”Благодарим вас за участии в опросе”)

End Sub

 

Private Sub Button3_Click(sender As System.Object, e As System. EventArgs) Handles Button3.Click

Application.Exit()

End Sub

 

Private Sub Form1_Load(sender As System.Object, e, As System.EventArgs) Handles MyBase. Load

End Sub

 

Private Sub Button2_MouseMove(sender As System. Object, e As System. Windows.Forms.MousEventArgs) Handles Button2.MouseMove

Dim x, y As Single

x=Rnd()

y=Rnd()

Button2.Location=New Point(x*(Me.Width*0.9-Button2.Width), y*(Me.Height*0.9-Button2.Height))

num=num+1

If num <2 Then

 

End Sub

 

Private Sub Button1_MouseHover(sender As System.Object, e As System.EventArgs)Handles Button1.MouseHover

Button1.Sire=New Sire(150,78)

End Sub

 

Private Sub Button1_MouseLeave(sender As System.Object, e As System.EventArgs)Handles Button1.MouseLeave

Button1.Sire=New Sire(75,39)

End Sub

End Class

 

Private Sub Button1_MouseHover(sender As System.Object, e As System.EventArgs)Handles Button1.MouseHover

Button1.Sire=New Sire(75,37)

End Sub

 

Private Sub Button2_MouseHover(sender As System.Object, e As System.EventArgs)Handles Button2.MouseLeave

Dim x,y As Single

x= 289

y=122

Button2.Location=New Point(x,y)

End Sub

End Class

 

 

 

 

 

 

 

 

 

 

 

 

 

Пример работы программы: