小白用VB开发安卓程序_15数组和list对象的使用

我简单写了几组代码，大伙慢慢感悟一下

Sub Activity_Create(FirstTime As Boolean)
    
    
    '定义一个数组，但没有设置单元数量
    Dim PP() As String 
    
    '将一组数据分配给一维数组变量      
    PP = Array As String("乾为天","天山遁","雷山小过","雷泽归妹")
            
    For i=0 To (PP.Length-1)'计次循环:0到(P数组的长度)
        '在log界面输出数组里面的数据
        Log(PP)
    Next


End Sub


Sub Activity_Create(FirstTime As Boolean)
    
    
    '专业的字符串处理库 StringFunctions
    Dim sf As StringFunctions
    
    '使用这个库需要初始化一下
    sf.Initialize
    
    Dim  r As String = "浙江▲河南▲山西"
        
    '根据分割符号▲，将一个字符串分割后分配给数组变量
    Dim bigArraryText() As String = sf.Split2(r , "▲")


End Sub    

使用这个库，需要在库页面打勾这个库，不然B4A是无法识别这个StringFunctions对象

Sub Activity_Create(FirstTime As Boolean)
    
    ‘List也可以 当作数组使用，但它的功能更强大。
    Dim pgList_RecordIndex As List
    
    pgList_RecordIndex.Initialize
    
    
    pgList_RecordIndex.Add("杭州")
    pgList_RecordIndex.Add("湖州")
    
    For i = 0 To pgList_RecordIndex.Size-1
        
        Log(pgList_RecordIndex.Get(i))
        
    Next

End Sub