1、编写程序，计算并输出下面级数前n项(n＝30)的部分和。
        1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+ ……

（10分）
请将你解答本题所写的源程序粘贴到下面


2、将一个一维数组反序放置。例如： a＝(67,89,76,98,66), 反序放置后，a＝(66,98,76,89,67)。

（10分）
请将你解答本题所写的源程序粘贴到下面


3、将矩阵m(n,n)对角线上的元素置为1，其余元素置为0。

（10分）
请将你解答本题所写的源程序粘贴到下面

请大大们高抬贵手  帮帮··

在线等 ··  高手 别客气啊 ··  

··· 对各位都是举手之劳啊  
怎么不愿下手呢··

哭了···

急啊··  谁伸出援助之手啊 ···

崩··

第二个问题

Dim a(10) As Integer
Dim i As Integer
For i = LBound(a) To UBound(a)
    a(i) = i * 2
Next
For i = LBound(a) To UBound(a) / 2 - 1
    Dim temp As Integer
    temp = a(UBound(a) - i)
    a(UBound(a) - i) = a(i)
    a(i) = temp
Next

 

第一个：
Option Explicit

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim sum As Double
   
    For i = 1 To 29
        j = i + 1
        sum = sum + 1 / (i * j)
    Next
    Text1 = sum
End Sub
第三个：
Option Explicit

Private Sub Command1_Click()
    Dim i As Integer, j As Integer, a(1 To 5, 1 To 5) As Integer
    For i = 1 To 5
        For j = 1 To 5
            If i = j Then
                a(i, j) = 1
            Else
                a(i, j) = 0
            End If
        Next
    Next
End Sub

```  太感谢了···