www.bsff.net > EACh%nExt

EACh%nExt

其实这个问题很简单,就是把C的值写入到指定区域(A22:I30)中——A到I共9列,22到30共9行,C的值由I得来,每次加1,于是就会出现A22到I22被写入1到9,B22到I22被写入10-18……最终看上去像个九九乘法表。

Dim A(12) integer,js as integer js=14 '把 14 赋值给 Js for I=1 to12 '循环 i 从 1 到 12 A(I)=js ' 把 Js 赋值 数组 A(i) / 第一次 A(1)=14 ... js=js+7 '把 Js+7 赋值给 Js / 第二次 A(2)=21 ... next i '循环结束 js=0 '把 0 赋值给 Js fo...

hobby 是个集合``你先直接输出`看看是什么样子在用FOR吧```我建议用数组

For Each ... In ...是VB的一个特色,对于循环遍历数组中得所有元素非常方便。而且字面意思就很人性化,不是么?直译过来就是:对于每一个a中的 c 怎么样怎么样,是吧。 c定不定义都无所谓的,你也可以定义啊,无关大局。但是注意,For Each In ...

For Each ……Next格式:语句只为集合与数组二种数据类型专门度身定做的。 For Each In [] [Exit For ] Next [] 例子中a为一个数组;x是成员,不用定义! 例: For Each x In a sum = sum + x Next x VB For Each.Next语句在数组中的使用: VB For...

Private Sub CommandButton6_Click() Dim rng As Control For Each rng In userform1.Controls If TypeName(rng) = "textbox" Then rng.Text = "" End if If TypeName(rng) = "combobox" Then rng.Text = "" End If Next rng End Sub

for each 用来把一条记录的所有字段显示出来 do until 用来把数据表中所有记录显示出来 两个结合,将数据表的所有记录的所有字段显示出来

s="a s f g w e r y c x k j a" s=split(s) for each i in s msgbox i next '这样你就知道for each next 怎么用了

For Each 循环语句的含义是这样的: For Each 【元素】 in 【集合】 其中【元素】和【集合】必需是相对应的,工作表元素 Worksheet 就要对应工作表集合 Worksheets ;单元格元素 Cell/Range 就要对应单元格集合 Range ;依此类推。当应用于工作...

dim array(10),i,anyelement,sum sum=0 for i=0 to 10 array(i)=i next for each anyelement in array//依次取出0,1,2,3。。。10到anyelement sum=sum+anyelement//求和0+1+2+3+。。。+10 next

网站地图

All rights reserved Powered by www.bsff.net

copyright ©right 2010-2021。
www.bsff.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com