如何使用回圈為這種輸出撰寫 VB 網路控制臺應用程式：
$$$$$ $$$$ $$$ $$ $
'Declaring the variables
Dim DollarSign As String
DollarSign = "$"
For counter = 5 To 1 Step -1
Console.WriteLine(DollarSign)
Next
輸出顯示如下：
$ $ $ $ $
以及以下輸出：
1$$$$ 12 美元 123 美元 1234$
我想不通。這里發生了什么？
uj5u.com熱心網友回復：
Dim DollarSign as String = "$"
For counter = 5 To 1 Step -1
Console.WriteLine(New String(DollarSign, counter))
Next
uj5u.com熱心網友回復：
現在，您的代碼從 5 回圈到 1，并在每次迭代期間列印一次美元符號。
聽起來您希望根據回圈的當前索引重復美元符號。
如果是這種情況，那么您可以創建一個新字串并傳入美元符號和當前索引：
Dim dollarSign As Char = "$"c
For counter = 5 To 1 Step -1
Console.WriteLine(New String(dollarSign, counter))
Next
小提琴：https ://dotnetfiddle.net/Ok8NSD
uj5u.com熱心網友回復：
使用 NESTED for 回圈的另一種方法：
Dim numRows As Integer = 5
For row As Integer = numRows To 1 Step -1
For col As Integer = 1 To row
Console.Write("$")
Next
Console.WriteLine()
Next
Console.ReadKey()
輸出：
$$$$$
$$$$
$$$
$$
$
第二個版本：
Dim numRows As Integer = 5
For row As Integer = numRows To 1 Step -1
For col As Integer = 1 To ((numRows 1) - row)
Console.Write(col)
Next
For col As Integer = 1 To (row - 1)
Console.Write("$")
Next
Console.WriteLine()
Next
Console.ReadKey()
輸出：
1$$$$
12$$$
123$$
1234$
12345
uj5u.com熱心網友回復：
有很多方法可以做到這一點：
Dim output = "$$$$$"
Do While output.Length > 0
Console.WriteLine(output)
output = output.Substring(1)
Loop
這給出了：
$$$$$
$$$$
$$$
$$
$
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/433603.html