用VB語言寫小說的原理？

'示例代碼，事先需要建立?配置短語.txt?輸入短語“大地?星星?愛?我們?喜歡?...”等等

'將代碼保存為?.vbs?文件運行

Dim?fso

Set?fso=CreateObject("Scripting.FileSystemObject")

set?frn=fso.opentextfile("配置短語.txt",1)

Randomize

strTemArray=frn.readline

strArray=Split(strTemArray)

''確定數組大小

for?each?key?in?strArray

intCount=intCount+1

next

''隨機輸出數組

Redim?boolStr(intCount-1)

While?count<=(intCount-1)

num=int(rnd*intCount)

if?boolStr(num)=False?then

juzi=juzi?&?strArray(num)

boolStr(num)=True

count=count+1

end?if

Wend

Set?ie=CreateObject("InternetExplorer.Application")

ie.Navigate?"about:blank"

ie.Document.ParentWindow.ClipboardData.SetData?"text",?juzi

Set?WshShell=CreateObject("Wscript.Shell")

WshShell.Run?"Notepad.exe"

WSH.Sleep?100

WshShell.SendKeys?"^(v)"

簡單來說就是三個階段的工作：

1、首先是要建立詞匯字典

比如說人名，形容詞，動詞等等的詞匯集合，

就像有人便翻新華字典，邊給小孩取名字壹樣，字典就是他的詞庫。

這個可以利用詞匯詞典，或者從網上現成的作品中提取來實現，是壹個相對容易的階段。

2、利用 vb（其實任何支持文本操作的 編程語言都可以）建立隨機組合文本的程序。當然還是要有壹個規則，比如：

名詞+動詞+形容詞+動詞+形容詞

或者

人名+動詞+形容詞

（這個階段是個廢腦筋，建立規則的階段，數據庫和代碼的技術相對來說是比較成熟的。）

3、程序生成的文本很多都是詞不達意的，所以要進行後期的校對修繕（這是最關鍵，也是最耗時的階段），妳提到的那個小說其實現在都還在修改中吧。