怎么编写vb程序

兄弟，真对不起，我以前学过但又忘了 ，不过你如果只是想知道结果的话我可以帮你，需要一个timer控件，他的interval 的值为1

Public d As Single
Dim a, b, c, s, s1 As Single
Private Sub Timer1_Timer()
a = 1
b = 2
c = 10
d = d + 1
s1 = a / (b + (d * c))
If s1 > 0.001 Then
s1 = a / (b + (d * c))
s = s + s1
Else
Print s
Timer1.Enabled = False
End If
End Sub