尋求解VB的高手(遺漏部分的補充版本)

Question

題目:
試寫一個名稱為PloyAdd的Sub程序,該程序有三個引數,前面兩個引數為相加的陣列,第三個為相加傳回的陣列。若三個陣列都是含有五個陣列元素,欲相加的陣列分別由鍵盤輸入到陣列中,經過呼叫PloyAdd程序,將兩個陣列相加,再將相加後的結果傳回主程式的陣列中,再顯示相加的結果。
解答:
Module Module1

Sub Main()
Dim x As Integer() = New Integer(4) {}
Dim y As Integer() = New Integer(4) {}
Dim z As Integer() = New Integer(4) {}
For i As Integer = 0 To x.Length - 1
Console.Write("x({0})=", i)
x(i) = Val(Console.ReadLine)
Next
Console.WriteLine()
For i As Integer = 0 To y.Length - 1
Console.Write("y({0})=", i)
y(i) = Val(Console.ReadLine)
Next
Console.WriteLine()
Console.WriteLine("x陣列+y陣列=z陣列")

PloyAdd(x, y, z)
For i As Integer = 0 To z.Length - 1
Console.WriteLine("z({0})={1}", i, z(i))
Next
Console.Read()
End Sub

Sub PloyAdd(ByVal a As Integer(), ByVal b As Integer(), ByRef c As Integer())
For i As Integer = 0 To a.Length - 1
c(i) = a(i) + b(i)
Next

End Sub


End Module

我要解題的重點在於如果把題目中所有相加改成相減,而且只要改解答裡面的某一部份,改成用system array 來完成解答,請問有人可以解開這題到底要如何更改嗎?因為這題的解答是我從課本中抄下來的,可是我還是完全看不懂在解什麼,但是老師要求不要照課本相加,把它通通相加的改成相減,請各位大大幫幫忙!!謝謝!因為我有發問兩題的內容相似,所以在這題回答跟上一題回答我都一起把點數送給最佳答案的大大,所以幫我成功解了這題等於是賺到20+10點的點數~~~

Answer 1

首先 你這個應該不是 VB 吧
我可以幫忙加點註解
改成相減
但是我不知道你的 system array 是什麼

Sub Main()

Dim x As Integer() = New Integer(4) {} ' 宣告五個陣列元素的陣列
Dim y As Integer() = New Integer(4) {}
Dim z As Integer() = New Integer(4) {}

' 讀入 x 陣列的五個陣列元素
For i As Integer = 0 To x.Length - 1 ' 從 0 到 4 (x.Length - 1) 共 5 個
Console.Write("x({0})=", i) ' 提示輸入 x 陣列的第 i 個元素
x(i) = Val(Console.ReadLine) ' 讀入 x 陣列的第 i 個元素
Next
Console.WriteLine() ' 跳一行

' 讀入 y 陣列的五個陣列元素
For i As Integer = 0 To y.Length - 1
Console.Write("y({0})=", i) ' 提示輸入 y 陣列的第 i 個元素
y(i) = Val(Console.ReadLine) ' 讀入 y 陣列的第 i 個元素
Next
Console.WriteLine() ' 跳一行

' 顯示將要做什麼
' 如果你要做相減, "+y陣列" 要改成 "-y陣列"
Console.WriteLine("x陣列+y陣列=z陣列")

PloyAdd(x, y, z) ' 叫副程式
' 印出結果
For i As Integer = 0 To z.Length - 1
Console.WriteLine("z({0})={1}", i, z(i))
Next

Console.Read()
End Sub

' 要做相減, "+ b(i)" 要改成 "- b(i)"
Sub PloyAdd(ByVal a As Integer(), ByVal b As Integer(), ByRef c As Integer())
For i As Integer = 0 To a.Length - 1
c(i) = a(i) + b(i)
Next

希望對你有幫助