Question

谁能帮忙做个按键精灵 九格拼图

本人想参考一下

Answer 1

正好刚刚做完这个习题 数组排序 思路是 一个数组 要把里面的元素从大到小或者从小到大的顺序排列起来 代码可以给你参考下
Function 数组排序(数组, 模式)
For UBound(数组)
For i = 0 To UBound(数组)
If i >= UBound(数组) Then
Exit For
End If
If 模式 <= 0 Then
If 数组(i) > 数组(i + 1) Then
z = 数组(i)
数组(i) = 数组(i + 1)
数组(i + 1) = z
Else
数组(i) = 数组(i)

End If
ElseIf 模式 > 0 Then
If 数组(i) < 数组(i + 1) Then
z = 数组(i)
数组(i) = 数组(i + 1)
数组(i + 1) = z
Else
数组(i) = 数组(i)
End If
End If
Next
Next
数组排序 = 数组
End Function