超好玩有意思小闹钟程序 Private Sub cmdCalc_Click() B = Val(txtB.Text) L = Val(txtL.Text) X = Val(txtX.Text): Y = Val(Mid(txtY.Text, 3)) '根据椭球进行投影计算 If optTran.Value = True Then '正算 N = (L + lenL / 2) \ lenL ProXYTwo Val(txtTa.Text), Val(txtTb.Text), B, L Y = Y + N
