通信,电信,互联网技术论坛
大友
新闻编辑
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
查看详细资料
TOP
新员工
查看个人网站