Question

vb.net 求个for循环的写法

打出如下三角，要vb.net别的语言不要，谢谢了

*
* * *
* * * * *

Answer 1

你先新建一个控制台应用程序，然后全部复制就行了，用 Ctrl + F5 调试

Module Module1

Sub Main()

Dim temp As String = "*"
Dim i, j As Short

For i = 1 To 5 Step +2
For j = 1 To i
Console.Write("{0} ", temp)
Next j
Console.WriteLine("")
Next i
Console.ReadLine()

End Sub

End Module

其实你这样不就好了

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As String = "*" & vbCrLf & "* * *" & vbCrLf & "* * * * *"
MessageBox.Show(a)

End Sub

多方便

Answer 2

vb.net
Form窗体上放一按纽,Click事件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim T = 0
For i As Integer = 0 To 2
For j As Integer = 1 To 2 * i + 1
Me.CreateGraphics.DrawString("*", New Drawing.Font("Arial", 9), Brushes.Black, (j - 1) * 8, T) 'Arial为字体 8为列间距
Next
T = T + 10 '10为行间距
Next
End Sub

Answer 3

for i = 0 to 2
for j = 1 to 2*i +1
print "*";
next
print
next

Answer 4

for i as Integer = 0 to 2
for j as integer = 0 to (2*i+1)
Console.writeline(