OptionExplicitConstPi=3.1415926PublicbAsIntegerDimp()AsSingle,q()AsSinglePrivateSubTimer1_Timer()Text1=Rnd*201+100'生成随机数Text2=Rnd*101+20b=b+1ReDimPreservep(b)'定义两个一维数组用以保存生成的随机树ReDimPreserveq(b)p(b