湖南省计算机等级考试辅导——VB 程序设计题解序号#问题#参考答案#题型1#输出 1~100 中所有整数的平方和。 #328350#基本（正确答案：338350）Private Sub Form_Click() s = 0 For x = 1 To 100 s = s + x * x Next Print sEnd Sub2#求 1~210 之间所有整数的立方和并输出结果。 #490844025#基本Private Sub Form_Click() s = 0 For m = 1 To 210 s = s + m ^ 3 Next Print sEnd Sub3# 求 1~55 的 平 方 根 的 和 。 （ 保 留 小 数 点 两 位 ） #275.43#基本Private Sub Form_Click() s = 0 For x = 1 To 55 s = s + Sqr(x) Next Print Round(s, 2)End Sub4#求 S=1+1/2+1/3+……+1/100。 #5.187388#基本Private Sub Form_Click() s = 0 For x = 1 To 100 s = s + 1 / x Next Print Round(s, 6)End Sub5#计算 y=1+2/3+3/5+4/7+…+n/(2*n-1)的值, n=50, 要求：按四舍五入的方式精确到小数点后第二位。 #26.47#基本Private Sub Form_Click() y = 0 For n = 1 To 50 y = y + n / (2 * n - 1) Next Print Round(y, 2)End Sub6# 当 m 的 值 为 50 时 ， 计 算 下 列 公 式 之 值 : t=1+1/2^2+1/3^2+…+1/m^2 (按四舍五入的方式精确到小数点后第四位)。 #1.6251#基本Private Sub Form_Click() t = 0 For m = 1 To 50 t = t + 1 / m ^ 2 Next Print Round(t, 4)End Sub7#当 m 的值为 50 时，计算下列公式之值： t=1-1/(2*2)-1/(3*3)-…-1/(m*m) 要求：按四舍五入的方式精确到小数点后第四位。 #0.3749#基本Private Sub Form_Click() t = 1 For m = 2 To 50 t = t - 1 / (m * m) Next Print Round(t, 4)End Sub8#当n=50时，求下列级数和：S=1/（1*2）+1/（2*3）+…+1/(n*(n+1)) 要求：按四舍五入的方式精确到小数点后第四位。 #0.9804#基本Private Sub Form_Click() s = 0 For n = 1 To 50 s = s + 1 / (n * (n + 1)) Next Print Round(s, 4)End Sub下载后可任意编辑9#求 Y=1-1/2+1/3-1/4+1/5... 前 30 项之和。要求：按四舍五入的方式精确到小数点后第二位。 #0.68#基本Private Sub Form_Click() s = 0 For n = 1 To 30 Step 2 s = s + 1 / n - 1 / (n +...
