UC知道求vb高手 希望今天下午之前帮忙解决 30分
来源：百度知道 编辑：UC知道 时间：2024/06/07 03:50:07
帮忙解决下
1: 1540
求和：1+1+2+1+2+3+1+2+3+4+???+1+2+???+20
2: 18项,1140
求和：1+1+2+1+2+3+1+2+3+4+???，直到和大于1000为止。
3. 5675
编写程序计算并输出下面数列前n项的和，当第一次出现和数的绝对值大于5000时求和终止。 1*2*3,-2*3*4,3*4*5,-4*5*6,……,(-1)^(n-1)*n*(n+1)*(n+2),……,
4. 有一个数列，其前三项分别为1，2，3，从第四项开始，每项均为其相邻的前三项之和的1/2， 问：该数列从第几项开始，其数值超过1000。
5. 1.6667 , 29.8889
数列S1=1,S2=2,S3=(S1+S2)/2,……,Sn=(Sn-1+Sn-2)/2。求S20与前20项的和。
6.
编写程序，自己产生一个二维数组A（5 ，5），计算数组中每一行数据的平均值，对该数组增加1列，将求出的行平均值存于该行最后1列。
7
. 编写程序，建立一个 6 × 6 的二维数组（数据自定或由程序随机产生），输出数组中的最大元素，并统计最大元素所在行的所有元素之乘积。
8.
编写程序，建立一个5×5的二维数组（数据自定或由程序随机产生），分别计算两条对角线上的元素之和，并找出第3列元素中的最大者。
1: 1540
求和：1+1+2+1+2+3+1+2+3+4+???+1+2+???+20
2: 18项,1140
求和：1+1+2+1+2+3+1+2+3+4+???，直到和大于1000为止。
3. 5675
编写程序计算并输出下面数列前n项的和，当第一次出现和数的绝对值大于5000时求和终止。 1*2*3,-2*3*4,3*4*5,-4*5*6,……,(-1)^(n-1)*n*(n+1)*(n+2),……,
4. 有一个数列，其前三项分别为1，2，3，从第四项开始，每项均为其相邻的前三项之和的1/2， 问：该数列从第几项开始，其数值超过1000。
5. 1.6667 , 29.8889
数列S1=1,S2=2,S3=(S1+S2)/2,……,Sn=(Sn-1+Sn-2)/2。求S20与前20项的和。
6.
编写程序，自己产生一个二维数组A（5 ，5），计算数组中每一行数据的平均值，对该数组增加1列，将求出的行平均值存于该行最后1列。
7
. 编写程序，建立一个 6 × 6 的二维数组（数据自定或由程序随机产生），输出数组中的最大元素，并统计最大元素所在行的所有元素之乘积。
8.
编写程序，建立一个5×5的二维数组（数据自定或由程序随机产生），分别计算两条对角线上的元素之和，并找出第3列元素中的最大者。
1、
Private Sub Form_Click()
For i = 1 To 20
k = k + i
m = m + k
Next i
Print m
End Sub
2、
Private Sub Form_Click()
Do
i = i + 1
k = k + i
m = m + k
Loop Until m > 1000
Print m
End Sub
3、
Private Sub Form_Click()
Do
i = i + 1
m = m + (-1) ^ (i - 1) * i * (i + 1) * (i + 2)
Loop Until Abs(m) > 5000
Print m
End Sub
4、
Private Sub Form_Click()
Dim d() As Integer
For i = 1 To 3
ReDim d(3)
d(i) = i
Next i
i = 3
Do
i = i + 1
ReDim Preserve d(i)
d(i) = (d(i - 1) + d(i - 2) + d(i - 3)) / 2
Loop Until d(i) > 1000
Print i
End Sub
5、答案错了吧？
Private Sub Form_Click()
Dim d(20) As Single
d(1) = 1
d(2) = 2
i = 2: m = d(1) + d(2)
For i = 3 To 20
d(i) = (d(i - 1) + d(i - 2)) / 2
m = m + d(i)
Next i