VB程序设计的两道题,帮写一下代码,初学的题!1：求1+1/（1+2）+1/（2+3）+1/（3+4）.的前N项和2：生成20个20-3000之间的随机数,每行5个,再下行输出其中除5余2并被3整除的数,并求它们的和

Question

VB程序设计的两道题,帮写一下代码,初学的题!
1：求1+1/（1+2）+1/（2+3）+1/（3+4）.的前N项和
2：生成20个20-3000之间的随机数,每行5个,再下行输出其中除5余2并被3整除的数,并求它们的和

Answer 1

Option ExplicitOption Base 1Private Sub Command1_Click()' 1：求1+1/（1+2）+1/（2+3）+1/（3+4）.的前N项和Dim N%, S!, i%N = InputBox("N=", "输入", 5)S = 0For i = 1 To N S = S + 1 / (i - 1 + i)Next iPrin...