【正文】 tion jdzh(jd, Optional srdw% = 0, Optional scdw% = 0)Const pi = 39。定義常量piDim d%, f%, m, fh%fh = Sgn(jd) 39。獲取輸入角度的正負(fù)號(hào)jd = Abs(jd) 39。取輸入角度的絕對(duì)值39。將輸入角度單位首先轉(zhuǎn)換為分Select Case srdwCase 0 39。d = Int(jd) 39。提取度f(wàn) = Int((jd d) * 100) 39。提取分m = ((jd d) * 100 f) * 100 39。提取秒jdzh = d + f / 60 + m / 3600 39。得到角度總和，單位為度Case 1 39。輸入單位為度jdzh = jdCase Else 39。輸入單位為弧度jdzh = jd * 180 / piEnd Select39。輸出角度單位Select Case scdwCase 0 39。輸出單位轉(zhuǎn)換為弧度jdzh = jdzh * pi / 180 * fhCase 1 39。輸出單位為度jdzh = jdzh * fhCase 2 39。輸出單位為分jdzh = jdzh * 60 * fhCase 3 39。輸出單位為秒jdzh = jdzh * 3600 * fhCase Else 39。d = Int(jdzh) 39。提取度f(wàn) = Int((jdzh d) * 60) 39。提取分m = ((jdzh d) * 60 f) * 60 39。提取秒jdzh = (d + f / 100 + m / 10000) * fhEnd SelectEnd Function（4） 運(yùn)行結(jié)果實(shí)驗(yàn)五 平面多邊形周長(zhǎng)與面積計(jì)算（1） 原理在測(cè)量工作中，往往會(huì)涉及利用拐點(diǎn)坐標(biāo)進(jìn)行平面多邊形周長(zhǎng)和面積的計(jì)算問(wèn)題。假如有一n邊形，其拐點(diǎn)坐標(biāo)分別為（x1,y1），（x2,y2），…，（xn,yn），則其周長(zhǎng)和面積計(jì)算的公式分別為：1. 周長(zhǎng)公式：在解算多邊形周長(zhǎng)時(shí)，顯然周長(zhǎng)即為各條邊邊長(zhǎng)之和。單邊邊長(zhǎng)計(jì)算式為： （i=1,2,…,n）其周長(zhǎng)計(jì)算式為：2. 面積公式：利用計(jì)算公式和計(jì)算機(jī)圖形繪制的知識(shí)，通過(guò)編寫代碼完成計(jì)算。實(shí)地某點(diǎn)P轉(zhuǎn)換到計(jì)算機(jī)屏幕坐標(biāo)系中的轉(zhuǎn)換公式：測(cè)量坐標(biāo)到屏幕坐標(biāo)換算的比例系數(shù)為：式中，（X,Y）為點(diǎn)P測(cè)量坐標(biāo)系中的坐標(biāo)；（minX,minY）為要顯示區(qū)域的最小測(cè)量坐標(biāo)（左下角）；（maxX,maxY）為最大測(cè)量坐標(biāo)（右下角），（Xs,Ys）為P點(diǎn)在計(jì)算機(jī)屏幕顯示區(qū)的屏幕坐標(biāo)，（minXs,minYs）為屏幕顯示區(qū)的最小坐標(biāo)（左下角），（maxXs,maxYs）為屏幕顯示區(qū)的最大坐標(biāo)（右下角）。（2） 屬性設(shè)置窗體、框架等控件屬性設(shè)置默認(rèn)控件名設(shè)置的控件名（Name）標(biāo)題（Caption）From1frm_zcymjjs平面多邊形周長(zhǎng)與面積計(jì)算（彭思強(qiáng)）Frame1Frame1計(jì)算結(jié)果Command1Cmd_dqsj讀取數(shù)據(jù)Command2Cmd_txhz圖形繪制Command3Cmd_js周長(zhǎng)與面積計(jì)算Picture1Picture1—Label1Lbl_sjgs數(shù)據(jù)格式（點(diǎn)名，X坐標(biāo)，Y坐標(biāo)）Text1Txt_xx無(wú)定義CommonDialog1CDg1無(wú)定義窗體界面中各框架內(nèi)控件屬性設(shè)置框架默認(rèn)控件名設(shè)置的控件名（Name）標(biāo)題（Caption）Frame1（Caption=“計(jì)算結(jié)果”）Label2Lbl_zc周長(zhǎng)：Label3Lbl_mj面積：Text2Txt_zc無(wú)定義Text3Txt_mj無(wú)定義（3） 程序代碼Option Explicit 39。強(qiáng)制變量聲明Option Base 1Dim s%, bz%Dim dh$(), x(), y()39。Cmd_dqsj_Click()事件讀取面積計(jì)算的坐標(biāo)數(shù)據(jù)Private Sub Cmd_dqsj_Click()Dim jl$, n%, gcsj$() = 1 = 文本文件| *.dat 39。訪問(wèn)文件bz = 0If ThenOpen For Input As 1s = 0Txt_xx = Do While Not EOF(1) 39。檢查指針是否到達(dá)文件尾部Line Input 1, jlIf Trim(jl) Thenjl = Replace(jl, , ,) 39。將兩個(gè)逗號(hào)用一個(gè)逗號(hào)替換gcsj = Split(jl, ,)n = UBound(gcsj, 1)If n = 2 ThenIf IsNumeric(gcsj(1)) And IsNumeric(gcsj(2)) Thenbz = 1s = s + 139。讀取數(shù)據(jù)（點(diǎn)號(hào)，x坐標(biāo)，y坐標(biāo)）ReDim Preserve dh(s)ReDim Preserve x(s)ReDim Preserve y(s)dh(s) = gcsj(0)x(s) = Val(gcsj(1))y(s) = Val(gcsj(2))Txt_xx = Txt_xx + Trim(jl) + vbCrLfElseTxt_xx = bz = 2MsgBox 數(shù)據(jù)或格式有誤！Exit DoEnd IfElseTxt_xx = bz = 2MsgBox 數(shù)據(jù)或格式有誤！Exit DoEnd IfEnd IfLoopIf bz = 1 ThenTxt_xx = Txt_xx + 讀入的圖形為 + Str(s) + 邊形End IfMsgBox 讀取數(shù)據(jù)完畢Close 1End IfReDim Preserve dh(s + 1)ReDim Preserve x(s + 1)ReDim Preserve y(s + 1)dh(s + 1) = dh(1): x(s + 1) = x(1): y(s + 1) = y(1)End Sub39。Cmd_txhz_Click()事件完成圖形繪制Private Sub Cmd_txhz_Click()If bz 1 Or s 4 ThenMsgBox 沒(méi)有打開(kāi)正確的文件Exit SubEnd IfDim i%, sx, sy, sxyDim minx, maxx, miny, maxyDim maxxs, maxys, minxs, minysDim vw, vhDim xx(), yy()ReDim xx(s + 1): ReDim yy(s + 1)minx = x(1): miny = y(1): maxx = x(1): maxy = y(1)For i = 2 To sIf minx x(i) Thenminx = x(i)End IfIf maxx x(i) Thenmaxx = x(i)End IfIf miny y(i) Thenminy = y(i)End IfIf maxy y(i) Thenmaxy = y(i)End IfNext imaxxs = / 10 39。屏幕區(qū)的最大坐標(biāo)maxys = / 10 39。屏幕區(qū)的最大坐標(biāo)minxs = / 10 39。屏幕區(qū)的最小坐標(biāo)minys = / 10 39。屏幕區(qū)的最小坐標(biāo)sx = (maxxs minxs) / (maxy miny) 39。測(cè)量坐標(biāo)到屏幕坐標(biāo)換算的比例系數(shù)sy = (maxys minys) / (maxx minx) 39。測(cè)量坐標(biāo)到屏幕坐標(biāo)換算的比例系數(shù)sxy = sx 39。取兩個(gè)中較小的一個(gè)系數(shù)If sxy sy Thensxy = syEnd IfReDim xx(1 To s + 1), yy(1 To s + 1)For i = 1 To sxx(i) = minxs + (y(i) miny) * sxy 39。計(jì)算機(jī)屏幕坐標(biāo)系中的坐標(biāo)yy(i) = maxys (x(i) minx) * sxy 39。計(jì)算機(jī)屏幕坐標(biāo)系中的坐標(biāo)Next ixx(s + 1) = xx(1): yy(s + 1) = yy(1)For i = 1 To s (xx(i), yy(i))(xx(i + 1), yy(i + 1)) 39。畫(huà)直線 = 0 = vbRed 39。填充顏色 (xx(i), yy(i)), 30, vbRed 39。畫(huà)點(diǎn) = 15 dh(i)Next iEnd Sub39。Cmd_js_Click()事件完成周長(zhǎng)與面積計(jì)算Private Sub Cmd_js_Click()If bz 1 Or s 4 ThenMsgBox 沒(méi)有打開(kāi)正確的文件Exit SubEnd IfDim p, zc, i%, j%zc = 0p = 0For i = 1 To szc = zc + Sqr((x(i + 1) x(i)) ^ 2 + (y(i + 1) y(i)) ^ 2) 39。計(jì)算周長(zhǎng)p = p + (x(i + 1) + x(i)) * (y(i + 1) y(i)) / 2 39。計(jì)算面積Next iTxt_zc = Format(Abs(zc), ) 39。保留三位小數(shù)Txt_mj = Format(p, ) 39。保留三位小數(shù)End Sub（4）運(yùn)行結(jié)果29