一道大学VB题

把Do While d > 10000 改为 Do While d < 10000

Private Sub Command1_Click()
Dim s, i, a As Integer
a = 0
i = 1
Do
a = a + 1
s = s + (i) ^ -1
i = i + a
Loop Until i ^ -1 < 10 ^ -4
Text1.Text = s
End Sub

Private Sub Command1_Click()
Dim i%, S!, d%
d = 1
i = 1
S = 0
Do until d > 10000
S = S + (1 / d)
d = d + i
i = i + 1
Loop
Text1 = S
End Sub

代码像下面的一样，纠正其中的一个错误：
Dim s,i,a As Integer ' 定义 s,i 为变体型数据，a为整型
应该为：dim s as integer,i as integer,a as integer