Подскажите как составить алгоритм блок-схему по программе написанной на VB. Составил что знаю дальше нужна ваша помощь
Программа:
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
| Private objWord As Word.Application
Private Sub CommandButton1_Click()
Dim naim As String
Dim mail As String
Dim inn As String
Dim pol As String
Dim bank As String
Dim schet As String
Dim schet1 As String
Dim schet2 As String
Dim schet3 As String
Dim Zakazchik As String
Dim Platelshik As String
Dim nomertovara As String
Dim imjatovara As String
Dim edenicaIzmerenija As String
Dim kolichestvo As String
Dim Rukovoditel As String
Dim buhgalter As String
Dim cena As Double
Dim summa As Double
naim = CStr(TextBox1.Text)
mail = CStr(TextBox2.Text)
inn = CStr(TextBox3.Text)
pol = CStr(TextBox4.Text)
bank = CStr(TextBox5.Text)
schet = CStr(TextBox6.Text)
schet1 = CStr(TextBox7.Text)
schet2 = CStr(TextBox8.Text)
schet3 = CStr(TextBox9.Text)
Zakazchik = CStr(TextBox10.Text)
Platelshik = CStr(TextBox11.Text)
nomertovara = CStr(TextBox14.Text)
imjatovara = CStr(TextBox15.Text)
edenicaIzmerenija = CStr(TextBox16.Text)
kolichestvo = CStr(TextBox17.Text)
cena = CStr(TextBox18.Text)
Rukovoditel = CStr(TextBox12.Text)
buhgalter = CStr(TextBox13.Text)
summa = cena * kolichestvo
With objWord.ActiveDocument
.TextBox1.Text = naim
.TextBox2.Text = mail
.TextBox3.Text = inn
.TextBox4.Text = pol
.TextBox5.Text = bank
.TextBox6.Text = schet
.TextBox7.Text = schet1
.TextBox8.Text = schet2
.TextBox9.Text = schet3
.TextBox10.Text = Zakazchik
.TextBox11.Text = Platelshik
.TextBox14.Text = nomertovara
.TextBox15.Text = imjatovara
.TextBox16.Text = edenicaIzmerenija
.TextBox17.Text = kolichestvo
.TextBox18.Text = cena
.TextBox12.Text = Rukovoditel
.TextBox13.Text = buhgalter
.TextBox19.Text = summa
End With
End Sub
Private Sub CommandButton2_Click()
objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
objWord.Application.Quit
Set objWord = Nothing
End Sub
Private Sub UserForm_Initialize()
Dim File As String
File = ThisWorkbook.Path & "\v11.doc"
Set objWord = CreateObject("Word.Application")
With objWord
.Visible = True
.Documents.Open Filename:=File
End With
End Sub |
|
(
