我需要您的坐标帮助。我想发生的是在给定的坐标后打印一个“ X”。示例:x轴的给定坐标为2,y轴的坐标为2
输出将是:
所以基本上,在顶部2个“#”和左侧2个“#”,然后它将打印字母“ X”
Dim d As String = ""
For i = 0 To NumericUpDownX.Value
For j = 0 To NumericUpDownY.Value
d = d & "#"
Next
d = d & vbNewLine
Next
output.Text = d
我能够打印#号,但似乎无法弄清楚如何在其中放置“ X”。
答案 0 :(得分:1)
Dim d As New System.Text.StringBuilder
For y = 0 To NumericUpDownY.Value
If y < NumericUpDownY.Value Then
d.AppendLine(New String("#", NumericUpDownX.Value + 1))
Else
d.AppendLine("X".PadLeft(NumericUpDownX.Value + 1, "#"))
End If
Next
output.Text = d.ToString
如果您想让更多内容与您最初的工作保持内联,那么:
Dim d As String = ""
For y = 0 To NumericUpDownY.Value
For x = 0 To NumericUpDownX.Value
If y = NumericUpDownY.Value AndAlso x = NumericUpDownX.Value Then
d = d & "X"
Else
d = d & "#"
End If
Next
d = d & vbCrLf
Next
output.Text = d