```language Function 随机话术() Dim 话术=array("话术1","话术2","话术3") 随机话术= 话术(Int(3 * Rnd())) End Function ```