2 лаба

Федеральное агентство связи

Ордена Трудового Красного Знамени

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

«Московский Технический Университет Связи и Информатики»

(МТУСИ)

Кафедра Информатики

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

Тема:

«Основные средства языка программирования VB .NET. Типы данных»

Вариант 00

Выполнил:

Великий студент

-----

Москва 0000

3) Задание на разработку проектов и вариант задания.

4) Формализация и уточнение задания: запись арифметических выражений по правилам VB, соответствующих заданным математическим формулам.

5.1)

5.2)схема алгоритма

5.3.1)проект

Imports System.Math

Public Class Form1

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

Dim x, y, h, q, n As Double, k As Single, l As Integer

Dim s, s1 As String

x = TextBox1.Text

y = TextBox2.Text

h = (208 * Log10(x) + x ^ 2) / (Abs(x - y ^ 2) - Exp(-y))

k = h

l = h

q = Fix(h)

n = Int(h)

s1 = q

s = n

TextBox3.Text = h

TextBox4.Text = k

TextBox5.Text = l

TextBox6.Text = q

TextBox7.Text = n

TextBox8.Text = s1 + s

TextBox9.Text = n + q

End Sub

End Class

5.3.2) проект

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form1

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

Dim x, y, h, q, n As Double, k As Single, l As Integer

Dim s, s1 As String

x = Val(TextBox1.Text)

y = Val(TextBox2.Text)

h = (208 * Log10(x) + x ^ 2) / (Abs(x - y ^ 2) - Exp(-y))

k = CSng(h)

l = CInt(h)

q = Fix(h)

n = Int(h)

s1 = CStr(q)

s = CStr(n)

TextBox3.Text = CStr(h)

TextBox4.Text = CStr(k)

TextBox5.Text = CStr(l)

TextBox6.Text = CStr(q)

TextBox7.Text = CStr(n)

TextBox8.Text = s1 + s

TextBox9.Text = CStr(n + q)

End Sub

End Class

6)результат работы

7)проверка результатов