'专案名称:作业2解答

'专案名称:作业2解答 '================================================================================= ============================= '專案名稱:作業2解答 '專案功能: 'No. Author. Date. Command. ' 1. 張萬榮 2005/09/22 '================================================================================= ============================= Option Explicit '強制宣告變數 '================================================================================= ============================= '函式名稱:Form_Click '函式功能: '輸入參數:兩整數,圓半徑,三角形三邊 '輸出參數:無 'No. Author. Date. Command. ' 1. 張萬榮 2005/10/13 '================================================================================= ============================= Private Sub Form_Click() Form1.Cls '清除畫面 Dim intNum1, intNum2 As Integer '宣告兩整數 Dim dblRadius As Double '宣告半徑 Dim dblEdge1, dblEdge2, dblEdge3 As Double '三角形的三個邊 Static PI As Double '圓周率 PI = 3.14159 '-------------------------第一提解答-------------------------- Print "-------------------------第一提解答--------------------------" intNum1 = CInt(InputBox("請輸入第ㄧ個整數: ")) '要求輸入第一個整數 intNum2 = CInt(InputBox("請輸入第二個整數: ")) '要求輸入第二個整數 Print "兩整數的和為:" & intNum1 + intNum2 Print "兩整數的差為:" & intNum1 - intNum2 Print "兩整數的積為:" & intNum1 * intNum2 Print "兩整數的商為:" & intNum1 \ intNum2 Print "兩整數的餘數為:" & intNum1 Mod intNum2 Print vbCrLf '列印換行 '-------------------------第二提解答-------------------------- Print "-------------------------第二提解答--------------------------" dblRadius = CDbl(InputBox("請輸入圓的半徑: ")) '要求輸入圓的半徑 Print "半徑" & dblRadius & "的圓" & "直徑為:" & 2 * dblRadius Print "半徑" & dblRadius & "的圓" & "圓周為:" & 2 * dblRadius * PI Print "半徑" & dblRadius & "的圓" & "面積為:"; dblRadius * 2 * dblRadius * PI Print vbCrLf '列印換行 '-------------------------第三提解答-------------------------- Print "-------------------------第三提解答--------------------------" dblEdge1 = CDbl(InputBox("請輸入第ㄧ個三角形邊: ")) '要求輸入第ㄧ個三角形邊 dblEdge2 = CDbl(InputBox("請輸入第二個三角形邊: ")) '要求輸入第二個三角形邊 dblEdge3 = CDbl(InputBox("請輸入第三個三角形邊: ")) '要求輸入第三個三角形邊 If dblEdge1 + dblEdge2 > dblEdge3 And dblEdge1 + dblEdge3 > dblEdge2 And dblEdge2 + dblEdge3 > dblEdge1 Then '判斷任意兩邊是否大於第三邊 Print "這三個數值可作為三角形的邊長" Else Print "這三個數值不可作為三角形的邊長" End If End Sub