Question

我必须创建一个应用程序，允许我从数组中的每个元素中减去数字1，并使用for...next语句将其显示在列表框中。

这是我到目前为止所拥有的。

Private intQuantities() As Integer = {45, 67, 2, 5, 90}

Dim intnum2 As Integer = intQuantities.Length

For intCount As Integer = 0 To 4
    lstQuantities.Items.Add(intQuantities(intCount))
    intCount = intCount + 1

Answer 1

lstQuantities.Items.Add(intQuantities(intCount) - 1)

Answer 2

您的代码中有两项突出的事情。

首先，在将intQuantities变量添加到列表框之前，永远不会减少它。第二个是你在for语句中递增索引，这会导致你跳过值。

尝试这样的事情：

Dim intnum2 As Integer = intQuantities.Length
For intCount As Integer = 0 To 4
    intQuantities(intCount) -= 1  'This will subtract one and store it back to the array
    lstQuantities.Items.Add(intQuantities(intCount))
Next

向列表框中的元素添加数字

2 个答案: