|
|
RANDOMIZE
LET A$="0123456789"
LET B$="abcdefghijklmnopqrstuvwxyz"
LET C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
LET D$="!#$%&'()=~\|/*-+.?_<>"
PRINT "数字のみ(1)"
PRINT "アルファベット小文字のみ(2)"
PRINT "アルファベット大文字のみ(3)"
PRINT "記号のみ(4)"
PRINT "数字+アルファベット小文字(5)"
PRINT "数字+アルファベット小文字+アルファベット大文字(6)"
PRINT "数字+アルファベット小文字+アルファベット大文字+記号(7)"
INPUT PROMPT "MODE=":MODE$
IF MODE$="" THEN LET MODE=5 ELSE LET MODE=VAL(MODE$)
SELECT CASE MODE
CASE 1
LET S$=A$
CASE 2
LET S$=B$
CASE 3
LET S$=C$
CASE 4
LET S$=D$
CASE 5
LET S$=A$&B$
CASE 6
LET S$=A$&B$&C$
CASE 7
LET S$=A$&B$&C$&D$
CASE ELSE
LET S$=A$&B$
END SELECT
INPUT PROMPT "文字数<(0,RET=任意> =":N$
PRINT
FOR J=1 TO 10
IF N$="" OR N$="0" THEN LET N=INT(RND*16)+4 ELSE LET N=VAL(N$)
LET L$=""
FOR I=1 TO N
LET K=INT(RND*LEN(S$))+1
LET L$=L$&S$(K:K)
NEXT I
PRINT L$
NEXT J
END
|
|