要加上end sub 时发现end function只能在最后一行，end sub加哪啊？

Question

Private Sub CommandButton1_Click()Private Function AddLWPlineArc(ByVal ptCen As Variant, ByVal radius As Double, ByVal angleSt As Double, ByVal angleEn As Double, ByVal width As Double) As AcadLWPolylineDim objPline As AcadLWPolylineDim ptCen(0 To 1) As VariantDim radius As DoubleDim angleSt As DoubleDim angleEn As DoubleDim width As DoubleptCen(0) = Val(TextBox8.Text)ptCen(1) = Val(TextBox7.Text)radius = Val(TextBox3.Text)angleSt = Val(TextBox4.Text)angleEn = Val(TextBox5.Text)wdth = Val(TextBox6.Text)Dim ptArr(0 To 3) As DoubleptArr(0) = ptCen(0) + radius * Cos(angleSt)ptArr(1) = ptCen(1) + radius * Sin(angleSt)ptArr(2) = ptCen(0) + radius * Cos(angleEn)ptArr(3) = ptCen(1) + radius * Sin(angleEn)Set objPline = ThisDrawing.ModelSpace.AddLightWeightPolyline(ptArr)objPline.ConstantWidth = widthIf angleEn < angleSt ThenangleSt = angleSt - 8 * Ant(1)End IfobjPline.SetBulge 0, Tan((angleEn - angleSt) / 4)objPline.SetBulge 1, 0objPline.UpdateSet AddLWPlineArc = objPlineEnd Function

Answer 1

不能嵌套，只能引用。可以把函数写在过程下面，然后在SUB过程中使用此函数。

Answer 2

一般和Private Sub 对应 你加在最后