VBA と JIS Full BASIC

質問

下のJIS Full Basic スタイルとだいたい同じようなコードを VBA で書いたのですが
　　Z = Sqr(x^2 + y^2)
のところでエラーが出ます。どこがおかしいのでしょうか。

Function gcd(a, b)
　 Do While b <> 0
　　　r = a Mod b
　　　a = b
　　　b = r
　 Loop
　 gcd = a
End Function

Rem 既約なピタゴラス数を求める
Sub Pythagoras()
　LAST = 200

　 LAST = 200
　 For x = 1 To LAST
　　　For y = x + 1 To LAST
　　　　 Z = Sqr(x^2 + y^2)　　　　　　'ここでコンパイルエラーが出る
　　　　 If Int(Z) = Z Then
　　　　　　If gcd(x, y) = 1 And gcd(x, z) = 1 And gcd(y, z) = 1 Then
　　　　　　　 Debug.Print x & ", " & y & ", " & z
　　　　　　End If
　　　　 End If
　　　Next y
　 Next x
End Sub
----------------------------
JIS Full Basic スタイルのコード
REM ピタゴラス数
FUNCTION gcd(a,b)
　 DO WHILE b <> 0
　　　LET r = MOD(a,b)
　　　LET a = b
　　　LET b = r
　 LOOP
　 LET gcd = a
END FUNCTION

LET LAST = 200

FOR x = 1 TO LAST
　 FOR y = x + 1 TO LAST
　　　LET z = SQR(x^2+y^2)
　　　IF INT(z) = z THEN
　　　　 IF gcd(x,y) = 1 AND gcd(x,z) = 1 AND gcd(y,z) = 1 THEN
　　　　　　PRINT x,y,z
　　　　 END IF
　　　END IF
　 NEXT y
NEXT x

END

回答No.4

hahaha8635 · ベストアンサー

Public Function 関数名(ByVal 引数名 As データ型) As 戻り値のデータ型
.................
..............
.................
Return 戻り値
End Function

https://www.adonetvb.com/Learning/FunctionProcedure.html

お礼

ありがとうございました。

回答No.3

kawais070_1

JIS Full Basic をよく知らないけど、関数は値渡しなのかな？VBAだと、参照渡しがデフォルト動作なのよね。

そんなわけで、
　Function gcd(a, b)
これ↑は、
　Function gcd(ByVal a, ByVal b)
というように変えて、値渡しであることを明記しないとダメだと思いました。

回答No.2

kawais070_1

https://social.msdn.microsoft.com/Forums/ja-JP/a463b4ef-aa3c-4742-a122-35f5eac85f2e/vba199781239112398320472005565288124091236520055652891239812456?forum=vbajp
上記のページを見て初めて知りましたが、 ^ は64ビット環境だと、LongLongのサフィックスなんですね。
べき乗として使うには、^ の前にスペースが要るということで。

補足

貴重な情報まことにありがとうございます。
　 Dim x As Double, y As Double, z As Double
　 z = Sqr(x*x + y*y)
としてみましたが、やはり暴走します。うーん？

回答No.1

kawais070_1

Z = Sqr(x^2 + y^2)
上記の行を
Z = Sqr(CDbl(x)^2 + CDbl(y)^2)
と変更すればよいかも。
Integerで計算されてしまい、オーバーフローしているのかなと思いました。

補足

すばやい回答まことにありがとうございます。
　　Z = Sqr(CDbl(x)^2 + CDbl(y)^2)
でやったのですが、暴走しました（笑）。
　元に戻して
　 Dim x As Double, y As Double, z As Double
としてみましたが、やはりコンパイルエラーが出ます。
　VBA も BASIC も久しぶりに触るので、どこか見落としがあるのかも知れません。BASIC の方は期待通りに動くのですけどね。