VBA/Excel/Access/Word/Language Basics/Debug.Print

Материал из VB Эксперт
Перейти к: навигация, поиск

Tools for Debugging Code

   <source lang="vb">

Sub addNumbers()

  Dim intNumber1 As Integer
  Dim intNumber2 As Integer
  Dim intSum As Integer
  intNumber1 = 5
  intNumber2 = 3
  intSum = intNumber1 + intNumber2
  Debug.Print "The sum of the two numbers is: " & intSum

End Sub

</source>
   
  


Use Debug.Print to output the message to the immediate window

   <source lang="vb">

Sub addNumbers1()

  "Declare the variables
  Dim intNumber1 As Integer
  Dim intNumber2 As Integer
  Dim intSum As Integer
  "Create InputBoxes to enter numbers
  intNumber1 = 1
  intNumber2 = 2
  "Add numbers
  intSum = intNumber1 + intNumber
  Debug.Print "The numbers entered were " & intNumber1 & " and " & intNumber2

End Sub

</source>