输出一个数组中最小的三个变量名？？

Question

输出一个数组中最小的三个变量名，分别输出到text1,text2,text3中。参考数据：
a=11,b=7,c=23,d=34,e=17,f=5,g=26.数组：（a,b,c,d,e,f,g）请写出代码来，谢谢！！

Answer 1

Private Sub Command1_Click()    Dim intValue()
    Dim strName() As String
    Dim intTemp As Integer
    Dim strTemp As String
    Dim i As Integer
    Dim j As Integer
    
    intValue = Array(11, 7, 23, 34, 17, 5, 26)
    strName = Split("a,b,c,d,e,f,g", ",")
    
    For i = 0 To 2
        For j = i + 1 To UBound(intValue)
            If intValue(i) > intValue(j) Then
                intTemp = intValue(i)
                intValue(i) = intValue(j)
                intValue(j) = intTemp
                
                strTemp = strName(i)
                strName(i) = strName(j)
                strName(j) = strTemp
            End If
        Next j
    Next i
    
    Text1.Text = strName(0)
    Text2.Text = strName(1)
    Text3.Text = strName(2)
    
    Text4.Text = intValue(0)
    Text5.Text = intValue(1)
    Text6.Text = intValue(2)
End Sub

Answer 2

dim n(1 to 10) as long
dim min(1 to 3) as long
dim i as long
n(1) = 31
n(2) = 23
...
n(10) = 33
min(1) = n(1)
min(2) = n(2)
min(3) = n(3)
for i = 4 to 10  
  for j = 1 to 3
  if n(i) < min(j) then min(j) = n(i)
  next
next
text1.text = min(1)
text2.text = min(2)
text3.text = min(3) 至于变量名，建立一个dictionary来映射