扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:马金虎 来源:天极网 2007年11月9日
关键字:
Dim arrString ( 2 ) As String = {"星期一","星期二","星期三"} |
Dim arrDate ( 1, 1 ) As String = {{"星期一", "18号"}, {"星期二", "19号"}} |
Dim arrString ( ) As String = {"星期一","星期二","星期三"} '申明一个动态的一维数组,并初始化 Dim arrDate ( , ) As String = {{"星期一", "18号"}, {"星期二", "19号"}} '申明一个动态的二维数组,并初始化 |
Dim sTemp1 As String = arrString ( 1 ) '访问arrString数组中的第2个元素 Dim sTemp2 As String = arrDate ( 1 , 1 ) '访问arrDate数组中的第二行、第二列元素 |
Dim arrString ( 2 ) As String = {"星期一","星期二","星期三"} ReDim Preserve arrString ( 4 ) '重新申明arrString数组,数组的长度改为5,并且在新数组中复制原数组的元素 arrString ( 3 ) = "星期四" arrString ( 4 ) = "星期五" |
Dim arrString ( 2 ) As String = {"星期一","星期二","星期三"} ReDim arrString ( 4 ) '重新申明arrString数组,数组的长度改为5,并不往新数组中复制原数组的元素 arrString ( 0 ) = "星期一" arrString ( 1 ) = "星期二" arrString ( 2 ) = "星期三" arrString ( 3 ) = "星期四" arrString ( 4 ) = "星期五" |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。