UC知道请教VB高手！ 关于数字怎么排序？
来源：百度知道 编辑：UC知道 时间：2024/05/21 10:55:02
在工程里面 有一个Text1 比如输入数字 “5” 然后点击“CMD1”按钮
下面有个 Text 就会显示 以下数字
11111 11112 11113 11114 11115
11121 11122 11123 11124 11125
...................................
...................................
55551 55552 55553 55554 55555
比如输入数字 “5” 然后点击“CMD1”按钮
下面有个 Text 就会显示 以下数字
1111 1112 1113 1114 1115
1121 1122 1123 1124 1125
1131 1132 1133 1134 1135
............................
.............................
5551 5552 5553 5554 5555
下面有个 Text 就会显示 以下数字
11111 11112 11113 11114 11115
11121 11122 11123 11124 11125
...................................
...................................
55551 55552 55553 55554 55555
比如输入数字 “5” 然后点击“CMD1”按钮
下面有个 Text 就会显示 以下数字
1111 1112 1113 1114 1115
1121 1122 1123 1124 1125
1131 1132 1133 1134 1135
............................
.............................
5551 5552 5553 5554 5555
新建工程,
添加2个文本框, text1和text2 , text2的multiline为true
添加1个按钮,command1
程序没加校验,你可以在text1输入5,然后按command1,在text2中显示效果:
Private Sub Command1_Click()
Dim x%, y%, m%, n%
Text2 = ""
For x = 1 To Val(Text1)
For y = 1 To Val(Text1)
For m = 1 To Val(Text1)
For n = 1 To Val(Text1)
Text2 = Text2 & x & y & m & n & " "
Next
Text2 = Text2 & vbNewLine
Next
Next
Next
End Sub
VB给几个数字排序，代码该怎么写？
悬赏分：10 - 解决时间：2007-8-10 12:01
数组ABC（100002，100001，100021，100008，100016，100011）
请对其排序输出。
问题补充：不管是升续还是降续都可以的
提问者： zzl1001 - 试用期 一级
最佳答案
'Form中放一个text1，设置multiline=true,scrollbars=2
Dim a()
n = InputBox("输入数据个数")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("输入数据" & i)
Next
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a