十進BASICでJavaScriptのeval()関数を呼び出してみました。(^_^; VBScriptのように、あまりいろんなことはできませんが、eval()関数内で代入ができます。(^_^; それから、「Math.」を付けるのが面倒なので、付けなくてもいいように工夫しました。● JsEval1.B…

前回の続きです。(^_^; とりあえず、VBScriptのExecute文とeval()関数を呼び出せば、いろんなことができます。o(^-^)o● VBsEval2.BAS DECLARE EXTERNAL FUNCTION VBs.Eval$, VBs.Eval DECLARE EXTERNAL SUB VBs.Exec DECLARE EXTERNAL FUNCTION qq$,Replace$…

十進BASICでVBScriptのeval()関数を呼び出してみました。(^_^; VBScriptで、代入や関数定義は、Execute文を使いますが、長いので、SUB Exec(s$)としました。 また、Eval()関数は、戻り値として、数値や文字列などを返しますが、ここでは、数値を返すときは、…

辞書式配列の問題を十進BASICで解いてみました。(^_^; と、いうより、Javaから翻訳してみました。(^_^; ABCDEFの６文字を全て使ってできる順列をABCDEFを１番目として、辞書式に並べる時、次の問いに答えよ。 （１）１４０番目の文字列を求めよ。 （２）FBCD…

同じものを含む順列の問題を十進BASICで解いてみました。(^_^; 「MATHEMATICS」の11文字から4文字を取りだして1列に並べる方法は何通りあるか？ と、いうより、Javaから翻訳してみました。(^_^; nextPerm()をJavaから翻訳しようと試みたところ、FUNCTIONが …

ディオファントス方程式の質問を十進BASICで解いてみました。(^_^;●DiophantineEquation.BAS PRINT " a"," b"," c" FOR a=1 TO 7 FOR b=1 TO 7 FOR c=1 TO 7 IF a+b+c=7 AND 30*a+45*b+60*c=300 THEN PRINT a,b,c NEXT c NEXT b NEXT a END●実行結果 a b c 2…