读书人

vb数组排序从text1到text2有关问题

发布时间: 2012-02-01 16:58:19 作者: rapoo

vb数组排序从text1到text2问题
在text1框中输入数字,点击按钮,text2框中显示排序好的数字
怎么写代码?我做的text2种都无法显示

[解决办法]
Dim c As Char() = txt1.Text.ToCharArray
Array.Sort(c)
For i As Integer = 0 To c.Length - 1
txt2.Text &= c(i)
Next
[解决办法]
Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strArray() As String = TextBox1.Text.Split( " ")
Dim intArray(100) As Int32
Dim i As Int32
For i = 0 To strArray.GetUpperBound(0)
intArray(i) = Convert.ToInt32(strArray(i))
Next
ReDim Preserve intArray(i - 1)
Array.Sort(intArray)
For i = 0 To intArray.GetUpperBound(0)
TextBox2.Text &= intArray(i).ToString & " "
Next
End Sub
End Class

读书人网 >VB Dotnet

热点推荐