Question

请教：我想对text1中的数字进行从小到大排序，用vb怎样写？

Dim i%, i1%, i2%
Private Sub Command1_Click()
Me.Text1 = ""
i = InputBox("请输入要显示的随机数个数")
i1 = InputBox("请输入要显示的随机数位数")
For i2 = 1 To i
Select Case i1
Case 1
Me.Text1 = Me.Text1 & Int(Rnd * 9) + 1 & " "

Case 2
Me.Text1 = Me.Text1 & Int(Rnd * 90) + 10 & " "

Case 3
Me.Text1 = Me.Text1 & Int(Rnd * 900) + 100 & " "

Case 4
Me.Text1 = Me.Text1 & Int(Rnd * 9000) + 1000 & " "

End Select
Next
End Sub

Private Sub Form_Load()
Me.Command1.Caption = "生成随机数"
Me.Command2.Caption = "从小到大排序"
End Sub

Answer 1

再添加一个按钮command2
Private Sub Command2_Click()
dim a$(),i%,j%,n%
a=split(text1," ")
n=ubound(a)
for i=0 to n-1
for j=i+1 to n
if a(i)>a(j) then t=a(i):a(i)=a(j):a(j)=t
next j
next i
text1=""
for i=0 to n
text1=text1 & a(i) & " "
next i
end sub

Answer 2

你把要求写明白点，看不懂你的代码。。。。