計算圓周長與面積(2)

。計算圓周長與面積(2)

教學範例《２》…計算圓周長與圓面積(2)

表單設計與程式執行:

表單設計

執行畫面

表單設計

執行畫面

控制項屬性資料:

Form1 : 調整表單視窗的大小,使Width和Height合乎適當大小。
Label1 : Caption "圓半徑="
Label2 : Caption "圓周長="
Label3 : Caption "圓面積="
Text1: Alignment "2-置中對齊",Text ""
Text2: Alignment "2-置中對齊",Text ""
Text3: Alignment "2-置中對齊",Text ""

程式碼列表:

Private Sub Command1_Click()
End
End Sub
Private Sub Text1_Change()
PI = 3.1416

R = Val(Text1.Text)

C = 2 * PI * R
A = PI * R ^ 2

Text2.Text = Str(C)
Text3.Text = Str(A)

End Sub

程式解說:

學習重點:
  ˙在這個程式中,主要讓學生學習TextBox控制項的基本操作。
  ˙Val()函數→將文字型轉換為數字型。
  ˙Str()函數→將數字型轉換為文字型。
  ˙在獨立副程式Text1_Change()中;只要在Text1的文字框中,直
    接填入圓半徑數值,即可在Text2與Text3文字框中顯示圓周長
    與圓面積數值。
程式說明:
  (1)PI=圓周率
  (2)將Text1文字框內數值經Val函數轉換為半徑R數值。
  (3)計算圓周長C與圓面積A。
  (4)將C值經Str函數轉換為文字型,填入Text2中。
  (5)將A值經Str函數轉換為文字型,填入Text3中。
  Command1按鈕,僅有一指令"End"為程式結束。