Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Лабораторная работа №6

Читайте также:
  1. A. Работа была выполнена к 6 часам. \ Жұмыс сағат 6-ға таман орындалды.
  2. FSA - Серийный или доработанный легковой автомобиль отечественного или иностранного производства без ограничения. Объем двигателя: от 2000 до 3000 куб.см. включительно.
  3. FSB – Серийный или доработанный серийный легковой автомобиль отечественного или иностранного производства без ограничения. Объём двигателя: от 2300 до 3500 куб.см. включительно.
  4. I РАБОТА И ОТРЕЧЕНИЕ.
  5. II. Самостоятельная работа (повторение) по вопросам темы № 11 «Множественность преступлений».
  6. IV. Лабораторная диагностика псевдотуберкулеза и кишечного иерсиниоза у людей
  7. Run on - работать на

По дисциплине «Информатика»
по теме «Интерактивные приложения в Visual Basic.»

Выполнил:

Студент 1 курса гр. 1205

________________________ Герасимов К.А.
(подпись)

Преподаватель

________________________
(подпись)

Н.Новгород
2012

Цель работы: Создание Windows-приложений в среде Visual Basic 2005. Знакомство со средой Visual Basic 2005. Приобретение навыков проектирования графического интерфейса.

Входные данные:

.

Эскиз интерактивной формы:

 

 

Текст программы:

Public Class Form1

 

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

TextBox1.Text = ""

TextBox2.Text = ""

Label4.Text = ""

End Sub

 

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

Dim a, b, x, z, y As Double

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

x = 2 * Math.Cos(37 * Math.PI / 180) + Math.Asin(0.8)

z = (a - 2.7) ^ 2 - Math.Log(b + 10)

y = (x / z) * b ^ (1 / 3) - Math.Sqrt(a - 2.7) + 3.67

Label4.Text = CStr(y)

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Application.Exit()

End Sub

 

End Class

4.Результат:

 

Вывод: Научился создавать Windows-приложения в среде Visual Basic и приобрёл навыки проектирования графического интерфейса.


Дата добавления: 2015-11-14; просмотров: 42 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Жирное – верный ответ| Теоретические сведения

mybiblioteka.su - 2015-2024 год. (0.005 сек.)