>>719,722
ありがとうございます！
以下のようにしたら十二平均律の周波数を算出できました。

Dim i As Integer, fr(12) As Double
For i = 0 To 12
　　　　fr(i) = Math.Pow(Math.Pow(2, i), 1.0 / 12.0)
Next