清水健绿汁女演员:vb高手帮忙

来源：百度文库编辑：中科新闻网时间：2024/04/29 06:19:51

15．在文本框中输入内容，单击窗体后，把文本框中的字符按从小到大排列输出在窗体上。
Private Sub Form_click()
Dim temp As Integer
n = Len(Text1.Text)
ReDim a(n) As String
a(n) = Text1.Text
For i = 1 To n - 1
k = i
For j = i + 1 To n
If Asc(a(j)) < Asc(a(k)) Then k = j
Next j
temp = a(i): a(i) = a(k): a(k) = temp
Next i

For i = 1 To n
Print a(i);
Next i
End Sub
这个哪里有问题啊

Private Sub Form_click()
Dim temp As Integer
n = Len(Text1.Text)
ReDim a(n) As String
For i = 1 To n
a(i) = Mid(Text1.Text, i, 1)
Next
For i = 1 To n - 1
k = i
For j = i + 1 To n
If Asc(a(j)) < Asc(a(k)) Then k = j
Next j
temp = a(i): a(i) = a(k): a(k) = temp
Next i

For i = 1 To n
Print a(i);
Next i
End Sub

i=0

vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb题高手帮忙