0

ループといくつかの数式を使用する必要がある学校の課題があります。プロジェクトで達成する必要があるのは、数値の先頭に範囲を入力することです。次に、下のテキスト ボックスに数字と単語を入力します。「計算」を押すと、プログラムは、入力した数字のすべての倍数を、その下に入力した単語に置き換える必要があります。これは、数字と単語の両方のセットで発生するはずです。次に、数値が両方の倍数である場合、両方の単語を表示する必要があります。

ここに私の GUI のスクリーン ショットを示します。

ここに画像の説明を入力

これはこれまでのコードであり、それが生成するのは、私が望むようにリストまたはすべての倍数です...しかし、数字の下に単語を追加するだけです。

数字を入力したい単語に置き換えるにはどうすればよいですか?

ありがとう。

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
    Dim counter As Integer
    Dim intCounterHigh As Integer
    Dim intCounterLow As Integer

    Dim intMultipleLeft As Integer
    Dim intMultipleRight As Integer

    Dim strWordLeft As String
    Dim strWordRight As String

    intCounterHigh = txtCounterHigh.Text
    intCounterLow = txtCounterLow.Text



    strWordLeft = txtWordLeft.Text
    strWordRight = txtWordRight.Text

    intMultipleLeft = txtMultipleLeft.Text
    intMultipleRight = txtMultipleRight.Text



        While counter <= intCounterHigh - 1
            counter += 1
            lstResult.Items.Add(CStr(counter))


            If counter Mod intMultipleLeft < 1 Then
                lstResult.Items.Add(strWordLeft)
            End If

            If counter Mod intMultipleRight < 1 Then
                lstResult.Items.Add(strWordRight)
            End If

            If counter Mod intMultipleRight < 1 And counter Mod intMultipleLeft < 1 Then
                lstResult.Items.Add(strWordLeft & strWordRight)
            End If

        End While

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
    lstResult.Items.Clear()

End Sub

Private Sub txtCounter_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCounterHigh.TextChanged

End Sub

End Class
4

1 に答える 1