バグと思われるものを発見致しましたので報告します。
コード: 全て選択
#console
dim true_ans as char
dim user_ans as char
open "Test.txt" for output as #1
randomize
while -1
true_ans = Fix(Rnd() * 4)
input "数字",user_ans
print #1, true_ans;
print #1, ",";
print #1, user_ans
if true_ans = user_ans then
exit while
else
print "ハズレ"
end if
wend
close #1
Exec "Test.txt"
中身の数値がおかしくなっていました。ちなみに、変数の型
を"integer型"にすると直りました。
バージョンは 4.20.00 です。