vb点虐 一维数组赋值 vba一维数组赋值

在VB.NET里怎么用循环语句来赋值

dim s() as string

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

For Each fm1 In Panel1.Controls

dim i=0

if fm1.GetType.ToString = "System.Windows.Forms.TextBox" Then

s(i)=fm1.text

i+=1

End If

Next

vb点虐 怎么使用指针对数组快速赋值赋值

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

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

Dim oldTime As Date = Now

在过程语句后加

Dim newTime As Date = Now

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

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

怎样在VB.NET中，定义了一个不知大小的一维数组，然后给这个数组添加值

使用动态定义

ReDim a() AS **********'定义一个动态数组

...........

计算出第一个Y

ReDim a(0)

a(0)=Y

.....................

计算出第二个Y

ReDim Preserve a(1) '再次分配元素并保留原有元素

a(1) =Y

.........................

.........................

ReDim Preserve a(N) '第N次分配元素并保留原有元素

a(N) =Y

在VB 中怎样只给一维数组的第一个元素赋值

可以使用LBound函数

例如：

Private Sub Command1_Click()

Dim a(10) As Integer

a(LBound(a)) = 4  '向一维数组的第一个元素赋值

End Sub