2

次の擬似コードの結果はどうなりますか。

カウンターを10に初期化します

カウンター<100の間に行う

カウンターに2を掛けたものを表示します

カウンターに10を加える

ループの終了

私が考えているのは：20、60、140

これは私のコードです：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim multiplied As Integer
    Dim counter As Integer = 10
    Do While counter < 100
        multiplied = counter * 2
        Label1.Text = Label1.Text & ControlChars.NewLine & multiplied.ToString
        counter = multiplied + 10
    Loop
End Sub

みんなありがとう！！

4

1 に答える 1

4

カウンタを 2 倍して表示

その命令には、カウンターを変更するように指示されているものは何もありません。指示を厳密に解釈すると、出力は次のようになります。

20 40 60 80 100 120 140 160 180

ただし、コードは期待する結果と一致します。指示に一致するコードが必要な場合は、次のようにします。

Dim counter As Integer = 0
Dim result As New StringBuilder()
Dim delimiter As String = ""
Do While counter < 100
   result.Append(delimiter).Append( (counter*2).ToString() )
   delimiter = Environment.NewLine
   counter += 10
Loop
Label1.Text = result.ToString()

楽しみのために、次のようなことを行うことができます。

Label1.Text = Enumerable.Range(1, 9)
        .Select(Function(i) i * 10)
        .Aggregate("", Function(s, i) s = s & i.ToString() & ",")
于 2011-03-22T18:59:13.823 に答える