Page 39 - ePB316_最佳案例 Visual Basic 2017 程式設計

Chapter 02 │基本語法

程式列印

Module Module1
Sub Main()
Dim a, b, c As Short
a = 3
b = 4
c = 5
Dim d, s As Single
d = (a + b + c) / 2
s = (d * (d - a) * (d - b) * (d - c)) ^ (1 / 2)
Console.WriteLine(s)
End Sub
End Module

動手做

1. 平面座標兩點的距離 d。

令 x1 = 3、y1 = 0、x2 = 0、y2 = 4，則兩點距離 d = (x1 – x2) + (y1 – y2) ，
2
2
請於主控台應用程式執行結果。
2. 一元二次方程式 ax + bx + c = 0 的解。
2
2
2
– b + b – 4ac – b – b – 4ac
令 a = 2、b = –5、c = 2，則 x1 = 、x2 = ，
2a 2a
請於主控台應用程式執行結果。

2-5cાࠑၾ༶ၑό

ɓeાࠑ€Statement

ɭ݊છՓੂБٙනҏe࿁༶ၑό՟࠽אʔЪ΂Оԫdѩ̙၈މાࠑא௓ࠑόf

˸ɨόɿу݊ɓࡈાࠑf

sum = sum + 1

31