Pirmais laboratorijas darbs "Visual Basic"

5. Testpiemēru kopa
Lai pārliecinātos par programmas pareizību izdarīsim sekojošus vienkāršojumus:
Ievadīsim trīs lielumus a,b,c un veiksim salīdzināšanu, lai noskaidrotu, kura no vērtībām ir lielākā un kura mazākā vērtība, un no lielākās vērtības atņemsim mazāko vērtību:
Ja a=1, b=2, c=3, tad D= 3-1=2
Ja a=4, b=2, c=1, tad D=4-1=3
Ja a=5, b=1, c=3, tad D=5-1=4
Ja a=1, b=7,c=2, tad D=7-1=6

6. Programmas pirmteksts
Public Sub RING()
Dim a As Single, b As Single, c As Single
Dim S As Single
Dim Max As Single, Min As Single
a = CSng(InputBox("ievadi a vertibu"))
b = CSng(InputBox("ievadi b vertibu"))
c = CSng(InputBox("ievadi c vertibu"))
' operatora p?rnese uz n?košo rindu
If a > b And a > c Then Max = a
…