VB.Net Loop Function / Sub

Question

Просто интересно, может ли кто-нибудь помочь мне с этим небольшим вопросом.Я пишу простую таблицу умножений, используя список для отображения таблиц времени, когда пользователь нажимает кнопку.Тем не менее, многочисленные циклы выглядят довольно грязно, и я хотел бы поместить их в метод / функцию, которая позволит манипулировать целочисленными значениями в событиях нажатия кнопки, чтобы можно было вставить правильные значения, т.е. 2 раза будет иметь значениеOne = 2To valueTwo = 24 и Step = 2 (ссылаясь на таблицу 2 раза) и т. Д. Это то, что у меня сейчас есть (на примере таблицы 7 раз), но я чувствую, что не правильно написал свой саб.Любые указатели и советы будут высоко оценены и полезны.Спасибо.

Примечание: переменные объявляются глобально

Private Sub newLoop()

        For xTablesAnswer As Integer = valueOne To valueTwo Step valueThree
            xTableNumOrder = xTableNumOrder + 1
            lstData.Items.Add("7 Times " & xTableNumOrder.ToString & " = " & xTablesAnswer.ToString)
        Next

    End Sub


    Private Sub bnt7X_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnt7X.Click

        ClearList()

        valueOne = 7
        valueTwo = 84
        valueThree = 7

        newLoop()

    End Sub
End Class

Answer 1

Я бы сделал это так:

Public Sub ShowTable(value As Integer, lastMultiple As Integer)

lstData.Items.Clear()

For i As Integer = 1 to lastMultiple
    lstData.Items.Add(String.Format("{0} times {1} = {2}", value, i, value * i))                        
Next

End Sub

Тогда для таблицы 7 раз вы бы назвали это так:

ShowTable(7, 12)