用VB语言写小说的原理？

Question

像《宇宙巨校闪级生》

Answer 1

'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、程序生成的文本很多都是词不达意的，所以要进行后期的校对修缮（这是最关键，也是最耗时的阶段），你提到的那个小说其实现在都还在修改中吧。