如何从数组中保存的个位数中'make'多位数整数值 (VB.NET)

Question

我有一个大的单位数整数数组(0 - 9)，我想把值的子集转换成单个整数值。例如:

Array(0) = 4
Array(1) = 2
Array(2) = 1
Array(3) = 6
Array(4) = 7
Array(5) = 4
Array(6) = 8
Array(7) = 2
Array(8) = 9
Array(9) = 0

我想让一个数字使用(例如)数组索引4,5和6;

NewInt = 748

我能看到这样做的唯一方法是先做一个字符串，然后再做一个整数(如CInt(Cstr(Array(5) &数组(6)…))，但这似乎不必要地慢。我所做的一切都是为了加快速度。

有什么建议吗?

Answer 1

看看这个。

    Dim nums() As Integer = {4, 2, 1, 6, 7, 4, 8, 2, 9, 0}
    Dim ans As Long = 0L
    Dim useNums() As Integer = {4, 5, 6}
    For Each idx As Integer In useNums
        ans = (ans * 10L) + nums(idx)
    Next