Основы программирования на VBA. Регеда В.В - 64 стр.

UptoLike

Составители: 

Вставить в окно кода для Form2 из буфера обмена следующие пять
процедур, которые уже использовались в Form1:
' Процедура суммирования
Private Sub CmdPlus_Click()
TextBox3.Text=Val(TextBox1.Text)+Val(TextBox2.Text)
End Sub
' Процедура вычитания
Private Sub CmdMinus_Click()
TextBox3.Text=Val(TextBox1.Text)-Val(TextBox2.Text)
End Sub
' Процедура умножения
Private Sub CmdUmn_Click()
TextBox3.Text=Val(TextBox1.Text)*Val(TextBox2.Text)
End Sub
' Процедура деления
Private Sub CmdDelen_Click()
TextBox3.Text=Val(TextBox1.Text)/Val(TextBox2.Text)
End Sub
' Процедура выхода
Private Sub CmdExit_Click()
End
End Sub
4) Для корректной работы программы необходимо в разделе опи-
сания переменных модуля объявить переменные, используемых в них:
'Переменные уровня модуля
Dim bytA As Byte
Dim strA1 As String
Dim strA2 As String
Private i As Integer
Private j As Integer
Private Среднее As Double
Dim v As Integer
5) Два элемента управления ListBox (Список) и ComboBox
(Комбинированное поле) будут использоваться в программе для формиро-
вания возможных вариантов исходных данных для работы калькулятора.
      Вставить в окно кода для Form2 из буфера обмена следующие пять
процедур, которые уже использовались в Form1:
       ' Процедура суммирования
      Private Sub CmdPlus_Click()
TextBox3.Text=Val(TextBox1.Text)+Val(TextBox2.Text)
      End Sub
      ' Процедура вычитания
      Private Sub CmdMinus_Click()
TextBox3.Text=Val(TextBox1.Text)-Val(TextBox2.Text)
      End Sub
      ' Процедура умножения
      Private Sub CmdUmn_Click()
TextBox3.Text=Val(TextBox1.Text)*Val(TextBox2.Text)
      End Sub
      ' Процедура деления
      Private Sub CmdDelen_Click()
TextBox3.Text=Val(TextBox1.Text)/Val(TextBox2.Text)
      End Sub
      ' Процедура выхода
      Private Sub CmdExit_Click()
      End
      End Sub
      4)    Для корректной работы программы необходимо в разделе опи-
сания переменных модуля объявить переменные, используемых в них:
      'Переменные уровня модуля
            Dim bytA As Byte
            Dim strA1 As String
            Dim strA2 As String
            Private i As Integer
            Private j As Integer
            Private Среднее As Double
            Dim v As Integer
      5)    Два элемента управления ListBox (Список) и ComboBox
(Комбинированное поле) будут использоваться в программе для формиро-
вания возможных вариантов исходных данных для работы калькулятора.