為什麼這篇function複數鄉民發文收入到精華區：因為在function複數這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者PianoSpirit (琴鍵)看板Visual_Basic標題[VB6 ] 求助！自訂變數型態...
function複數 在 辣媽英文天后 林俐 Carol Instagram 的精選貼文
2021-07-06 05:58:15
感謝大家這禮拜對吳迪老師、李傑老師直播秀的支持🙏🏻 俐媽明晚7:30～8:30也要開播了🎉🎉 俐媽要告訴大家上高中基本需要具備的心態、背英文單字的方法、還有學英文需要的一些工具(書/APP)，歡迎三升一孩子參加！ 大家一起一排愛心❤️刷起來！ 今天送上之前預告的數學大餐part 2！ (感謝學...
最近需要寫一份程式，必須可以運算複數的程式。
由於VB似乎沒有內建複數的這種資料型態。
所以我就新增一個模組自訂資料型態 Complex：
Type Complex
r As Single
i As Single
End Type
'------複數相加-----------
Public Function Add(a As Complex, b As Complex) As Complex
Add.r = a.r + b.r
Add.i = a.i + b.i
End Function
'------複數相減-----------
Public Function Subtract(a As Complex, b As Complex) As Complex
Subtract.r = a.r - b.r
Subtract.i = a.i - b.i
End Function
'------複數相乘-----------
Public Function Multiply(a As Complex, b As Complex) As Complex
Multiply.r = (a.r * b.r) - (a.i * b.i)
Multiply.i = (a.r * b.i) + (a.i * b.r)
End Function
'------複數相除-----------
Public Function Divide(a As Complex, b As Complex) As Complex
Dim d As Single
d = b.r * b.r + b.i * b.i
Divide.r = (a.r * a.r + a.i * b.i) / d
Divide.i = (a.i * b.r - a.r * b.i) / d
End Function
問題來了，由於之後的運算需要計算複數的n次方
我現在只會在表單中用下面這樣(例如運算複數x的n次方)，
可是感覺不好，因為n越大就要運算越多次
Dim t as Complex
Dim k as Integer
t = x
For k = 1 to n-1
t = Multiply(x,t)
next k
請問各位有沒有其他方法，或是能直接在模組內設Function就好？
如果是你們會怎麼寫呢？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.230.75