想赋初值可以这样Vars.Add("copyhm",GetType(Byte),CByte(0)) Vars.Add("copyhm",GetType(Byte),CByte(1)) Vars.Add("copyhm",GetType(Short),CShort(1)) 可能是bug Integer变量不能自动传换成Byte型变量 所以用CByte强制转换一下