将整数拆分为数组VB

时间:2011-03-09 17:01:51

标签: vb.net arrays

下午好,

如何拆分值并将其插入VB中的数组?

示例:

初始值为987654321。

使用for循环我需要插入如下所示的值:

Position(1)= 9'来自分割整数的第一个数字

Position(2)= 8'来自分割整数的第二个数字

依旧......

谢谢。

5 个答案:

答案 0 :(得分:2)

此代码未经测试:

Dim x As Integer = 987654321
Dim s As String = x.ToString
Dim a(s.Length) As String

For i As Integer = 0 To s.Length - 1
  a(i) = s.Substring(i, 1)
Next i

答案 1 :(得分:2)

你可以尝试:

Dim number As Integer = 987654321
Dim strText As String = number.ToString()

Dim charArr() As Char = strText.ToCharArray()

数字分开后,您可以将它们从此数组中拉出来,并在需要时将它们转换回数字。

答案 2 :(得分:1)

Dim number As Integer = 987654321
Dim digits() As Integer = number.ToString().Cast(Of Integer)().ToArray()

答案 3 :(得分:1)

将在3个不同的消息框中显示任意数字。 您可以使用该示例创建一个功能,以更好地满足您的目的。

Sub GetNumber()
Dim x As Integer, s As String
x = 987
s = LTrim(Str(x))

For i = 1 To Len(s)
    MsgBox Mid(s, i, 1)
Next i
End Sub

答案 4 :(得分:1)

我知道这是一个老问题,但这是我可以开展工作的最优雅的解决方案:

Dim key As Integer = 987654321
Dim digits() As Integer = System.Array.ConvertAll(Of Char, Integer)(key.ToString.ToCharArray, Function(c As Char) Integer.Parse(c.ToString))