十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
for i =0 to ...
为灌云等地区用户提供了全套网页设计制作服务,及灌云网站建设行业解决方案。主营业务为成都做网站、成都网站制作、成都外贸网站建设、灌云网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
for j =0 to ...
keyarray(i,j)=
next
next
双重循环,赋值和读取一样
dim s() as string
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
参照VB6,在VB点虐 应该也差不多
方法一,让它们形成控件数组
for i=1 to 5
textbox(i).text=1
next i
方法二,假设这些控件的名称有规律,分别是textbox1,textbox2等
for i=1 to 5
controls("textbox" i ).text=1
next i
在VB6中能通过,希望对你有帮助