|
赫赫(喘个大气先),虽然不是一口气读完,但也只用了几口气而已,
由于初次接触VB一下子赶不上来,加上时间的关系没能一一的仔细研究、做作业。
做个标记,顺便问几个笨笨的问题:
1,对于For—Next语句的理解:
Sub mysum()
Dim Lsum As Long, i As Long(在这里Lsum和i只是一个名字而已,不一定非得用这两个词可以用其他的如AA,BB之类的表示,这样理解对吗?)For i = 1 To 1000
Lsum = Lsum(这个Lsum是不是可以理解成原值是0的意思,即第一次循环的结果是0+1=1,这样对吗?) + i
Next
MsgBox "1到1000的自然数和为:" & Lsum
End Sub
2,关于数组:
Sub ggsmart()
Dim arr(1 To 100) As Integer '声明数组名称及数据类型(arr也只是一个名字而已,数组名称不一定非得用arr表示 对吧?) For i = 1 To 100 '循环,为数组的元素赋值
arr(i) = i
Next
End Sub
单单就上面这段代码按F5后是没看到什么结果显示出来的,可否解释一下为什么?
因为没有结果显示,所以我在Next后面加了一段:[a1].Resize(100, 1) = arr变成如下:
Sub ggsmart()
Dim arr(1 To 100) As Integer '声明数组名称及数据类型
For i = 1 To 100 '循环,为数组的元素赋值
arr(i) = i
Next
[a1].Resize(100, 1) = arr
End Sub
运行后结果是A1到A100的单元格都是1,这里我就不明白了, arr不是表示1到100的意思吗?那运行后A1到A100的单元格不应该是1,2,3,4,......100的意思吗?而怎么A1到A100都是1呢?
如果要执行A1至A100的单元格依次为1,2,3......100该怎么修改?
刚刚接触VB两三天,而且是看着你这贴子学的,所以麻烦老师解释一下上面几个愚笨的问题,非常感谢!
[ 本帖最后由 阿龙168 于 2009-10-10 09:52 编辑 ] |
|