PC-DMIS Help Center - 2022.1
Click here to see this page in full context

Example - Cos Function

  1. Sub Main()

    1. Dim I As Single ' Declare variables.

      For I =1 To 10

      1. Msg = Msg & Cos(I) & ", " 'Cos Function Call

      Next I

      MsgBox Msg ' Display results.

    End Sub