求VB简单随机数字生成器代码？PrivateSubForm_Load()'初始化随机数发生器RandomizeEndSubPrivateSubCommand1_Click()'生成6位随机数Text1.Text=...