Главная Коллекция "Revolution" Программирование, компьютеры и кибернетика Программирование на Visual Basic For Application

Программирование на Visual Basic For Application

Написание программы, которая ищет корни квадратного уравнения с заданными коэффициентами. Программирование разветвляющихся процессов и рекуррентных вычислений. Определение количества членов ряда. Решение задач в духе идеологии суммирования рядов.

Рубрика Программирование, компьютеры и кибернетика
Вид практическая работа
Язык русский
Дата добавления 26.02.2016
Размер файла 1,2 M
рефераты на заказ со скидкой

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

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

Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

НАЦИОНАЛЬНЫЙ МИНЕРАЛЬНО-СЫРЬЕВОЙ УНИВЕРСИТЕТ «ГОРНЫЙ»

ПРАКТИЧЕСКАЯ РАБОТА

ПРОГРАММИРОВАНИЕ НА VISUAL BASIC FOR APPLICATION»

Выполнила студентка 1 курса ЭМФ

гр. МНМ-15

Изместьева В.А.

Санкт-Петербург

2015

Программирование линейных процессов

Задание 1

Написать программу, которая ищет корни квадратного уравнения с заданными коэффициентами при условии, что Дискриминант больше нуля.

Уравнение вида a*x2+b*x+c=0

Дизайн формы:

Консоль

Public Sub pr1()

Dim a As Single, b As Single, c As Single

Dim x1 As Single, x2 As Single, d As Single

a = InputBox("a")

b = InputBox("b")

c = InputBox("c")

d = (b ^ 2) - (4 * a * c)

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

MsgBox ("d= " + Str(d) + " x1= " + Str(x1) + " x2= " + Str(x2))

EndSub

Окно

Private Sub CommandButton1_Click()

Dim a As Single, b As Single, c As Single

Dim x1 As Single, x2 As Single, d As Single

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

c = Val(TextBox3.Text)

d = (b ^ 2) - (4 * a * c)

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

TextBox6.Text = "d= " + Str(d)

TextBox4.Text = " x1= " + Str(x1)

TextBox5.Text = " x2= " + Str(x2)

EndSub

Результат

Программирование разветвляющихся процессов

Задание 1

Написать программу по блок схеме

Дизайн формы:

Консольная программа:

PublicSubpr2()

Dim a As Single

Dim x As Single

Dim pi As Single

x = InputBox("x")

pi = 4 * Atn(1)

If x = -1 Then

a = pi

Else

If x <> 0 Then

a = Atn(Sqr(1 - x * x) / x)

If a < 0 Then

a = a + pi

End If

Else

a = 0

End If

End If

MsgBox ("arcos(x)= " + Str(a * 180 / pi))

End Sub

Оконнаяпрограмма:

Private Sub CommandButton1_Click()

Dim a As Single

Dim x As Single

Dim pi As Single

x = Val(TextBox1.Text)

pi = 4 * Atn(1)

If x = -1 Then

a = pi

Else

If x <> 0 Then

a = Atn(Sqr(1 - x * x) / x)

If a < 0 Then

a = a + pi

End If

Else

a = 0

End If

End If

TextBox2.Text = "arcos= " + Str(a * 180 / pi)

End Sub

Результат оконной программы:

Задание 2

Элементы окружности пронумерованы след. Образом: 1 радиус, 2 диаметр, 3 длина окружности, 4 площадь круга. Написать программу, высчитывающую все элементы, если даны номер и значение одного из элементов. программа уравнение ряд задача

Дизайн формы:

Оконная программа:

Private Sub CommandButton1_Click()

Dim n As Integer

Dim r As Single

Dim d As Single

Dim l As Single

Dim pi As Single

Dim s As Single

Dim a As Single

n = Val(TextBox1.Text)

a = Val(TextBox2.Text)

pi = 4 * Atn(1)

Select Case n

Case 1

r = a: d = 2 * r: l = 2 * pi * r: s = pi * r * r

Case 2

d = a: r = d / 2: l = 2 * pi * r: s = pi * r * r

Case 3

l = a: r = l / (2 * pi): d = 2 * r: s = pi * r * r

Case 4

s = a: r = Sqr(s / pi): d = 2 * r: l = 2 * pi * r:

Case Else

TextBox7.Text = "net takogoelementa"

End Select

TextBox3.Text = "r= " + Str(r)

TextBox4.Text = "d= " + Str(d)

TextBox5.Text = "l= " + Str(l)

TextBox6.Text = "s= " + Str(s)

EndSub

Результат работы оконной программы:

Программирование циклических процессов

Коды программ этого блока в консольном режиме написаны для одного цикла. Коды оконного режима прописаны для трех видов цикла.

Задание 1

Просуммировать все квадраты целых чисел от А до В (А и В целые, А<В).

Консоль

Public Sub pr4()

Dim a As Integer, b As Integer

Dim i As Integer, s As Integer

a = InputBox("A")

b = InputBox("B")

s=0

For i = a To b

s = s + i ^ 2

Next i

MsgBox ("s= " + Str(s))

EndSub

FOR

Private Sub CommandButton1_Click()

Dim a As Integer, b As Integer

Dim i As Integer, s As Integer

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

s = 0

For i = a To b

s = s + i ^ 2

Next i

TextBox3.Text = "s= " + Str(s)

EndSub

DO

Private Sub CommandButton3_Click()

Dim a As Integer, b As Integer

Dim i As Integer, s As Integer

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

s = 0

i = a

Do

s = s + i ^ 2

i = i + 1

Loop Until i> b

TextBox5.Text = "s= " + Str(s)

End Sub

WHILE

Private Sub CommandButton2_Click()

Dim a As Integer, b As Integer

Dim i As Integer, s As Integer

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

s = 0

i = a

While i<= b

s = s + i ^ 2

i = i + 1

Wend

TextBox4.Text = "s= " + Str(s)

End Sub

Результат:

Задание 2

Дано целое число N. Просуммировать ряд

Консоль

Public Sub pr5()

Dim s As Single

Dim n As Integer

Dim i As Integer

n = InputBox("n")

s = 0

For i = 1 To n

s = s + 1 / i ^ 2

Next i

MsgBox ("s= " + Str(s))

End Sub

FOR

Private Sub CommandButton1_Click()

Dim s As Single

Dim n As Integer

Dim i As Integer

n = Val(TextBox1.Text)

s = 0

For i = 1 To n

s = s + 1 / i ^ 2

Next i

TextBox2.Text = "s= " + Str(s)

End Sub

WHILE

Private Sub CommandButton2_Click()

Dim s As Single

Dim n As Integer

Dim i As Integer

n = Val(TextBox1.Text)

i = 1

s = 0

While i<= n

s = s + 1 / i ^ 2

i = i + 1

Wend

TextBox3.Text = "s= " + Str(s)

End Sub

DO

Private Sub CommandButton3_Click()

Dim n As Single

Dim i As Single

Dim s As Single

n = Val(TextBox1.Text)

s = 0

i = 1

Do

s = s + 1 / i ^ 2

i = i + 1

Loop Until i> n

TextBox4.Text = "s= " + Str(s)

End Sub

Результат:

Задание 3

Дано целое число N. Найти произведение 1.1*1.2*1.3… (Z7)

Консоль

Public Sub pr7()

Dim i As Integer

Dim p As Single

Dim a As Single

n = InputBox("n")

p = 1

a = 1.1

For i = 1 To n

p = p * a

a = a + 0.1

Next i

MsgBox ("p= " + Str(p))

End Sub

FOR

Private Sub CommandButton1_Click()

Dim i As Integer

Dim p As Single

Dim a As Single

n = Val(TextBox1.Text)

p = 1

a = 1.1

For i = 1 To n

p = p * a

a = a + 0.1

Next i

TextBox2.Text = "p= " + Str(p)

End Sub

WHILE

Private Sub CommandButton2_Click()

Dim p As Single

Dim i As Integer

Dim a As Single

n = Val(TextBox1.Text)

p = 1

a = 1.1

i = 1

While i<= n

p = p * a

a = a + 0.1

i = i + 1

Wend

TextBox3.Text = "p= " + Str(p)

End Sub

DO

Private Sub CommandButton3_Click()

Dim p As Single

Dim i As Integer

Dim a As Single

n = Val(TextBox1.Text)

p = 1

i = 1

a = 1.1

Do

p = p * a

a = a + 0.1

i = i + 1

Loop Until i> n

TextBox4.Text = "p= " + Str(p)

EndSub

Результат:

Задание 4

Дано целое число N. Найти его квадрат, используя формулу

Консоль:

Public Sub pr6()

Dim n As Integer

Dim s As Single

Dim i As Integer

n = InputBox("n")

s = 0

For i = 1 To 2 * n - 1 Step 2

s = s + i

Next i

MsgBox ("N= " + Str(s))

End Sub

FOR

Private Sub CommandButton1_Click()

Dim n As Integer

Dim s As Single

Dim i As Integer

n = Val(TextBox1.Text)

s = 0

For i = 1 To 2 * n - 1 Step 2

s = s + i

Next i

TextBox2.Text = "N^2= " + Str(s)

End Sub

WHILE

Private Sub CommandButton2_Click()

Dim n As Integer

Dim s As Single

Dim i As Integer

n = Val(TextBox1.Text)

s = 0

i = 1

While i<= 2 * n - 1

s = s + i

i = i + 2

Wend

TextBox3.Text = "N^2= " + Str(s)

End Sub

DO

Private Sub CommandButton3_Click()

Dim n As Integer

Dim s As Single

Dim i As Integer

n = Val(TextBox1.Text)

s = 0

i = 1

Do

s = s + i

i = i + 2

Loop Until i> 2 * n - 1

TextBox4.Text = "N^2= " + Str(s)

End Sub

Результат:

Задание 5

Даны M и N. Вычислить двойную сумму

Консоль

Public Sub pr8()

Dim i As Integer, k As Integer

Dim s As Single, m As Integer, n As Integer

s = 0

m = InputBox("M")

n = InputBox("N")

For i = 1 To n

For k = 1 To m

s = s + i ^ k

Next k

Next i

MsgBox ("s= " + Str(s))

End Sub

FOR

Private Sub CommandButton1_Click()

Dim i As Integer, k As Integer

Dim s As Single, m As Integer, n As Integer

s = 0

n = Val(TextBox1.Text)

m = Val(TextBox2.Text)

For i = 1 To n

For k = 1 To m

s = s + i ^ k

Next k

Next i

TextBox3.Text = "s= " + Str(s)

End Sub

WHILE

Private Sub CommandButton2_Click()

Dim i As Integer, k As Integer

Dim s As Single, m As Integer, n As Integer

s = 0

n = Val(TextBox1.Text)

m = Val(TextBox2.Text)

i = 1

While i <= n

k = 1

While k <= m

s = s + i ^ k

k = k + 1

Wend

i = i + 1

Wend

TextBox4.Text = "s= " + Str(s)

End Sub

DO

Private Sub CommandButton3_Click()

Dim i As Integer, k As Integer

Dim s As Single, m As Integer, n As Integer

s = 0

n = Val(TextBox1.Text)

m = Val(TextBox2.Text)

i = 1

Do

k = 1

Do

s = s + i ^ k

k = k + 1

Loop Until k > m

i = i + 1

Loop Until i > n

TextBox5.Text = "s= " + Str(s)

End Sub

Результат:

Программирование рекуррентных вычислений

Задание 1

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer

Dim s As Single, a As Single

n = Val(TextBox1.Text)

Cells(1, 1) = "N="

Cells(2, 1) = "A="

Cells(3, 1) = "S="

a = 1 / 2

s = 0

For i = 1 To n

Cells(1, i + 1) = Str(i)

s = s + a

Cells(3, i + 1) = Str(s)

Cells(2, i + 1) = Str(a)

a = a * i / (2 * i + 2)

Next i

TextBox2.Text = Str(s)

Charts.Add

With ActiveChart

.ChartType = xlLine

.SetSourceData Source:=Sheets("Лист1").Range(Sheets("Лист1").Cells(2, 2), Sheets("Лист1").Cells(3, n + 1)), PlotBy:=xlRows

.SeriesCollection(1).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.SeriesCollection(2).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.Location Where:=xlLocationAsObject, Name:="Лист1"

End With

End Sub

Private Sub CommandButton2_Click()

Dim i As Integer

Dim s As Single, a As Single

Dim st As Single, e As Single

e = Val(TextBox3.Text)

a = 1 / 2

s = 0

i = 1

st = Log(2)

While Abs(s - st) >= e

s = s + a

a = a * i / (2 * i + 2)

i = i + 1

Wend

TextBox4.Text = Str(i - 1)

TextBox5.Text = Str(s)

EndSub

Private Sub CommandButton3_Click()

Dim i As Integer

Dim s As Single, a As Single

Dim e As Single

e = Val(TextBox6.Text)

a = 1 / 2

s = 0

i = 1

While Abs(a) >= e

s = s + a

a = a * i / (2 * i + 2)

i = i + 1

Wend

TextBox7.Text = Str(i - 1)

TextBox8.Text = Str(s)

EndSub

Результат:

Задание 2

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer

Dim s As Single, a As Single, x As Single

n = Val(TextBox1.Text)

x = Val(TextBox2.Text)

Cells(1, 1) = "N="

Cells(2, 1) = "A="

Cells(3, 1) = "S="

a = 1

s = 0

For i = 0 To n

Cells(1, i + 2) = Str(i)

s = s + a

Cells(3, i + 2) = Str(s)

a = a * x / (i + 1)

Cells(2, i + 2) = Str(a)

Next i

TextBox3.Text = Str(s)

Charts.Add

With ActiveChart

.ChartType = xlLine

.SetSourceData Source:=Sheets("Лист1").Range(Sheets("Лист1").Cells(2, 2), Sheets("Лист1").Cells(3, n + 1)), PlotBy:=xlRows

.SeriesCollection(1).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.SeriesCollection(2).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

Location Where:=xlLocationAsObject, Name:="Лист1"

End With

End Sub

Private Sub CommandButton2_Click()

Dim i As Integer

Dim s As Single, a As Single

Dim st As Single, e As Single

e = Val(TextBox5.Text)

x = Val(TextBox4.Text)

a = 1

s = 0

i = 0

st = exp(1)

While Abs(s - st) >= e

s = s + a

a = a * x / (i + 1)

i = i + 1

Wend

TextBox6.Text = Str(i - 1)

TextBox10.Text = Str(s)

End Sub

Private Sub CommandButton3_Click()

Dim i As Integer, e As Single

Dim s As Single, a As Single, x As Single

e = Val(TextBox8.Text)

x = Val(TextBox7.Text)

a = 1

s = 0

i = 0

While Abs(a) >= e

s = s + a

a = a * x / (i + 1)

i = i + 1

Wend

TextBox9.Text = Str(i - 1)

TextBox11.Text = Str(s)

EndSub

Результат:

Задание 3

Вариант №5

Дан ряд:

Для кода:

a=-a*(x-1)*i/ (i+1)

0<X<1

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer

Dim s As Single, a As Single, x As Single

n = Val(TextBox1.Text)

x = Val(TextBox2.Text)

Cells(1, 1) = "N="

Cells(2, 1) = "A="

Cells(3, 1) = "S="

a = x - 1

s = 0

For i = 1 To n

Cells(1, i + 1) = Str(i)

s = s + a

Cells(2, i + 1) = Str(a)

Cells(3, i + 1) = Str(s)

a = -a * (x - 1) * i / (i + 1)

Next i

TextBox3.Text = Str(s)

Charts.Add

With ActiveChart

.ChartType = xlLine

.SetSourceData Source:=Sheets("Лист1").Range(Sheets("Лист1").Cells(2, 2), Sheets("Лист1").Cells(3, n + 1)), PlotBy:=xlRows

.SeriesCollection(1).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.SeriesCollection(2).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.Location Where:=xlLocationAsObject, Name:="Лист1"

End With

End Sub

Private Sub CommandButton2_Click()

Dim i As Integer

Dim s As Single, a As Single

Dim st As Single, e As Single

e = Val(TextBox4.Text)

x = Val(TextBox5.Text)

a = (х-1)

s = 0

i = 1

st = Log(x)

While Abs(s - st) >= e

s = s + a

a = -a * (x - 1) * i / (i + 1)

i = i + 1

Wend

TextBox6.Text = Str(i - 1)

TextBox11.Text = Str(s)

End Sub

Private Sub CommandButton3_Click()

Dim i As Integer, e As Single

Dim s As Single, a As Single, x As Single

e = Val(TextBox7.Text)

x = Val(TextBox8.Text)

a = (х-1)

s = 0

i = 1

While Abs(a) >= e

s = s + a

a = -a * (x - 1) * i / (i + 1)

i = i + 1

Wend

TextBox9.Text = Str(i - 1)

TextBox10.Text = Str(s)

End Sub

Результат:

Ln(0.5) = -0.69314718056

Ln(0.7)=-0.356674

Задание 4 (8)

Вывод рекуррентной формулы:

Для кода:

a=a*(i^2)/((i+1)^2)

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer

Dim s As Single, x As Single, a As Single

n = Val(TextBox1.Text)

Cells(1, 1) = "N="

Cells(2, 1) = "A="

Cells(3, 1) = "S="

s = 0

a = 1

For i = 1 To n

Cells(1, i + 1) = Str(i)

s = s + a

Cells(3, i + 1) = Str(s)

Cells(2, i + 1) = Str(a)

a = a * (i ^ 2) / ((i + 1) ^ 2)

Next i

TextBox2.Text = Str(s)

Charts.Add

With ActiveChart

.ChartType = xlLine

.SetSourceData Source:=Sheets("Лист1").Range(Sheets("Лист1").Cells(2, 2), Sheets("Лист1").Cells(3, n + 1)), PlotBy:=xlRows

.SeriesCollection(1).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.SeriesCollection(2).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.Location Where:=xlLocationAsObject, Name:="Лист1"

End With

End Sub

Private Sub CommandButton2_Click()

Dim i As Integer

Dim s As Single, a As Single

Dim st As Single, e As Single

e = Val(TextBox3.Text)

a = 1

s = 0

i = 1

st = ((4 * Atn(1)) ^ 2) / 6

While Abs(s - st) >= e

s = s + a

a = a * (i ^ 2) / ((i + 1) ^ 2)

i = i + 1

Wend

TextBox4.Text = Str(i - 1)

TextBox5.Text = Str(s)

End Sub

Private Sub CommandButton3_Click()

Dim i As Integer

Dim s As Single, a As Single

Dim e As Single

e = Val(TextBox6.Text)

a = 1

s = 0

i = 1

While Abs(a) >= e

s = s + a

a = a * (i ^ 2) / ((i + 1) ^ 2)

i = i + 1

Wend

TextBox7.Text = Str(i - 1)

TextBox8.Text = Str(s)

End Sub

Результат:

Задание 5 (9)

Вывод рекуррентной формулы:

Для кода:

a= -a * (x ^ 2) / ((2 * i + 2) * (2 * i + 3))

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer

Dim s As Single, a As Single, x As Single

n = Val(TextBox1.Text)

x = Val(TextBox2.Text)

Cells(1, 1) = "N="

Cells(2, 1) = "A="

Cells(3, 1) = "S="

a = x

s = 0

For i = 0 To n

Cells(1, i + 2) = Str(i)

s = s + a

Cells(3, i + 2) = Str(s)

Cells(2, i + 2) = Str(a)

a = -a * (x ^ 2) / ((2 * i + 2) * (2 * i + 3))

Next i

TextBox3.Text = Str(s)

Charts.Add

With ActiveChart

.ChartType = xlLine

.SetSourceData Source:=Sheets("Лист1").Range(Sheets("Лист1").Cells(2, 2), Sheets("Лист1").Cells(3, n + 1)), PlotBy:=xlRows

.SeriesCollection(1).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.SeriesCollection(2).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 2), Sheets("Лист1").Cells(1, n + 1))

.Location Where:=xlLocationAsObject, Name:="Лист1"

End With

End Sub

Private Sub CommandButton2_Click()

Dim i As Integer

Dim s As Single, a As Single

Dim st As Single, e As Single

e = Val(TextBox5.Text)

x = Val(TextBox4.Text)

a = x

s = 0

i = 0

st = Sin(x)

While Abs(s - st) >= e

s = s + a

a = -a * (x ^ 2) / ((2 * i + 2) * (2 * i + 3))

i = i + 1

Wend

TextBox6.Text = Str(i - 1)

TextBox10.Text = Str(s)

End Sub

Private Sub CommandButton3_Click()

Dim i As Integer, e As Single

Dim s As Single, a As Single, x As Single

e = Val(TextBox8.Text)

x = Val(TextBox7.Text)

a = 1

s = 0

i = 0

While Abs(a) >= e

s = s + a

a = -a * (x ^ 2) / ((2 * i + 2) * (2 * i + 3))

i = i + 1

Wend

TextBox9.Text = Str(i - 1)

TextBox11.Text = Str(s)

End Sub

Результат: sin(1) = 0.84147

Размещено на Allbest.ru

...

Подобные документы

  • Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application

    Решение экономических задач с помощью Microsoft Excel и инструментария Visual Basic For Application. Способы запуска редактора Visual Basic, правила его синтаксиса. Создание автоматических макросов по сортировке и выборке. Создание управляющих кнопок.

    курсовая работа [852,0 K], добавлен 24.09.2010

  • Программирование на Visual Basic

    Составление блок-схемы алгоритма решения задачи, погрешности вычисления суммы членов числового ряда. Разработка программ на языке на Visual Basic, работа с массивами. Особенности работы со строковыми данными. Варианты реализации формы приложения.

    контрольная работа [220,4 K], добавлен 18.06.2010

  • Язык программирования Visual Basic for Applications

    Рождение и развитие Basic. Краткое описание Visual Basic for Applications. Новые возможности Visual Basic 5.0. Пример взаимодействия Excel и Visual Basic. Программирование табличных функций. Встраивание, применение функций. Формы, средства управления OLE.

    реферат [20,7 K], добавлен 11.03.2010

  • Организация документооборота с помощью "Visual Basic for Application"

    Visual Basic for Application. Объекты и коллекции. Использование VBA в среде Access. Основы современной технологии проектирования АИС. Автоматизированное проектированиеCASE-технологий. Реинжиниринг бизнес-процессов и проектирование корпоративной ИС.

    курсовая работа [2,1 M], добавлен 22.02.2008

  • Visual Basic

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

    лабораторная работа [1,1 M], добавлен 10.12.2014

  • Основы программирования на Visual Basic

    Язык программирования Visual Basic: краткая история возникновения, значение и общая характеристика. Изучение основных свойств Visual Basic, синтаксис языка. Обзор ключевых операторов Visual Basic, пользовательские процедуры и функции данного языка.

    контрольная работа [36,4 K], добавлен 23.07.2014

  • Разработка мини-игр на языке программирования Visual Basic

    Многообразие мини-игр и возможности языка Visual basic 6.0 для их реализации. Понятие мини-игр и их классификация. Элементы управления мини-игры "Реверси". Разработка прикладной программы. Создание игрового интерфейса. Написание программного кода.

    курсовая работа [1,5 M], добавлен 03.06.2014

  • Компьютерная система обработки информации

    Архитектура и принцип действия персонального компьютера, понятие и классификация его программного обеспечения. Блок-схема алгоритма расчета квадратного трехчлена. Назначение, возможности, интерфейс и работа Windows. Программирование на Visual Basic.

    реферат [33,5 K], добавлен 26.12.2009

  • Загальна характеристика елементів мови програмування VBA (Visual Basic for Application)

    Характеристика мови програмування VBA (Visual Basic for Application): можливості й засоби. Використання редактора Visual Basic. Створення та виконання VBA-програм. Типи даних, змінні й константи, операції й вирази. Керуючі оператори, процедури й функції.

    реферат [29,9 K], добавлен 28.06.2011

  • Программирование в Turbo Pascal и Visual Basic

    Этапы подготовки и решения задач на компьютере. Способы предоставления алгоритмов. Простые типы данных и их обработка. Основы работы с графикой и графическими операторами в Visual Basic. Организация линейной программы. Процедуры и функции в языке Паскаль.

    дипломная работа [1,9 M], добавлен 25.10.2015

  • Создание программного продукта на языке программирования Visual Basic for Applications

    Сумма двух разреженных полиномов, заданных ненулевыми коэффициентами и их номерами. Разработка программ на языке программирования Visual Basic for Applications. Вывод справочной информации. Операционная система Windows. Хранение двоичных данных.

    научная работа [390,2 K], добавлен 09.03.2009

  • Разработка программы "Переключатели цвета и фигуры" в среде программирования Visual Basic

    Исследование теоретических аспектов разработки программы посредством использования Visual Basic. Анализ достоинств и недостатков данного языка программирования. Изучение особенностей создания интерфейса приложения. Основные этапы реализации программы.

    практическая работа [460,6 K], добавлен 22.01.2013

  • Создание теста на Visual Basic

    Написание тестирующей программы для проверки знаний учащихся с помощью языка программирования Visual Basic for Applications (VBA), встроенного в пакет Microsoft Office. Общие сведения о программе, условия ее выполнения, настройка, проверка, выполнение.

    контрольная работа [25,2 K], добавлен 07.06.2010

  • Использование Visual Basic for Applications в автоматизации банковских операций

    Функции и основная роль коммерческого банка. Особенности кредитных и депозитных операций. Описание среды программирования и сущность Visual Basic for Applications (VBA). Схема алгоритма программы, процедура сохранения файла и выхода из программы.

    курсовая работа [1,9 M], добавлен 04.04.2012

  • Основы программирования в среде Visual Basic for Application (VBA)

    Основные этапы решения задач на ЭВМ. Элементы управления и пользовательская форма VBA. Ввод и вывод информации. Открытие и закрытие файла. Операторы цикла и подпрограммы. Реализация разветвляющихся алгоритмов в VBA. Типы данных, переменные и константы.

    учебное пособие [1,4 M], добавлен 21.05.2009

  • Visual Basic for Application

    Формирование матрицы и выполнение заданий: вычисление сумы четных элементов; максимума из нечетных элементов в строке; произведение элементов в нечетных столбцах; количество четных элементов выше главной диагонали. Создание программы в Visual Basic.

    контрольная работа [12,0 K], добавлен 07.10.2012

  • Работа с массивами в среде Visual Basic for Application (VBA)

    Программа обработки одномерного массива средствами Visual Basic for Application (VBA) на предмет преобразования, печати, удаления, сортировки, поиска сумм, положительных, чётных элементов, их кратности и дополнения другими элементами и значениями данных.

    контрольная работа [12,3 K], добавлен 07.10.2012

  • Объектно-ориентированное программирование с помощью Microsoft Visual Basic

    Понятие объектно-ориентированного программирования, общая характеристика языков высокого уровня. Разработка программного обеспечения для реализации компьютерной игры "пинбол" с помощью императивного программирования в среде Microsoft Visual Basic.

    курсовая работа [428,9 K], добавлен 19.09.2012

  • Алгоритмизация и программирование разветвляющихся процессов

    Разработка алгоритма и программы для вычисления функции, заданной интервально на различных промежутках. Алгоритм и программа формирования одномерного массива по условию, заданной интервально на различных промежутках. Решение нелинейного уравнения.

    курсовая работа [38,3 K], добавлен 17.11.2010

  • Программа Visual Basic Script

    Описание Visual Basic Scripting Edition как скриптового языка программирования, интерпретируемого компонентом Windows Script Host. Правила работы языка и применение VBS-сценариев для обработки данных, управления системой, работы с учетными записями.

    доклад [31,3 K], добавлен 11.05.2012

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены