- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
606 ：デフォルトの名無しさん[sage]：2015/08/20(木) 19:54:27.49 ID:MPj4cmUO - ＞＞595 FreeBasic
Dim i As Integer
Dim j As Integer
Dim No As Integer
Dim Moji(1 To 4) As String =>{"進捗","どう","です","か"}
Randomize , 0
j = 0
Do
Do
i = Int(Rnd*10)+1
Loop While i>4
i = i Mod 10
Select Case As Const i
Case 1,2,3
no = no + 2
Case 4
no = no + 1
End Select
Print Moji(i);
j =(10*j+i)
j = j Mod 10000
' Print i, j
Loop While (j <>1234)
Print "???"; no;
Print "文字で煽られました"
sleep
End
どう進捗どう進捗ですどうどうですかですか進捗かか進捗ですかか進捗どうですか??? 37文字で煽られました
|