VB编程输入圆的的半径r 和一个整型数k,当k=1 时,计算圆的面积