A. 如何利用VB編程,輸入圓的半徑,計算並輸出圓的面積。
可以參考下面的代碼:
Private Sub Command1_Click()
Dim p As Single
Dim s As Single
Dim r As Single
p = 3.1415 '定義周長率的值
r = InputBox("請輸入一個圓的半徑", "輸入", 0) '獲取輸入值
s = p * r ^ 2 '面積公式
c = 2 * p * r '周長公式
MsgBox ("圓的面積為:" & s & "圓的周長為:" & c) '輸出結果
End Sub
(1)編程輸出圓擴展閱讀:
相關參考函數
InputBox 函數: 在對話框中顯示提示信息,等待用戶輸入文本或者單擊按鈕,並返迴文本框的內容。
InStr 函數: 返回一個字元串在另一個字元串中第一次出現的位置。
InStrRev 函數: 返回一個字元串在另一個字元串中出現的位置,是從字元串的末尾算起。
Int 函數 :返回數的整數部分。
整數除法運算符(): 兩數相除,返回的商取其整數部分。
Join 函數: 返回連接許多包含在一個數組中的子串而創建的字元串。