- •Введение.
- •II Формирование таблиц и запросов в субд ms Access. Экспорт данных из ms Access в Visual Basic 6.0
- •3.Создание Документа:
- •Заключение. Список литературы
- •1)Visual Basic 6.0 – “Наиболее полное руководство для профессиональной работы в среде Visual Basic 6.0”. Издательство «Мастер», 2004 год, с-п.
- •3)” Microsoft Access 2000 учебный курс”. С.Робинсон. Изд. «Питер», 2001 г,
Введение.
Label1 |
Caption |
Курсовая работа по дисциплине "Компьютерная подготовка" студента Iкурса МЭ 1-3 Лысогорского Сергея |
Label1 |
BorderStyle |
0 - None |
Form1 |
Picture |
… |
Private Sub Label1_Click()
Form1.Hide
Form6.Show
End Sub
Label 4 |
Caption |
Лабораторная работа №4 Задание № 1 |
Label 5 |
Caption |
Получить новую последовательность S1, ... ,Sn, которые отличаются от исходных членов тем, что все нечётные члены удвоенны. |
Label 1 |
Caption |
Количество членов. |
Label 2 |
Caption |
Исходная последовательность. |
Label 3 |
Caption |
Новая последовательность. |
Text1 |
Text |
|
Text2 |
Text |
|
Text3 |
Text |
|
Command1 |
Caption |
Вычислить. |
Command2 |
Caption |
Отрубить программу. |
Command3 |
Caption |
Далее |
Command4 |
Caption |
Назад |
Private Sub Command1_Click()
Dim q As String
Dim s As Integer
Dim a As String
Dim t As Integer
Dim N As Integer
q = 0
a = 0
N = Val(Text1.Text)
For i = 1 To N
s = InputBox("Введите S")
If s Mod 2 = 0 Then
t = s
Else
t = 2 * s
End If
q = q + Str(s) + ";"
a = a + Str(t) + ";"
Text2 = q
Text3 = a
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form3.Hide
Form4.Show
End Sub
Private Sub Command4_Click()
Form3.Hide
Form6.Show
End Sub
Label3 |
Caption |
Лабораторная работа №4 Задание №2. |
Label1 |
Caption |
Вычислить приближённое значение суммы с точностью 0.0001. последовательность: 1 -1/2+1/3-1/4+... |
Text1 |
Text |
|
Label2 |
Caption |
Точное значение=0,6931478... |
Command1 |
Caption |
Вычислить. |
Command2 |
Caption |
Отрубить программу. |
Command3 |
Caption |
Назад |
Command4 |
Caption |
Далее |
Private Sub Command1_Click()
Dim a As Double
Dim N As Integer
Dim d As Double
Do
N = N + 1
d = (1 / N) * ((-1) ^ (N + 1))
a = a + d
Loop While Abs(d) >= 0.0001
Text1 = Fix(a * 10000) / 10000
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form4.Hide
Form3.Show
End Sub
Private Sub Command4_Click()
Form4.Hide
Form5.Show
End Sub
Label2 |
Caption |
Лабораторная работа №5. |
Label1 |
Caption |
Даны затраты каждого из 7 предприятий на реконструкцию на каждый год пятилетки. а)Для каждого года пятилетки определить наиболее экономное предприятие. b)Для каждого предприятия определить средние годовые затраты. |
MSFlexgrid1 |
Name |
MSF1 |
MSF1 |
Cols |
8 |
MSF1 |
Rows |
10 |
Command1 |
Caption |
Заполнить таблицу |
Command2 |
Caption |
Вычислить |
Command3 |
Caption |
Назад |
Command4 |
Caption |
Вырубить программу. |
Command5 |
Caption |
Далее |
Private Sub Command1_Click()
Const m = 7
Const N = 5
Dim a(m, N) As Integer
Dim i As Byte
Dim j As Byte
MSF1.Rows = m + 3
MSF1.Cols = N + 3
For i = 1 To m
For j = 1 To N
a(i, j) = Fix(Rnd * 100)
MSF1.TextMatrix(i, j) = a(i, j)
Next j
Next i
Command2.Enabled = True
For i = 1 To m
MSF1.TextMatrix(i, 7) = " "
MSF1.TextMatrix(i, 6) = " "
Next i
For j = 1 To N
MSF1.TextMatrix(9, j) = " "
MSF1.TextMatrix(8, j) = " "
Next j
End Sub
Private Sub Command2_Click()
Const m = 7
Const N = 5
Dim a(m, N) As Integer
Dim i As Byte
Dim j As Byte
Dim v As Integer
Dim k As Byte
Dim b As Byte
Dim c As Byte
For i = 1 To m
For j = 1 To N
a(i, j) = MSF1.TextMatrix(i, j)
Next j
Next i
For i = 1 To m
v = 0
For j = 1 To N
v = v + a(i, j)
Next j
b = v / 5
MSF1.TextMatrix(i, 7) = b
Next i
For j = 1 To N
k = a(1, j)
For i = 2 To m
If a(i, j) < k Then
k = a(i, j)
c = i
Else
k = k
End If
Next i
MSF1.TextMatrix(9, j) = k
MSF1.TextMatrix(8, j) = MSF1.TextMatrix(c, 0)
Next j
End Sub
Private Sub Command3_Click()
Form5.Hide
Form4.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Form5.Hide
form8.Show
End Sub
Private Sub Form_Load()
MSF1.TextMatrix(1, 0) = "Первое предприятие"
MSF1.TextMatrix(2, 0) = "Второе предприятие"
MSF1.TextMatrix(3, 0) = "Третье предприятие"
MSF1.TextMatrix(4, 0) = "Четвёртое предприятие"
MSF1.TextMatrix(5, 0) = "Пятое предприятие"
MSF1.TextMatrix(6, 0) = "Шестое предприятие"
MSF1.TextMatrix(7, 0) = "Седьмое предприятие"
MSF1.TextMatrix(8, 0) = "Наиболее экономное предприятие"
MSF1.TextMatrix(9, 0) = "Значение наиболее экономного предприятия"
MSF1.TextMatrix(0, 1) = "Первый год пятилетки"
MSF1.TextMatrix(0, 2) = "Второй год пятилетки"
MSF1.TextMatrix(0, 3) = "Третий год пятилетки"
MSF1.TextMatrix(0, 4) = "Четвёртый год пятилетки"
MSF1.TextMatrix(0, 5) = "Пятый год пятилетки"
MSF1.TextMatrix(0, 7) = "Средние годовые затраты"
End Sub
Label13 |
Caption |
Лабораторная работа №3:работа с листами |
Label14 |
Caption |
Задача с списками студентов. Добавить, удалить, подтвердить участие студента.Кредит |
Label1 |
Caption |
Фамилия студента |
Label3 |
Caption |
Город |
Label4 |
Caption |
Доход |
Label2 |
Caption |
Количество студентов: |
Label8 |
Caption |
Кредит: |
Label9 |
Caption |
Количество студентов на экскурсию: |
Label10 |
Caption |
Возможно поедут: |
Label11 |
Caption |
возможно поедут: |
Label12 |
Caption |
точно поедут: |
Label5 |
Caption |
Выберите город: |
Label6 |
Caption |
Точно поедут: |
Label7 |
Caption |
Стоимость экскурсии |
List1 |
List |
|
List2 |
List |
|
List4 |
List |
|
List5 |
List |
|
List6 |
List |
|
List3 |
List |
|
Text1 |
Text |
|
Text4 |
Text |
|
Text2
|
Text BackColor |
------------ Menu Bar
|
Text5 |
Text BackColor |
------------ Menu Bar
|
Text3 |
Text BackColor |
------------ Menu Bar
|
Command4 |
Caption |
Добавить студента |
Command1 |
Caption |
Заполнить |
Command5 |
Caption |
Удалить студента |
Command6 |
Caption |
Подтвердить участие студента в экскурсии |
Command2 |
Caption |
Далее |
Command7 |
Caption |
Назад |
Command3 |
Caption |
Выход |
Private Sub Command1_Click()
List1.AddItem "Иванов"
List1.AddItem "Петров"
List1.AddItem "Сидоров"
List1.AddItem "Пупкин"
List1.AddItem "Козлов"
List1.AddItem "Ивкин"
List1.AddItem "Ванечкин"
List1.AddItem "Опупелов"
List1.AddItem "Угорелов"
List1.AddItem "Зазевалкин"
List1.AddItem "Вонючкин"
List1.AddItem "Оглоедов"
List1.AddItem "Зебрин"
List1.AddItem "Васин"
List1.AddItem "Шлюпков"
Text2.Text = List1.ListCount
List3.AddItem "1500"
List3.AddItem "6000"
List3.AddItem "3500"
List3.AddItem "2000"
List3.AddItem "1400"
List3.AddItem "980"
List3.AddItem "2300"
List3.AddItem "1900"
List3.AddItem "1700"
List3.AddItem "4500"
List3.AddItem "4200"
List3.AddItem "2800"
List3.AddItem "5300"
List3.AddItem "1980"
List3.AddItem "3100"
List2.AddItem "Москва"
List2.AddItem "Санкт-Петербург"
List2.AddItem "Великий Новгород"
List2.AddItem "Ростов-на-Дону"
List2.AddItem "Жуковский"
List2.AddItem "Москва"
List2.AddItem "Ростов-на-Дону"
List2.AddItem "Москва"
List2.AddItem "Великий Новгород"
List2.AddItem "Ростов-на-Дону"
List2.AddItem "Москва"
List2.AddItem "Жуковский"
List2.AddItem "Москва"
List2.AddItem "Великий Новгород"
List2.AddItem "Жуковский"
Text4.Text = 0
Dim N As Integer
Dim m As Integer
Dim a As Integer
Dim s As Integer
m = Text2.Text
For i = 0 To m - 1
s = 0
N = List4.ListCount
If N = 0 Then
List4.AddItem List2.List(i)
Else
For j = 0 To N - 1
If List2.List(i) = List4.List(j) Then
a = 1
Else
a = 0
End If
s = s + a
Next j
If s = 0 Then
List4.AddItem List2.List(i)
End If
End If
Next i
End Sub
Private Sub Command2_Click()
Form6.Hide
Form3.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
For N = 0 To (Text2.Text - 1)
If List1.Selected(N) = True Then
If List4.Selected(d) = True Then
r = List4.List(d)
End If
If List2.List(N) = r Then
If List3.List(N) < Text1.Text Then
If Text4.Text >= (Text1.Text - List3.List(N)) Then
List5.AddItem List1.List(N)
Text3.Text = List5.ListCount
Text4.Text = (Text4.Text - Text1.Text + List3.List(N))
Else
MsgBox "не хватает кредита"
End If
Else
List5.AddItem List1.List(N)
Text3.Text = List5.ListCount
End If
Else
If Text4.Text >= (Text1.Text - List3.List(N)) Then
List5.AddItem List1.List(N)
Text3.Text = List5.ListCount
Text4.Text = (Text4.Text - Text1.Text + List3.List(N))
Else
MsgBox "не хватает кредита"
End If
End If
End If
Next N
End Sub
Private Sub Command5_Click()
Dim b As Integer
b = List5.ListIndex
List5.RemoveItem b
Text3.Text = List5.ListCount
End Sub
Private Sub Command6_Click()
For p = 0 To (List5.ListCount - 1)
If List5.Selected(p) = True Then
List6.AddItem List5.List(p)
For i = 0 To (Text2.Text - 1)
If List1.List(i) = List5.List(p) Then
If (List3.List(i) - Text1.Text) >= 0 Then
List3.List(i) = List3.List(i) - Text1.Text
Else
List3.List(i) = "Влез в долги"
End If
g = 0
End If
Next i
End If
Next p
For d = 0 To (List6.ListCount - 1)
For h = 0 To (List5.ListCount - 1)
If List6.List(d) = List5.List(h) Then
List5.RemoveItem (h)
End If
Next h
Next d
Text3.Text = List5.ListCount
Text5.Text = List6.ListCount
End Sub
Private Sub Command7_Click()
Form6.Hide
Form1.Show
End Sub
Private Sub Label12_Click()
End Sub
Private Sub List1_Click()
For N = 0 To (List1.ListCount - 1)
If List1.Selected(N) = True Then
List2.Selected(N) = True
List3.Selected(N) = True
End If
Next N
End Sub
Private Sub List2_Click()
For N = 0 To (List1.ListCount - 1)
If List2.Selected(N) = True Then
List1.Selected(N) = True
List3.Selected(N) = True
End If
Next N
End Sub
Private Sub List3_Click()
For N = 0 To (List1.ListCount - 1)
If List3.Selected(N) = True Then
List2.Selected(N) = True
List1.Selected(N) = True
End If
Next N
End Sub
Private Sub List4_Click()
List5.Clear
If List4.Text = "Москва" Then
Text1.Text = 2000
Else
If List4.Text = "Санкт-Петербург" Then
Text1.Text = 1000
Else
If List4.Text = "Великий Новгород" Then
Text1.Text = 1500
Else
If List4.Text = "Ростов-на-Дону" Then
Text1.Text = 3000
Else
If List4.Text = "Жуковский" Then
Text1.Text = 500
End If
End If
End If
End If
End If
Dim m As Integer
Dim d As Integer
m = List1.ListCount
d = Text1.Text
For i = 0 To m - 1
If List4.Text <> List2.List(i) Then
If List3.List(i) >= d Then
List5.AddItem List1.List(i)
End If
End If
Next i
Text3.Text = List5.ListCount
End Sub
Label4 |
Caption |
Лабораторная работа №6 |
Label5 |
Caption |
Составить функцию для вычисления y=1-x/2+(x^2)/(2*5)-(x^3)/(2*5*6)+(x^4)/(2*5*6*9)-(x^5)/(2*5*6*9*10)+... принимая модуль х не больше 1. Вычисление продолжать, пока модуль разницы между слагаемым и его предыдущим значением больше заданной малой величины (точности значений). |
Label1 |
Caption |
Введите X,так, чтобы |x| не был > 1 |
Label2 |
Caption |
Введите точность значения |
Label3
|
Caption |
y= |
Text1 |
Name Caption |
x ------------ |
Text2 |
Name Caption |
t ------------ |
Text3 |
Name Caption |
r ------------ |
Command1 |
Caption |
Вычислить |
Command2 |
Caption |
Назад |
Command3 |
Caption |
Выключить курсовую работу. |
Function y(x As Double, t As Double)
Dim g As Double
s = 1
N = 0
k = 1
g = 1
Do
g = g + ((-1) ^ N * x ^ N) / s
N = N + 1
If N Mod 2 = 1 Then
k = k + 1
Else
k = k + 3
End If
s = s * k
Loop While Abs(((-1) ^ N * x ^ N) / s) > t
y = g
End Function
Private Sub Command1_Click()
r = y(x, t)
End Sub
Private Sub Command2_Click()
form8.Hide
Form5.Show
End Sub
Private Sub Command3_Click()
End
End Sub