RISEBY
Private Sub Command1_Click()Dim ADim BDim CConst pi = 3.14159265358979'设置text1的text属性为"" '在text1输入的格式为--°--'--'',如果数值为空,请输入任意个01If Text1.Text = "" Then MsgBox "请输入度分秒,注意度用特殊符号表示,不能用句号表示,分可以用英文单引号表示,秒可以用两个英文单引号表示"A = Split(Text1.Text, "°", -1, 1)1B = Split(A(1), "'", -1, 1)1C = Split(B(1), " '' ", -1, 1)1Text2.Text = Val(A(0)) * pi / 180 + Val(B(0)) * pi / 180 / 60 + Val(C(0)) * pi / 180 / 36001End Sub