vb数组排序答:Private Sub Form_Click()Dim S(1 To 3, 1 To 2), A, I As Integer, J As Integer A = InputBox("A=")S(1, 1) = Val(A): S(1, 2) = "A"A = InputBox("B=")S(2, 1) = Val(A): S(2, 2) = "B"A = InputBox("C=")S(3, 1) = Val(A): S(3, 2) ...
vba中如何将数组中的值进行排序?(半小时内获答加100)答:最简单的vba函数来解决这个问题:利用每个元素与数组内的所有元素相减,计算差大于0的个数,个数越多的数组越大 Private Sub CommandButton1_Click()Dim arr, brr, num ‘arr未排序前的数组,brr排序后的数组 ReDim brr(1 To 10, 1 To 1)arr = [{2, 1, 3, 4, 6, 7, 5, 0, 8,...