2011-05-04 26 views
0

大家好,我是 我還在爲此工作。我有幾個問題。我開始瞭解更多。我不明白,唯一的問題是這樣的......函數和寫入程序

從主程序調用哪個計算 並返回該 「斜邊」等於平方根(x的平方 值的 功能程序+ y平方)。您將 必須將x和y的值傳遞給 此函數過程。 程序應計算並返回 一個雙重類型的值。該功能程序 返回的值 應該等於 (x平方+ y平方)的平方根。也從 主程序調用子程序到 顯示x,y和斜邊的值。

這只是通過我。這裏是我到目前爲止。現在我會在x中聲明這個,還是應該把x和y放在一起?

Option Strict On 
Option Explicit On 
Module Module1 
Sub Main() 
    Dim x As Double = width() 
    Dim y As Double = height(x) 
    Console.Read() 
End Sub 
Private Function width() As Double 
    Dim x As Double 
    x = Convert.ToDouble(Console.ReadLine()) 
    Return x 
End Function 
Private Function height(ByVal x As Double) As Double 
    Dim y As Double 
    y = Convert.ToDouble(Console.ReadLine()) 
    Return y 
End Function 
Private Sub hypotenuse(ByVal x As Double, ByVal y As Double) 
    y = Math.Sqrt(x squared + y squared) 
    Console.WriteLine(x & " X = " & y & " Y") 
End Sub 


End Module 

回答

0

您已經擁有寬度和高度。現在你需要計算斜邊 - 你已經有了公式,你只需要把它翻譯成代碼(因爲這是作業,我不打算給它:-))。將結果存儲在另一個Double中。

然後調用一個過程(您仍然需要創建),在這裏傳遞三個值並打印它們(Console.Write/Console.WriteLine)。

0

(x squared + y squared)只在問題陳述中有意義並且不合法vb代碼。您需要將其轉換爲工作表達式。我也不喜歡你怎麼做y = the hipotenuse。創建一個新的變量,而不是破壞你的輸入。 (因爲你也想使用x和y後者,如Console.Writeline所示)