大学数据库VBA考试简单填空题。坐等答案。急求求S=1/1+1/2+1/3+1/4+…+1/n+…的前n项之和,当S第一次大于或等于7时终止计算,此时项数n

Question

大学数据库VBA考试简单填空题。坐等答案。急求
求 S = 1/1 + 1/2 + 1/3 + 1/4 + … + 1/n + … 的前n项之和,当S第一次大于或等于7时终止计算,此时项数n

Answer 1

sub test()
dim s as int
sim n as int
s=0
for n=1 to 6
s=s+1/n
next n
msgbox s
end sub