vb中boolean的用法举例