MOJI$が数字ではなかった場合に、繰り返すにはどうしたらいいですか？

数字ってか整数? 小数? 一文字の数字? 符号は? 指数表記 1.3e-33 とかは? def isdigit(s$) '一文字の数字 return len(s$)==1 && s$[0] >= "0" && s$[0] end def isuint(s$) '符号無し整数 var i=0, l=len(s$) while i<l && isdigit(s$[i]) i=i+1 wend return i>=l end

あらバグってた。2行目は return len(s$)==1 && s$[0] >= "0" && s$[0]<="9" です。 繰り返しの部分はこう。 repeat input "数字を入れてね", moji$ until isuint(moji$) 符号付きや小数の判定はご要望があれば。

みたことない関数だらけだ… あ、ありがとうございます…頑張ってみます！……ピコピコ…

場合によりますが、よくある手は、 MOJI$ != STR$(VAL(MOJI$)) MOJI$を数値化して再び文字列にすると、数値の場合は同じ値が返るはず、って理屈です。

それが一番簡単で最適なのかな…

VAL(MOJI$) && MOJI$=="0" でいいような （数値化して0以外か、MOJI$が0のとき）

成程!!!!!

あ、&&じゃだめじゃん||だ

へー、val ってそんなヤツなんだ と思っていろいろ試したら ? val(".1(-_-)") 0.1

!?

@0 INPUT MOJI$ IF STR$(VAL(MOJI$))!=MOJI$GOTO@0 って既に