从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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() 是结果
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图