重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、int类型数组转换为Integer类型的数组。
专注于为中小企业提供网站设计、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业东胜免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上1000+企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
2、long类型数组转换为Integer类型的数组。
3、char类型数组转换为Integer类型的数组。
4、String类型数组转换为Integer类型的数组。
5、double类型数组转换为Integer类型的数组。
Dim abc(2) As Integer
abc = {0, 1, 2}
'或者
Dim abcd() As Integer
ReDim abcd(9)
For i As Integer = 0 To abcd.Length - 1
abcd(i) = i
Next
也可声明为字符串数组
Dim intArray() As Integer
- Or -
Dim intArray() As Integer = New Integer() { 0 }
- Or -
Dim intArray As Integer()
- Or -
Dim intArray As Integer() = New Integer() { 0 }
- Or -
Dim intArray(10) As Integer
如果不是用冒泡法用这个
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim My_str() As String = {"123", "45", "6", "12"}
Dim my_int() As Integer = System.Array.ConvertAll(My_str, New Converter(Of String, Integer)(AddressOf StrToInt))
System.Array.Sort(my_int)
Dim My_array() As String = Array.ConvertAll(my_int, New Converter(Of Integer, String)(AddressOf IntToStr))
End Sub
Public Shared Function StrToInt(ByVal bs As String)
Return CInt(bs)
End Function
Public Shared Function IntToStr(ByVal bs As Integer)
Return CStr(bs)
End Function
End Class
My_array() 是结果