vb程序生成10随机数