vb中cint函数用法