求VB大神编写关于fornext语言的程序1、求Fibonacci数列前30项，每行输出5个数。（Fibonacci数列第一项和第二项值都为1，从第三项开始，每项的值都是相邻前两项的和）。1123581321......2、

Question

求VB大神编写关于for next语言的程序
1、求Fibonacci数列前30项，每行输出5个数。（Fibonacci数列第一项和第二项值都为1，从第三项开始，每项的值都是相邻前两项的和）。
1 1 2 3 5
8 13 21 ......
2、编写程序，计算并输出下面数列前20项的和。要求结果保留2位小数。 数列为：2/1,3/2,5/3,8/5,13/8,21/13……
3、编写程序，统计并逐行显示（每行5个数）在区间[10000,50000]上的回文数。（回文数的含义是从左向右读与从右向左读是相同的，及对称，如12321。）
4、用公式… 进行计算，求前100项的和，精确到小数点后六位。
5、编写程序,计算并输出下面数列前n项的和(设n=20,x=0.5),要求结果保留3位小数。cos(x)/x,cos(2x)/2x,cos(3x)/3x,…… ,cos(n*x)/(n*x), …… (其中,cos(x)为余弦函数)。
6、编写程序,计算并输出下列数列前20项的和。
(1-2-3),(4-5-6),(7-8-9), …… ……(注意,n=0,1,2,3…)

Answer 1

dim i as Integer,n as Integer,Ret as Integer
n = Val(InputBox("请输入n:"))
Ret =1
For i = 1 to n
Ret = Ret * i
Next i
Print Ret