产生5到46之间随机整数的VB表达式