亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

已解決430363個問題，去搜搜看，總會有你想問的

需要在vb中輸入度分秒的函數，請問該怎么操作？

關注

首頁猿問需要在vb中輸入度分秒的函數，請問...

CSS3 .NET

慕田峪7331174 2021-07-20 15:15:55

各位大俠，我想在VB中的一個文本框控件內，輸入度分秒（如1°2′3″）并在另一個文本框內輸出對應的弧度值，這樣的函數怎樣編寫??？

查看完整描述

RISEBY

TA貢獻1856條經驗獲得超5個贊

Private Sub Command1_Click()Dim ADim BDim CConst pi = 3.14159265358979'設置text1的text屬性為"" '在text1輸入的格式為--°--'--''，如果數值為空，請輸入任意個0

1	`If` `Text1.Text =` `""` `Then` `MsgBox` `"請輸入度分秒，注意度用特殊符號表示，不能用句號表示，分可以用英文單引號表示，秒可以用兩個英文單引號表示"A = Split(Text1.Text,` `"°", -1, 1)`

1	`B = Split(A(1),` `"'", -1, 1)`

1	`C = Split(B(1),` `" '' ", -1, 1)`

1	`Text2.Text = Val(A(0)) * pi / 180 + Val(B(0)) * pi / 180 / 60 + Val(C(0)) * pi / 180 / 3600`

1	`End` `Sub`

反對回復 2021-07-25

關注

舉報

0/150

提交

取消

購課補貼
聯系客服咨詢優惠詳情

慕課網APP
您的移動學習伙伴

掃描二維碼
關注慕課網微信公眾號