Основы объектно-ориентированного визуального программирования

программирования

позволяющих творческому человеку всю жизнь развиваться в профессиональном плане и

бесконечно совершенствовать свои навыки (что не может не отразиться на размере доходов).

Position As Long)
If MCIWnd1.Position = MCIWnd1.Length Then
MCIWnd1.Position = 0
MCIWnd1.Command =

"Play"
End If
End Sub

обмена
End Sub
Private Sub Command3_Click()
Clear: Clipboard.Clear 'Очистка буфер обмена (сначала очистка!!!)
End

Sub

Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text =

Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
If Val(Text2.Text) = 0 Then
Label1 = "Деление на ноль"
Else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1 = ""
Text1.SetFocus

End Sub

языке Visual Basic
Демонстрация работы программы (защита проекта)

работы учитель Роговской средней школа Подольского района Московской области
Креков

Иван Васильевич.