基于VB6.0的功率因数计算器,输入P、Q,点击计算即可得出cos (φ)