Приложение 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