打印數組的全部排序
来源:互联网 发布:网络销售简历 编辑:程序博客网 时间:2024/05/22 12:41
Dim f As String
Sub printstr(s() As String)
Dim s2() As String, k As String
If UBound(s) - LBound(s) = 0 Then
Print f & " " & s(LBound(s))
Else
For i = LBound(s) To UBound(s)
ReDim s2(LBound(s) To UBound(s) - 1)
For j = LBound(s) To UBound(s) - 1
If j < i Then
s2(j) = s(j)
Else
s2(j) = s(j + 1)
End If
Next
k = f
f = f & " " & s(i)
printstr s2
f = k
Next
End If
End Sub
Sub printstr(s() As String)
Dim s2() As String, k As String
If UBound(s) - LBound(s) = 0 Then
Print f & " " & s(LBound(s))
Else
For i = LBound(s) To UBound(s)
ReDim s2(LBound(s) To UBound(s) - 1)
For j = LBound(s) To UBound(s) - 1
If j < i Then
s2(j) = s(j)
Else
s2(j) = s(j + 1)
End If
Next
k = f
f = f & " " & s(i)
printstr s2
f = k
Next
End If
End Sub
- 打印數組的全部排序
- Java打印一组数字的全部排序组合
- 打印自定义年份的全部日期
- python打印数组的全部元素
- 调试kernel的开启全部的打印的技巧
- 打印全部属性
- PHP打印全部
- 把一个表里的记录全部用insert打印出来
- java实现打印某个目录的全部子文件名称
- 打印n对括号的全部有效组合
- 打印N对括号的全部有效组合
- 打印n对括号的全部n对有效组合
- 打印n对括号的全部有效组合
- 【Core Java Volume 2】反射---打印类的全部信息
- 求100以内的素数,全部打印出来
- 求100以内的素数,全部打印出来
- 求100以内的素数,全部打印出来
- 题目:求100以内的素数,全部打印出来。
- 获得ArcEngine图标和arcengine的汉化方法
- HTML内容转换为PDF格式------java
- 古人过得可丝毫不比我们差!
- 在C#中进行声波的显示
- [转载]我要做个英雄
- 打印數組的全部排序
- word排版技巧
- 比较 CHARINDEX 和 PATINDEX
- 第二周--星期四
- ASP.NET四种页面导航方式之比较与选择
- [转]Adobe Flex最佳学习路线
- Java编程那些事儿3——你适合学习程序设计吗?
- 如何在SQLSERVER2005中查询数据行号
- JAVA的容器---List,Map,Set