VB的一个程序理解不了

来源：百度知道 编辑：UC知道 时间：2024/05/31 05:22:45
通用过程声明如下:
Function RandInt(InMin As Integer, InMax As Integer)
RandInt = Int(InMax - imin + 1) * Rnd + InMin
End Function
Sub Jump(Ctl As Control)
Dim H As Integer, V As Integer
H = RandInt(0, Width - Ctl.Width)
V = RandInt(0, Height - Ctl.Height)
Ctl.Move H, V
End Sub

Private Sub Command1_Click()
Jump Command1
End Sub

Private Sub Command2_Click()
Jump Command2
End Sub

Private Sub Form_Load()
Command1.FontSize = 12
Command2.FontSize = 12
End Sub

以上是假定窗口层建立的2个按纽 程序的作用是单击按纽随机移动 重要是在通用过程声明的那块有点模糊 看的不是很懂 有人可以教教我吗？最好是用(')注释拉 好的话我加分

'自定义函数，返回 InMin 到 InMax 间的一个随机整数
Function RandInt(InMin As Integer, InMax As Integer)
RandInt = Int(InMax - imin + 1) * Rnd + InMin
End Function

'自定义过程，参数 Ctl 是一个控件
Sub Jump(Ctl As Control)
Dim H As Integer, V As Integer

'调用自定义函数 RandInt，得到 0 到 窗体的宽度与控件宽度差的随机数
H = RandInt(0, Width - Ctl.Width)

'调用自定义函数 RandInt，得到 0 到 窗体的高度与控件高度差的随机数
V = RandInt(0, Height - Ctl.Height)

Ctl.Move H, V ' 移动控件到位置 H，V
End Sub

Private Sub Command1_Click()
Jump Command1 '调用过程Jump,移动控件 Command1
End Sub

Private Sub Command2_Click()
Jump Command2 '调用过程Jump,移动控件 Command2
End Sub