求大神帮助，虽然是很简单的问题，但因为是初学，所以研究了很久都不知道怎么编写。

Question

(1)
dim s as integer
dim i as integer
dim arr(3,3) as integer
for i = 0 to 8
    arr(i \ 3,i mod 3) = i + 1
next
for i = 0 to 2
    s = s + arr(i,i)
next
msgbox  s(2)
dim s as integer
dim n as integer
dim i as integer
n = val(inputbox("please input n:"))
for i = 1 to n
s = s + 1 / n
next
msgbox s

Answer 1

（1）主对角线是啥意思？
楼上的回复，只计算了“左上——右下”的那一条，
就是那一条吗？
还有数组定义arr(2,2)就行了。
（2）楼上的代码，变量s的类型不对。
应该是用浮点类型的，用“整数”怎么能保存小数部分呢？
把这是改一下就没啥问题了。