Федеральное государственное образовательное бюджетное
учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
Изучение Visual Basic 10 в среде Visual Studio net
Выполнил:
студент группы
БАП 1651
Рыжков Даниил
МОСКВА 2016 г.
Федеральное государственное образовательное бюджетное
учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.2.
ПО ТЕМЕ
Структура VB-программ, процедуры и средства программирования алгоритмов линейной структуры.
Выполнил:
студент группы
БАП1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема алгоритма
Код программы:
Option Strict On
Imports System.Math
Public Class Form4
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim k As Integer
Dim l As Integer
Dim f As Double
Dim y As Double
Dim x As Double
Dim i As Single
Dim k2 As Integer
Dim s1 As String
Dim s2 As String
x = CDbl(Val(TextBox1.Text))
y = CDbl(Val(TextBox2.Text))
f = CDbl(((PI / 3) + Log10(x ^ 3)) / (3 * y - x)) + x * Sin(y ^ 2)
i = CSng(f)
k2 = CInt(f)
l = CInt(Int(f))
k = CInt(Fix(f))
s1 = CStr(f)
s2 = CStr(i)
TextBox3.Text = CStr(f)
TextBox4.Text = CStr(l)
TextBox5.Text = CStr(k)
TextBox6.Text = CStr(i)
TextBox7.Text = CStr(k2)
TextBox8.Text = CStr(f + i)
TextBox9.Text = CStr(s1 + " + " & s2)
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Федеральное государственное образовательное бюджетное
учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.3.
ПО ТЕМЕ
Программирование алгоритмов разветвляющихся структур. Вычисление условных выражений.
Выполнил:
студент группы
БАП 1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема алгоритма:
Код программы:
Option Strict On
Option Explicit On