VB程序设计

显示全部楼层 · 2011-4-3 18:32:04

1-1/2+1/3-1/4+......+1/99

千问 · 2011-4-3 18:32:04

Private Sub Command1_Click()Dim i%, m!For i = 1 To 99
If i Mod 2 = 1 Then
m = m + 1 / i
Else
m = m - 1 / i
End IfNextPrint Format(m, "#0.0000000")End Sub

千问 · 2011-4-3 18:32:04

Private Sub Command1_Click()For i = 1 To 99If i Mod 20 Thenm = m + Val(1) / Val(i)Elsem = m - Val(1) / Val(i)End IfNextPrint mEnd Sub