Algorithms

Public Function ConvertNumberToDefinition(ByVal number As Variant, _
                                          ByVal def As String) As String
    
    Dim Base As Integer: Base = Len(def)
    Dim val As String: val = ""
    Dim temp As Variant
    
    While number > 0
        temp = number Mod base
        val= Mid(def, temp + 1, 1) & val
        number= ( number - temp ) / base
    End While
    
    ConvertNumberToDefinition = val
    
End Function

ahasan nahid wrote:

How do you fix this problem?

Hồng Chấn Phát wrote:

I have been developer for 5 years, I am not a student, so it's not homework ...

using System.Linq;

private int[] ints = new int[]{0,1,2,3,4,5,6,7,8,9,10};

// in some method
int[] sints = ints.Where(val => (val%2 == 0)).Concat(ints.Where(val => (val%2 == 1))).ToArray();

private string[] strs = new string[]{"a1","b1","a2","b2","a3","b3","a4","b4"};

private string firstOddValue = strs[1];

// in some method
List<string> strList = new List<string>{strs[0]};

for (int i = 1; i < strs.Length; i++)
{
    if (i%2 == 1)
    {
        strList.Add(strs[i]);
    }
    else
    {
        strList.Insert(strList.IndexOf(firstOddValue), strs[i]);
    }
}