Question

几年后我没有在VB中写过任何东西。我正在上一个中级课，遇到了一个问题。我正在开发一个发票程序，假设用户从文本框（城市州和邮政编码）输入数据，并仅使用zip作为发票号。我已经创建了一个存储用户数据的数组，但我无法弄清楚如何迭代它并只将数值写入另一个数组。一旦完成，我将需要遍历第二个数组并将数组内容写入字符串，以便它可以显示为发票号。任何帮助将不胜感激

var selected = shop()
name.text = selected.namelabel

Answer 1

将zip编号保存为geom_label的数组，并使用char类型的构造函数，其中string数组作为参数。

char

使用Dim UserZip As String = txtCItyStateZip.Text Dim UserArray() As Char = UserZip.ToCharArray Dim ZipChars As New List(Of Char)() For num As Integer = 0 To UserArray.Length - 1 Dim character As Char = UserArray(num) If IsNumeric(character) Then ZipArray.Add(character) End If Next Dim ZipCode As String = New String(ZipChars.ToArray())来保存zip的字符，因为如果zip包含4个以上的数字，您的代码就会抛出异常。

Answer 2

IsNumeric（num）将始终返回True。它应该是

For num As Integer = 0 To UserArray.Length - 1
   If IsNumeric(UserArray(num)) Then
      ZipArray.Add(UserArray(num))
   End If
Next

如何仅将数字从一个数组复制到另一个数组

2 个答案: