1、中考一般取小数后2位有效数位。Private Sub Form_Click()Const PI = 3.14159265Dim R As SingleDim S As SingleR = InputBox("输入半径R的值:")S = PI * R ^ 2Print "半径R=" & R & "的圆的面积S=" & Format(S, "##.##")End Sub2、你写法有问题应该这样写:(Val(text1.text) + Val(text2.text)) * Val(text3.text) / 2...