UC知道VB的变成问题！需要详细诠释每句！就象执行语句样子，逐句翻译！
来源：百度知道 编辑：UC知道 时间：2024/05/14 08:18:24
找人诠释没个句子，不是要概括哦，要具体，就象开始的诠释那样，最好用'在句子后面加以说明！需要详细诠释每句！就象执行语句样子，逐句翻译！
Option Explicit
Public Sub p(a%())
'该过程是用于整理数组a，使其中小于零的元素移到数组的前端，
'大于零的元素移到数组的后端，等于零的元素留在数组的中间。
Dim i%, low%, high%, t%
low = 0
i = 0
high = UBound(a) - 1
Do While low < high
If a(i) < 0 Then
t = a(i)
a(i) = a(low)
a(low) = t
low = low + 1
i = i + 1
ElseIf a(i) > 0 Then
t = a(i)
a(i) = a(high)
a(high) = t
high = high - 1
Else
i = i + 1
End If
Loop
End Sub
Option Explicit
Public Sub p(a%())
'该过程是用于整理数组a，使其中小于零的元素移到数组的前端，
'大于零的元素移到数组的后端，等于零的元素留在数组的中间。
Dim i%, low%, high%, t%
low = 0
i = 0
high = UBound(a) - 1
Do While low < high
If a(i) < 0 Then
t = a(i)
a(i) = a(low)
a(low) = t
low = low + 1
i = i + 1
ElseIf a(i) > 0 Then
t = a(i)
a(i) = a(high)
a(high) = t
high = high - 1
Else
i = i + 1
End If
Loop
End Sub
Option Explicit
Public Sub p(a%())
'该过程是用于整理数组a，使其中小于零的元素移到数组的前端，
'大于零的元素移到数组的后端，等于零的元素留在数组的中间。
Dim i%, low%, high%, t% '定义变量 这个知道吧.. -_-!
low = 0 '给变量赋值
i = 0 '同上
high = UBound(a) - 1 'ubound()是用来获得这个数组的上界 返回一个长整数
Do While low < high 'Do循环
If a(i) < 0 Then 条件判断
t = a(i)
a(i) = a(low)
a(low) = t
low = low + 1
i = i + 1 '以上都是赋值语句
ElseIf a(i) > 0 Then '如果不符合上面那个判断就执行这个判断
t = a(i)
a(i) = a(high)
a(high) = t
high = high - 1
Else '如果上面的判断还不符合就执行下面语句
i = i + 1
End If '结束判断语句
Loop '结束循环语句
End Sub '结束自定义函数模块
给分吧