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

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

Приложение 8

Составьте программу для ввода значения переменной n, которое должно находится в диапазоне от 3 до 20. При неправильном значении переменной программа должна выводить сообщение и требовать повторного ввода значения.

Dim n As Integer

vvod:

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

If n < 3 Or n > 20 Then

MsgBox("Неправильное значение")

GoTo Vvod

End If

Приложение 9

Составьте программу для решения уравнения вида . Значения параметров a, b и c задаются пользователем с клавиатуры и могут быть любыми.

Dim a, b, c, x As Single

a = Val(InputBox("Введите коэффициент а"))

b = Val(InputBox("Введите коэффициент b"))

c = Val(InputBox("Введите коэффициент c"))

If a = 0 Then

If b = c Then

MsgBox("Решение - любое число")

Else

MsgBox("Нет корней")

End If

Else

x = (c - b) / a

MsgBox("x=" + Str(x))

End If

Приложение 10

Программа, имитирующая работу калькулятора. Вводятся два числа и знак операции. Программа должна выполнять следующие действия: сложение (+), вычитание (-), умножение (*), деление (/), вычисление остатка от деления (%), целочисленное деление (\). Также необходимо реализовать повтор ввода исходных данных и вычислений по желанию пользователя.

Dim a, b, c As Single

Dim znak As Char

Dim otvet As Integer
nachalo:
a = Val(InputBox("Введите число a"))

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

znak = InputBox("Введите знак операции (+ - * / % \")

Select Case znak

Case "+"

c = a + b

MsgBox("c=" + Str(c))

Case "-"

c = a - b

MsgBox("c=" + Str(c))

Case "*"

c = a * b

MsgBox("c=" + Str(c))

Case "/"

If b = 0 Then

MsgBox("Ошибка! Деление на ноль")

Else

c = a / b

MsgBox("c=" + Str(c))

End If

Case "\"

If b = 0 Then

MsgBox("Ошибка! Деление на ноль")

Else

c = a \ b

MsgBox("c=" + Str(c))

End If

Case "%"

If b = 0 Then

MsgBox("Ошибка! Деление на ноль")

Else

c = a Mod b

MsgBox("c=" + Str(c))

End If

Case Else

MsgBox("Неизвестный знак операции")

End Select

otvet = MsgBox("Выполнить еще один расчет?", 32 + 4)

If otvet = 6 Then

GoTo nachalo

End If

Приложение 11

Табуляция функции с известным шагом.

Dim a, b, h, x, y As Single

vvod:

a = Val(InputBox("Введите начало отрезка"))

b = Val(InputBox("Введите конец отрезка"))

h = Val(InputBox("Введите шаг табуляции"))

If a > b Or h <= 0 Or h > b - a Then

MsgBox("Неправильные данные")

GoTo vvod

End If

lstResult.Items.Clear()

lstResult.Items.Add("x" + vbTab + "y")

For x = a To b Step h

If x + 4 < 0 Or x = 0 Then

lstResult.Items.Add(Str(x) + vbTab + "Ошибка")

Else

y = Math.Sqrt(x + 4) + 1 / x

lstResult.Items.Add(Str(x) + vbTab + Str(y))

End If

Next

Приложение 12

Табуляция функции с известным количеством узлов.

Dim a, b, h, x, y As Single

Dim n As Integer

vvod:

a = Val(InputBox("Введите начало отрезка"))

b = Val(InputBox("Введите конец отрезка"))

n = Val(InputBox("Введите количество узлов табуляции"))

If a > b Or n < 2 Then

MsgBox("Неправильные данные")

GoTo vvod

End If

lstResult.Items.Clear()

lstResult.Items.Add("x" + vbTab + "y")

h = (b - a) / (n - 1)

For x = a To b Step h

If x + 4 < 0 Or x = 0 Then

lstResult.Items.Add(Str(x) + vbTab + "Ошибка")

Else

y = Math.Sqrt(x + 4) + 1 / x

lstResult.Items.Add(Str(x) + vbTab + Str(y))

End If

Next

Приложение 13

Вычисление факториала заданного натурального числа.

Dim f As ULong

Dim i, n As Byte

n = Val(InputBox("введите натуральное число n"))

f = 1

For i = 2 To n

f *= i

Next

MsgBox(Str(n) + "! =" + Str(f))