例文ですね。では軽く書いてみます。 CLS DIM TE$[3] FOR I=0 TO 2 READ TE$[I] NEXT PRINT "ジャン、ケン、 ";TE$[RND(3)] END DATA "グー","チョキ","パー" DATAとREADはワンセットで覚えるといいですよ。