vb.net数组赋值语法 vbs数组赋值

vb.net 数组赋值

Module Module1

成都创新互联主要从事网站设计、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务鸡西,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

Sub Main()

Dim i, k As Integer

Dim a(,) As Integer = {{1, 2}, {2, 4}, {3, 4}}

For i = 0 To 2

For k = 0 To 1

Console.Write("a({0},{1})={2} ", i, k, a(i, k))

Console.WriteLine()

Console.Read()

End Sub

End Module

vb.net 怎么使用指针对数组快速赋值赋值

数组好像没有快速赋值吧，或者你再把问题再清楚一点。

语句执行时间倒是可以做到。在语句前

Dim oldTime As Date = Now

在过程语句后加

Dim newTime As Date = Now

Dim differenceInSeconds As Long = DateDiff(DateInterval.Second, oldTime, newTime)

textbox1.text= "共用了:" differenceInSeconds "秒!"

vb.net数组如何赋值

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

也可声明为字符串数组

vb中怎么赋值给数组？

vb赋值给数组，有以下几种方式：

第一种方式：

Private Sub Command1_Click()

Dim a(10) As Integer '定义数组a,下标最大值为10

For i = 0 To 10

a(i) = i'这里可以直接给数组赋值了

Print "a(" i ")的值" a(i) '打印数组

End Sub

第二种方式：

Private Sub Command1_Click()

Dim a() As Integer '定义数组a，这里未设置下标

For i = 0 To 10

ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目

a(i) = i'这里可以直接给数组赋值了

Print "a(" i ")的值" a(i)

End Sub

第三种方式：

Private Sub Command1_Click()

a = Array(1, 5, 2, 43, 222)

MsgBox "a(0)原来的值是：" a(0)

a(0) = 100

MsgBox "a(0)赋值后的值是：" a(0)

End Sub