Page 92 - 4192
P. 92

Рисунок 4.5 – Блок-схема алгоритму.

                Програмний код:
                Private Sub Command1_Click()
                Dim a, b As Single
                a = Val(Text1)
                b = Val(Text2)
                If a = b Then
                        Print "a=b"
                            Else     If a = b Then
                         Print "Більше a="; a
                             Else
                          Print "Більше b="; b
                End If
                End Sub


                                              91
   87   88   89   90   91   92   93   94   95   96   97