李涛的博客

vb2005写的。。

代码:

Public Class Form1

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

        Dim G, Z, a, b, c

        G = Me.Top

        Z = Me.Left

        For a = 1 To Val(cs.Text)                          'cs.text即是次数

            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2     'fw.text即是范围

            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2

            Me.Top = Me.Top + b

            Me.Left = Me.Left + c

        Next

        For a = 1 To Val(cs.Text)

            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2

            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2

            Me.Top = Me.Top - b

            Me.Left = Me.Left - c

        Next

        Me.Top = G

        Me.Left = Z

    End Sub

End Class