高手帮忙啊

Question

http://hi.baidu.com/princessakura/album/item/c56dc709536eac2a95ca6bd6.html（图一）
实在是不知道怎么发图，就把界面弄到这个地址了，直接打开就可以看。Private Sub Command23_Click() ‘Command23为插入标点点那个按键
    frmadd.Show 1, Form_main
End Sub      
点击完之后会出现一个框，往里面输入标定点的值。图见：http://hi.baidu.com/princessakura/album/item/251dfd3742b63b82d0a2d3a2.html（图二）点击那个确定之后，要判断输入的那个值是在（图一）那十个点的哪两个点之间，然后插入这个点。这个点后的点依次往后移一位     现在就是这个地方不会
高手救命！

Answer 1

你这个是保留值最高的十个点吗？
建议：
1,把那十个OptionButton取名为optPos的控件数组，Index值依次从1到10,每个控件的Tag属性中存放相应的标定点的值。
2,因为你这个数据的元素个数比较少，所以排序用冒泡排序，查找用顺序查找就够了

Answer 2

嗯，把十点OptionButton取名为optPos的控件数组，这个要怎么弄？

Answer 3

点击那个确定之后，要判断输入的那个值是在（图一）那十个点的哪两个点之间，然后插入这个点。这个点后的点依次往后移一位 现在就是这个地方不会这句话表述不清楚，不过这个需求用5楼的方法很好实现。顺便送你一个函数，方便好用的。Public Function getRadoGroutValue(ByRef 单选按钮组名称 As Object) As String '取得一组单选按钮中选中的值
    Dim i As Integer
    For i = 0 To 单选按钮组名称.Count - 1
        If 单选按钮组名称(i).Value = True Then
            getRadoGroutValue = CStr(i)
            Exit For
        End If
    Next i
End Function

Answer 4

难道是把那十个optionbutton从头到尾分别命名为：optPos1……………………optPos10?

Answer 5

上传到CSDN的个人空间的相册,将相册中该图片的链接粘贴在回复工具栏的图片链接对话框.

Answer 6

新建一个窗口，放一个文本框，然后放一个option选项按钮，然后放一个按钮，均不需要改名字，然后把以下代放放在窗口代码里，然后运行。本程序支持插入任意值，并会自动排序插入。Option ExplicitPrivate Sub initOpt()
    Dim oOpt As OptionButton
    Dim i As Long
    For i = 1 To 9
        Load Option1(i)
        Set oOpt = Option1(i)
        oOpt.Move Option1(i - 1).Left, Option1(i - 1).Top + Option1(i - 1).Height + 10 * Screen.TwipsPerPixelX
        oOpt.Tag = (i + 1) / 10
        oOpt.Caption = "第" & i + 1 & "点 (" & Format(oOpt.Tag, "0.00#") & ")"
        oOpt.Visible = True
    Next i
End SubPublic Function getRadoGroutValue(ByRef 单选按钮组名称 As Object) As String '取得一组单选按钮中选中的值
    Dim i As Integer
    For i = 0 To 单选按钮组名称.Count - 1
        If 单选按钮组名称(i).Value = True Then
            getRadoGroutValue = CStr(i)
            Exit For
        End If
    Next i
End Function
Private Sub Command1_Click()
    Dim dblValue As Double
    Dim lIndex  As Long
    
    Dim i As Long
    Dim oOpt As OptionButton
    
    Dim dblArr() As Double
    ReDim dblArr(Option1.UBound + 1)
    
    dblValue = CDbl(Text1.Text)
    
    For i = 0 To Option1.UBound
        dblArr(i) = Option1(i).Tag
    Next i
    
    '排序
    dblArr(Option1.UBound + 1) = dblValue
    Quicksort dblArr, 0, UBound(dblArr)
    lIndex = FindIndexInArr(dblValue, dblArr)
    
    Load Option1(Option1.UBound + 1)
    Set oOpt = Option1(Option1.UBound)
    i = Option1.UBound - 1
    
    oOpt.Move Option1(i).Left, Option1(i).Top + Option1(i).Height + 10 * Screen.TwipsPerPixelX
    oOpt.Visible = True
    
    '插入值
    For i = UBound(dblArr) To lIndex Step -1
        Set oOpt = Option1(i)
        oOpt.Tag = dblArr(i)
        oOpt.Caption = "第" & i + 1 & "点 (" & Format(oOpt.Tag, "0.00#") & ")"
    Next i
End SubPrivate Function FindIndexInArr(ByVal dblVal As Double, ByRef dblArr() As Double) As Long
    Dim lIndex As Long
    FindIndexInArr = -1
    For lIndex = 0 To UBound(dblArr)
        If dblVal = dblArr(lIndex) Then
            FindIndexInArr = lIndex
            Exit For
        End If
    Next
End Function'快速排序
' Sort the items in array values() with bounds min and max.
'CSEH: ErrRaise
Sub Quicksort(values As Variant, ByVal Min As Long, ByVal Max As Long)    Dim med_value As String
    Dim hi As Long
    Dim lo As Long
    Dim i As Long    ' If the list has only 1 item, it's sorted.
    If Min >= Max Then Exit Sub    ' Pick a dividing item randomly.
    i = Min + Int(Rnd(Max - Min + 1))
    med_value = values(i)    ' Swap the dividing item to the front of the list.
    values(i) = values(Min)    ' Separate the list into sublists.
    lo = Min
    hi = Max
    Do
        ' Look down from hi for a value < med_value.
        Do While values(hi) >= med_value
            hi = hi - 1
            If hi <= lo Then Exit Do
        Loop
        If hi <= lo Then
            ' The list is separated.
            values(lo) = med_value
            Exit Do
        End If        ' Swap the lo and hi values.
        values(lo) = values(hi)        ' Look up from lo for a value >= med_value.
        lo = lo + 1
        Do While values(lo) < med_value
            lo = lo + 1
            If lo >= hi Then Exit Do
        Loop
        If lo >= hi Then
            ' The list is separated.
            lo = hi
            values(hi) = med_value
            Exit Do
        End If        ' Swap the lo and hi values.
        values(hi) = values(lo)
    Loop    ' Recursively sort the sublists.
    Quicksort values, Min, lo - 1
    Quicksort values, lo + 1, MaxEnd SubPrivate Sub Form_Load()
    Text1.Text = "0.17"
    Option1(0).Tag = 0.1
    Option1(0).Width = 100 * Screen.TwipsPerPixelX
    Option1(0).Caption = "第1点(0.10)"
    initOpt
End Sub

Answer 7

说漏一句，需要将Option1的Index设为0