Введение 8 Этапы создания Windowsприложения 8

• Название: Введение 8 Этапы создания Windowsприложения 8
• Анкор: Visual Basic 2005 (word97).doc
• Дата: 22.12.2017
• Размер: 6.98 Mb.
• Имя файла: Visual Basic 2005 (word97).doc
• Тип: Реферат; #12532
• страница: 52 из 63

Приложение 1

Поменять местами значения двух переменных с использованием третьей.

Dim a, b, c As Integer

a = Val(txtA.Text)

b = Val(txtB.Text)

c = a

a = b

b = c

txtA.Text = Str(a)

txtB.Text = Str(b)

Приложение 2

Треугольник задан длинами сторон. Вычислить площадь треугольника.

Dim a, b, c, p, s As Single

a = Val(txtA.Text)

b = Val(txtB.Text)

c = Val(txtC.Text)

p = (a + b + c) / 2

s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))

txtS.Text = Str(s)

Приложение 3

Дано четырехзначное число с двумя цифрами после запятой. В окно списка вывести цифры этого числа.

Dim chislo As Single

Dim c1, c2, c3, c4, d1, d2 As Byte

Dim celoe, drobnoe As Integer

lstResult.Items.Clear()

chislo = Val(InputBox("Введите четырехзначное число с двумя цифрами после запятой"))

lstResult.Items.Add("Исходное число:" + Str(chislo))

celoe = Math.Truncate(chislo)

drobnoe = Math.Round((chislo - celoe) * 100)

lstResult.Items.Add("Целая часть числа:" + Str(celoe))

lstResult.Items.Add("Цифры целой части")

c4 = celoe Mod 10

celoe \= 10

c3 = celoe Mod 10

celoe \= 10

c2 = celoe Mod 10

c1 = celoe \ 10

lstResult.Items.Add(Str(c1))

lstResult.Items.Add(Str(c2))

lstResult.Items.Add(Str(c3))

lstResult.Items.Add(Str(c4))

lstResult.Items.Add("Дробная часть числа:" + Str(drobnoe))

lstResult.Items.Add("Цифры дробной части")

d2 = drobnoe Mod 10

d1 = drobnoe \ 10

lstResult.Items.Add(Str(d1))

lstResult.Items.Add(Str(d2))

Приложение 4

Вычисление модуля рационального числа с использованием различных видов условных переходов и условных операторов.

Dim a, b As Single

a = Val(InputBox("введите исходное число"))

'Одинарный условный переход, однострочный условный оператор

b = a

If a < 0 Then b = -a

MsgBox("Одинарный условный переход, однострочный условный оператор" + vbNewLine + "b=" + Str(b))

'Добавление константы vbNewLine позволяет перенести текст сообщения на другую строку
'Одинарный условный переход, многострочный условный оператор

b = a

If a < 0 Then

b = -a

End If

MsgBox("Одинарный условный переход, многострочный условный оператор" + vbNewLine + "b=" + Str(b))
'Двойной условный переход, однострочный условный оператор

If a >= 0 Then b = a Else b = -a

MsgBox("Двойной условный переход, однострочный условный оператор" + vbNewLine + "b=" + Str(b))
'Двойной условный переход, многострочный условный оператор

If a >= 0 Then

b = a

Else

b = -a

End If

MsgBox("Двойной условный переход, многострочный условный оператор" + vbNewLine + "b=" + Str(b))

Приложение 5

Вычислить значение функции в точке x, заданной пользователем.



Dim x, y As Single

x = Val(InputBox("Введите значение переменной х"))

If x = 0 Then

MsgBox("Функция не определена")

ElseIf x < -10 Then

y = 2 * x

MsgBox("y=" + Str(y))

ElseIf x < -1 Then

y = x

MsgBox("y=" + Str(y))

ElseIf x <= 1 Then

y = 1 / x

MsgBox("y=" + Str(y))

Else

y = x ^ 2

MsgBox("y=" + Str(y))

End If

Приложение 6

Составьте программу, которая для заданного числа выводит его характеристику: ноль, однозначное четное, однозначное нечетное, от 10 до 20, больше 20, отрицательное.

Dim a As Integer

a = Val(InputBox("Введите число"))

Select Case a

Case 0

MsgBox("Ноль")

Case 2, 4, 6, 8

MsgBox("Однозначное четное")

Case 1, 3, 5, 7, 9

MsgBox("Однозначное нечетное")

Case Is < 0

MsgBox("Отрицательное")

Case 10 To 20

MsgBox("От 10 до 20")

Case Else

MsgBox("Больше 20")

End Select

Приложение 7

Составьте программу, определяющую, какое из трех введенных чисел равно пяти. Предполагается, что все три введенных числа различны.

Dim a, b, c As Integer

a = Val(InputBox("Введите число a"))

b = Val(InputBox("Введите число b"))

c = Val(InputBox("Введите число c"))

Select Case 5

Case a

MsgBox("a=5")

Case b

MsgBox("b=5")

Case c

MsgBox("c=5")

Case Else

MsgBox("Ни одно из чисел неравно 5")

End Select