Private Sub Command1_Click()
'第四题:1-1/3+1/5-1/7+1/9....+(-1)的n+1次方*1/(2n-1)的求法
Dim s#, n%
s = 0
n = Val(Text1)
For i = 1 To n
s = s + ((-1) ^ (i + 1)) * (1 / (2 * i - 1))
Print s;
Next i

End Sub


帮人做做考试题是很不对的,这样有碍于公平竞争.
我又一次违反了达尔文的定律.
Private Sub Command1_Click()
'第四题:1-1/3+1/5-1/7+1/9....+(-1)的n+1次方*1/(2n-1)的求法
Dim s#, n%
s = 0
n = Val(Text1)
For i = 1 To n
s = s + ((-1) ^ (i + 1)) * (1 / (2 * i - 1))

Next i

Print s;

End Sub

交流是提高的捷径,
但帮人做做考试题是很不对的,这样有碍于公平竞争.
我又一次违反了达尔文的定律.
女孩啊,你可要为你的同类争气啊...
希望这样的事情是第一次,也是最后一次.

[此贴子已经被作者于2007-6-26 19:14:03编辑过]

第二题：
Private Sub Form_Click()
Dim n, x, y, mx, my, max As Integer
n = InputBox("请输入入N：", "输入")
Dim d() As Integer
ReDim d(n, n)
For x = 1 To n
For y = 1 To n
d(x, y) = Int((100 - 0 + 1) * Rnd) + 0
Print d(x, y);
Next y
Print
Next x
max = d(1, 1)
For x = 1 To n
For y = 1 To n
If max < d(x, y) Then
max = d(x, y)
mx = x
my = y
End If
Next y
Next x
Print "最大："; max; "在第"; mx; "行第"; my; "列"
End Sub

楼主请注意：以后作业帖和考题不要给我发短信，因为我没做过作业也没考过试，所以所有类似帖我只有一个回答：我也不知道。

1. 最后根据通式求 速度快点 数学通式都忘光了

嗯嗯。。只是现丑而已，有不对的地方还请。。