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

Автор работы: Пользователь скрыл имя, 19 Декабря 2013 в 07:40, лабораторная работа

Краткое описание

Цель работы: познакомиться с некоторыми возможностями работы с мышью и диалоговыми окнами.
Код программы:
Private Sub Button1_Click(sender As System.Object, e As System. EventArgs) Handles Button1.Click
MessageBox.Show(“Мы рады, что вы считаете, что в повышении размера стипендии необходимости нет!”,”Благодарим вас за участии в опросе”)

Содержание

Задание……………………………………………………………….3
Блок-схема……………………………………………………………4
Код программы……………………………………………………….5
Пример работы программы………………………………………….6

Прикрепленные файлы: 1 файл

2laba (1).docx

— 320.16 Кб (Скачать документ)

 

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

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

 

 

 

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

 

 

 

 

 

Лабораторная работа по информатике № 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


 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


Информация о работе Windows приложение в Visual Basic: опрос-шутка