Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm icon

Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm



НазваниеПрограмма по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm
Дата конвертации25.10.2012
Размер86.44 Kb.
ТипПрограмма






Курсовая работа на Visual Basic – программа по математике для 4 класса «Сложение и вычитание площадей фигур» http://gamebuilder.narod.ru//2.htm





Сайт программы http://solution.oflameron.ru/


Полный листинг на Visual Basic Form1.frm


VERSION 5.00

Begin VB.Form Form1

BackColor = &H006DECFB&

Caption = "Математика для 4 класса. Вычисление суммы и разности площадей"

ClientHeight = 10755

ClientLeft = 60

ClientTop = 450

ClientWidth = 10650

LinkTopic = "Form1"

ScaleHeight = 10755

ScaleWidth = 10650

StartUpPosition = 3 'Windows Default

Begin VB.CommandButton Command4

Caption = "Load"

BeginProperty Font

Name = "MS Sans Serif"

Size = 9.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6240

TabIndex = 41

Top = 9840

Width = 1215

End

Begin VB.CommandButton Command3

Caption = "Clear"

BeginProperty Font

Name = "MS Sans Serif"

Size = 9.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 4800

TabIndex = 40

Top = 9840

Width = 1335

End

Begin VB.CommandButton Command2

Caption = "Exit"

BeginProperty Font

Name = "MS Sans Serif"

Size = 9.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 3360

TabIndex = 39

Top = 9840

Width = 1335

End

Begin VB.CommandButton Command1

Caption = "Вычислить"

BeginProperty Font

Name = "MS Sans Serif"

Size = 9.
75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1800

TabIndex = 38

Top = 9840

Width = 1455

End

Begin VB.TextBox Text28

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 37

Text = "Text28"

Top = 9120

Width = 1815

End

Begin VB.TextBox Text27

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 36

Text = "Text27"

Top = 8400

Width = 1815

End

Begin VB.TextBox Text26

BackColor = &H00FFC0C0&

Height = 375

Left = 6240

TabIndex = 35

Text = "Text26"

Top = 8400

Width = 1695

End

Begin VB.TextBox Text25

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 34

Text = "Text25"

Top = 7680

Width = 1815

End

Begin VB.TextBox Text24

BackColor = &H00FFC0C0&

Height = 375

Left = 6240

TabIndex = 33

Text = "Text24"

Top = 7680

Width = 1695

End

Begin VB.TextBox Text23

BackColor = &H00C0FFFF&

Height = 375

Left = 4440

TabIndex = 32

Text = "Text23"

Top = 7680

Width = 1695

End

Begin VB.TextBox Text22

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 31

Text = "Text22"

Top = 6960

Width = 1815

End

Begin VB.TextBox Text21

BackColor = &H00FFC0C0&

Height = 375

Left = 6240

TabIndex = 30

Text = "Text21"

Top = 6960

Width = 1695

End

Begin VB.TextBox Text20

BackColor = &H00C0FFFF&

Height = 375

Left = 4440

TabIndex = 29

Text = "Text20"

Top = 6960

Width = 1695

End

Begin VB.TextBox Text19

BackColor = &H00C0FFC0&

Height = 375

Left = 2640

TabIndex = 28

Text = "Text19"

Top = 6960

Width = 1695

End

Begin VB.TextBox Text18

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 26

Text = "Text18"

Top = 6240

Width = 1815

End

Begin VB.TextBox Text17

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 25

Text = "Text17"

Top = 5640

Width = 1815

End

Begin VB.TextBox Text16

BackColor = &H00FFC0C0&

Height = 375

Left = 6240

TabIndex = 24

Text = "Text16"

Top = 5640

Width = 1695

End

Begin VB.TextBox Text15

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 23

Text = "Text15"

Top = 4920

Width = 1815

End

Begin VB.TextBox Text14

BackColor = &H00FFC0C0&

Height = 375

Left = 6240

TabIndex = 22

Text = "Text14"

Top = 4920

Width = 1695

End

Begin VB.TextBox Text13

BackColor = &H00C0FFFF&

Height = 375

Left = 4440

TabIndex = 21

Text = "Text13"

Top = 4920

Width = 1695

End

Begin VB.TextBox Text12

BackColor = &H00C0C0FF&

Height = 375

Left = 8040

TabIndex = 20

Text = "Text12"

Top = 4200

Width = 1815

End

Begin VB.TextBox Text11

BackColor = &H00FFC0C0&

Height = 375

Left = 6240

TabIndex = 19

Text = "Text11"

Top = 4200

Width = 1695

End

Begin VB.TextBox Text10

BackColor = &H00C0FFFF&

Height = 375

Left = 4440

TabIndex = 18

Text = "Text10"

Top = 4200

Width = 1695

End

Begin VB.TextBox Text9

BackColor = &H00C0FFC0&

Height = 375

Left = 2640

TabIndex = 17

Text = "Text9"

Top = 4200

Width = 1695

End

Begin VB.TextBox Text8

BackColor = &H00C0C0FF&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 8040

TabIndex = 11

Text = "124"

Top = 3120

Width = 1815

End

Begin VB.TextBox Text7

BackColor = &H00FFC0C0&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6240

TabIndex = 10

Text = "7"

Top = 3120

Width = 1695

End

Begin VB.TextBox Text6

BackColor = &H00C0FFFF&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 4440

TabIndex = 9

Text = "16"

Top = 3120

Width = 1695

End

Begin VB.TextBox Text5

BackColor = &H00C0FFC0&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2640

TabIndex = 8

Text = "12"

Top = 3120

Width = 1695

End

Begin VB.TextBox Text4

BackColor = &H00C0C0FF&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 8040

TabIndex = 4

Text = "12"

Top = 1920

Width = 1815

End

Begin VB.TextBox Text3

BackColor = &H00FFC0C0&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6240

TabIndex = 3

Text = "74"

Top = 1920

Width = 1695

End

Begin VB.TextBox Text2

BackColor = &H00C0FFFF&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 4440

TabIndex = 2

Text = "12"

Top = 1920

Width = 1695

End

Begin VB.TextBox Text1

BackColor = &H00C0FFC0&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2640

TabIndex = 1

Text = "4"

Top = 1920

Width = 1695

End

Begin VB.Label Label13

BackColor = &H006DECFB&

Caption = "Миллиметров2 ="

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6000

TabIndex = 44

Top = 9120

Width = 1935

End

Begin VB.Label Label12

BackColor = &H006DECFB&

Caption = "Миллиметров2 ="

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6000

TabIndex = 43

Top = 6240

Width = 1935

End

Begin VB.Label Label11

BackColor = &H006DECFB&

Caption = ">>"

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H000000FF&

Height = 375

Left = 7680

TabIndex = 42

Top = 9840

Visible = 0 'False

Width = 615

End

Begin VB.Label Label10

BackColor = &H006DECFB&

Caption = "Разность:"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1080

TabIndex = 27

Top = 6960

Width = 1455

End

Begin VB.Label Label9

BackColor = &H006DECFB&

Caption = "Миллиметров2"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 8040

TabIndex = 16

Top = 1440

Width = 1815

End

Begin VB.Label Label8

BackColor = &H006DECFB&

Caption = "Сантиметров2"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6240

TabIndex = 15

Top = 1440

Width = 1695

End

Begin VB.Label Label7

BackColor = &H006DECFB&

Caption = "Дециметров2"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 4440

TabIndex = 14

Top = 1440

Width = 1695

End

Begin VB.Label Label6

BackColor = &H006DECFB&

Caption = "Метров2"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2640

TabIndex = 13

Top = 1440

Width = 1695

End

Begin VB.Label Label5

BackColor = &H006DECFB&

Caption = "Сумма:"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1080

TabIndex = 12

Top = 4200

Width = 1455

End

Begin VB.Line Line1

X1 = 600

X2 = 10080

Y1 = 3840

Y2 = 3840

End

Begin VB.Label Label4

BackColor = &H006DECFB&

Caption = "Площадь 2"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1080

TabIndex = 7

Top = 3120

Width = 1455

End

Begin VB.Label Label3

BackColor = &H006DECFB&

Caption = "+/-"

BeginProperty Font

Name = "MS Sans Serif"

Size = 18

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 5880

TabIndex = 6

Top = 2520

Width = 615

End

Begin VB.Label Label2

BackColor = &H006DECFB&

Caption = "Площадь 1"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1080

TabIndex = 5

Top = 1920

Width = 1455

End

Begin VB.Label Label1

Alignment = 2 'Center

BackColor = &H006DECFB&

Caption = "Oflameron"

BeginProperty Font

Name = "MS Sans Serif"

Size = 24

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 3960

TabIndex = 0

Top = 480

Width = 2535

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hwnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Const SW_SHOWNORMAL = 1


Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, r, s, t, u, v, w, X, Y, z, mn


Private Sub Command1_Click()

Form_Load

e = a + b + c + d 'Первое значение в МИЛЛИМЕТРАХ

''''Text29.Text = e


j = f + g + h + i 'Второе значение в МИЛЛИМЕТРАХ

''''Text30.Text = j


'Сумма в МИЛЛИМЕТРАХ

k = e + j

Text18.Text = k


'Сумма в САНТИМЕТРАХ и МИЛЛИМЕТРАХ

n = k / 100

o = Int(n) 'Число САНТИМЕТРОВ

Text16.Text = o

p = k - o * 100

Text17.Text = p 'Число МИЛЛИМЕТРОВ


'Сумма в ДЕЦИМЕТРАХ, САНТИМЕРАХ и МИЛЛИМЕТРАХ

r = Int(o / 100) 'Число ДЕЦИМЕТРОВ

Text13.Text = r 'Число ДЕЦИМЕТРОВ

s = o - r * 100

Text14.Text = s 'Число САНТИМЕТРОВ

'p - попрежнему число МИЛЛИМЕТРОВ

Text15.Text = p


'Сумма в МЕТРАХ, ДЕЦИМЕТРАХ, САНТИМЕТРАХ и МИЛЛИМЕТРАХ

t = Int(r / 100) 'Число МЕТРОВ

Text9.Text = t 'Число МЕТРОВ


u = r - t * 100 'Остаток ДЕЦИМЕТРОВ

Text10.Text = u 'Число ДЕЦИМЕТРОВ


Text11.Text = s 'Число САНТИМЕТРОВ

Text12.Text = p 'Число МИЛЛИМЕТРОВ


'Разность в МИЛЛИМЕТРАХ

l = Abs(e - j)

Text28.Text = l


'Разность в САНТИМЕТРАХ и МИЛЛИМЕТРАХ

v = Int(l / 100) 'Число САНТИМЕТРОВ

Text26.Text = v

w = l - v * 100

Text27.Text = w 'Число МИЛЛИМЕТРОВ


'Разность в ДЕЦИМЕТРАХ, САНТИМЕРАХ и МИЛЛИМЕТРАХ

X = Int(v / 100) 'Число ДЕЦИМЕТРОВ

Text23.Text = X 'Число ДЕЦИМЕТРОВ

Y = v - X * 100

Text24.Text = Y 'Число САНТИМЕТРОВ

'w - попрежнему число МИЛЛИМЕТРОВ

Text25.Text = w


'Разность в МЕТРАХ, ДЕЦИМЕТРАХ, САНТИМЕТРАХ и МИЛЛИМЕТРАХ

z = Int(X / 100) 'Число МЕТРОВ

Text19.Text = z 'Число МЕТРОВ


mn = X - z * 100 'Остаток ДЕЦИМЕТРОВ

Text20.Text = mn 'Число ДЕЦИМЕТРОВ


Text21.Text = Y 'Число САНТИМЕТРОВ

Text22.Text = w 'Число МИЛЛИМЕТРОВ


End Sub


Private Sub Command2_Click()

End

End Sub


Private Sub Command3_Click()

a = 0

b = 0

c = 0

d = 0

e = 0

f = 0

g = 0

h = 0

i = 0

j = 0

k = 0

l = 0

m = 0

n = 0

o = 0

p = 0

r = 0

s = 0

t = 0

u = 0

v = 0

w = 0

X = 0

Y = 0

z = 0

mn = 0

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text8.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text16.Text = ""

Text17.Text = ""

Text18.Text = ""

Text19.Text = ""

Text20.Text = ""

Text21.Text = ""

Text22.Text = ""

Text23.Text = ""

Text24.Text = ""

Text25.Text = ""

Text26.Text = ""

Text27.Text = ""

Text28.Text = ""

End Sub


Private Sub Command4_Click()

Call ShellExecute(GetDesktopWindow, "Open", "http://solution.oflameron.ru/", "", "c:\", SW_SHOWNORMAL)

End Sub


Private Sub Form_Load()

a = Val(Text1.Text) 'Сколько квадратных МЕТРОВ - преобразовать в число

a = a * 100 'Пересчитать кважратные метры в квадратные дециметры

a = a * 100 'Пересчитать в квадратные сантиметры

a = a * 100 'Пересчитать в квадратные миллиметры


b = Val(Text2.Text) 'Сколько квадратных ДЕЦИМЕТРОВ - преобразовать в число

b = b * 100 'Пересчитать квадратные дециметры в квадратные сантиметры

b = b * 100 'Пересчитать в квадратные миллиметры


c = Val(Text3.Text) 'Сколько квадратных САНТИМЕТРОВ - преобразовать в число

c = c * 100 'Пересчитать квадратные сантиметры в квадратные милиметры


d = Val(Text4.Text) 'Квадратных МИЛЛИМЕТРОВ - как число


f = Val(Text5.Text) 'Сколько квадратных МЕТРОВ - преобразовать в число

f = f * 100 'Пересчитать кважратные метры в квадратные дециметры

f = f * 100 'Пересчитать в квадратные сантиметры

f = f * 100 'Пересчитать в квадратные миллиметры


g = Val(Text6.Text) 'Сколько квадратных ДЕЦИМЕТРОВ - преобразовать в число

g = g * 100 'Пересчитать квадратные дециметры в квадратные сантиметры

g = g * 100 'Пересчитать в квадратные миллиметры


h = Val(Text7.Text) 'Сколько квадратных САНТИМЕТРОВ - преобразовать в число

h = h * 100 'Пересчитать квадратные сантиметры в квадратные милиметры


i = Val(Text8.Text) 'Квадратных МИЛЛИМЕТРОВ - как число


End Sub


Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label11.Visible = True

End Sub


Private Sub Label11_Click()

Call ShellExecute(GetDesktopWindow, "Open", "http://website.oflameron.ru/", "", "c:\", SW_SHOWNORMAL)

End Sub


Курсовая работа на Visual Basic – программа по математике для 4 класса «Сложение и вычитание площадей фигур» http://gamebuilder.narod.ru//2.htm




Похожие:

Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconСхема анализа выполнения обязательных заданий контрольной по математике для 1-го класса
Выполнили вычисления на табличное сложение и вычитание в пределах 10 правильно чел
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconТема: Сложение и вычитание в пределах 10. Решение задач
Решать задачи на сложение и вычитание, в которых целое разбито на части разными способами
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconН. Г. Волчёнков программирование на visual basic 6 Учебное пособие
Книга содержит описание многих важных идей и методов программирования на современном диалекте языка Бейсик — Visual Basic
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconН. Г. Волчёнков программирование на visual basic 6 Учебное пособие
Книга содержит описание многих важных идей и методов программирования на современном диалекте языка Бейсик — Visual Basic
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconГенератор веб страниц на Visual Basic листинги программы, описание, скриншоты
Генератор веб страниц на Visual Basic
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconБбк 22. 18я7 в 67 Волчёнков Н. Г. в 67 Программирование на Visual Basic 6: в 3-х ч. Часть 3
К большинству задач прилагаются подробные решения — программные коды и описание ин­терфейса в среде проектирования Visual Basic 6...
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconРабочая программа по математике в 8 классе, Петрунина Ивана Николаевича, учителя I квалификационной категории
Данная рабочая программа разработана на основе стандарта основного общего образования по математике, примерной программы по математике...
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconПрограмма для генерации html кода аналитического анализа продвижения сайта. Подробнее см и Описание программы на
Курсовая работа Visual Basic программа для генерации html кода аналитического анализа продвижения сайта. Подробнее см
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconПрактическая работа №1 Графика в Visual Basic 0 Графические методы в дополнение к графическим элементам управления в Visual Basic 6 существует набор графических методов
В дополнение к графическим элементам управления в Visual Basic 6 существует набор графических методов
Программа по математике для 4 класса «Сложение и вычитание площадей фигур» Сайт программы Полный листинг на Visual Basic For frm iconУрок-путешествие Тема: Сложение и вычитание в пределах 10. Цели: 1 повторить состав чисел в пределах 10, сложение и вычитание в пределах 10, решение простых задач
Оборудование: рисунок мореплавателя Намбера, кружочки с числами, рисунок корабля «Дружба», дельфины, замок и ключи, рыбки
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов