VB.NET先建一个label和buttonPublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, s As Integer
Dim str As String
str = \"\"
For i = 2 To 100 Step 2
s += i
str = CStr(s) + vbCrLf
Next
Label1.Text = str
End SubEnd Class