Private Sub Form_Load()
Dim n As Integer, i As Integer
n=10000
Label1.Caption="老子曰:道生1,"
For i=1 To n-1
Label1.Caption=Lable1.Caption & i & "生" & i+1 & ","
Next i
Label1.Caption=Lable1.Caption & n & "生万物。"
End Sub
Leave a comment