第1个回答 推荐于2016-10-23
代码如下:
Public Class Form1
Public i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim counter As Integer
Dim tempArray() As String
tempArray = RichTextBox1.Lines
For counter = 0 To tempArray.GetUpperBound(0)
Console.WriteLine(tempArray(counter))
Next
If (i < counter) Then
Label1.Text = RichTextBox1.Lines(i)
Else
If (i = counter) Then
i = 0
End If
End If
i = i + 1
End Sub
End Class