高考问答投币自动售水机价格:vb高手帮忙
来源：百度文库 编辑：高考问答 时间：2024/04/27 23:18:51
在文本框中输入内容，单击窗体后，把文本框中的字符按从小到大排列输出在窗体上。
具体点
具体点
一个TextBox
Private Sub Form_Click()
Dim temp As Integer
Cls
a = Split(Text1.Text, " ")
n = UBound(a)
For i = 0 To n
For j = i + 1 To n
If Val(a(i)) > Val(a(j)) Then
temp = a(j)
a(j) = a(i)
a(i) = temp
End If
Next
Next
For i = 0 To n
Print a(i)
Next
End Sub
用冒泡排序法不就行了吗？排好序后再把结果返回到窗体上不就行。
比较ASC码