「トリコ仕掛けに明け暮れて」ソースコード

Private Sub Form_Load()

'乱数を使うための準備

Randomize

End Sub

'文章を構成する語彙の準備

Dim term(0 To 200) As String

term(0) = " "
term(1) = "社会の"
term(2) = "皆々様へ"
term(3) = "。"
term(4) = "願います。"
term(5) = "長年"
term(6) = "私の"
term(7) = "身柄を"
term(8) = "人質じかけ"
term(9) = "とした"
term(10) = "。"
term(11) = "長年の"
term(12) = "地下"
term(13) = "かせぎ"
term(14) = "一味"
term(15) = "。"
term(16) = "人食いの"
term(17) = "機械に"
term(18) = "物を言わせて"
term(19) = "兇悪"
term(20) = "働き"
term(21) = "暴れ"
term(22) = "ぐらし"
term(23) = "ですので"
term(24) = "。"
term(25) = "ぜひとも"
term(26) = "警察。庁等の方々や"
term(27) = "皆々様にも"
term(28) = "お願いいたします。"
term(29) = "兇器的"
term(30) = "犯罪団の"
term(31) = "（磁器類にて）"
term(32) = "です。"
term(33) = "半島系"
term(34) = "かも知れません。"
term(35) = "大じかけ"
term(36) = "犯罪業"
term(37) = "らしい"
term(38) = "。"
term(39) = "赤軍的"
term(40) = "地下暴れ"
term(41) = "です。"
term(42) = "長年"
term(43) = "私の体を"
term(44) = "エジキの"
term(45) = "トリコじかけ"
term(46) = "毎日の"
term(47) = "大事件"
term(48) = "国あらし"
term(49) = "一族さん達が"
term(50) = "明け暮れ"
term(51) = "犬畜生の如き"
term(52) = "ざんぎゃく"
term(53) = "戦争的"
term(54) = "大手口を"
term(55) = "用いて"
term(56) = "地下暴れ"
term(57) = "もぐり"
term(58) = "社会"
term(59) = "ダマシ業。"
term(60) = "ヤクザ出の"
term(61) = "毎日"
term(62) = "食い物に"
term(63) = "。"
term(64) = "全国的大災害となっているようですので。"
term(65) = "ぜひ。"
term(66) = "と考えます。"
term(67) = "ヤクザ族ブラック出"
term(68) = "ゴールドあらし"
term(69) = "電波等にて"
term(70) = "非常に困った毎日です。"
term(71) = "三脚男子"

'改行文字
term(72) = "。" & Chr(13) & Chr(10) & " "
term(73) = "。" & Chr(13) & Chr(10) & " "
term(74) = "。" & Chr(13) & Chr(10) & " "

'乱数を用いて語彙をでたらめに１０００語つなげ、テキストボックスに表示する

a = term(0)

For j = 1 To 1000

i = Int(Rnd(1) * 200) + 1
a = a & term(i)
Text1.Text = a
j = j + 1

Next

End Sub

'できた文章をテキストファイルとして保存

Open mypath & "toriko.txt" For Output As #1
txt = Text1.Text
Print #1, txt
Close

End Sub

'バージョン情報の表示

Form2.Show

End Sub