vb定义全局变量并赋值