Question

VB 题目 一定要附上解题步骤和思路 本人绝对菜鸟

求S=1!+2!+…….+20!
求数列2，22，222，2222，22222的总和

Answer 1

第一题：Private Sub Form_Click()
Dim i As Integer, s As Double, p As Double
s = 0
p = 1
For i = 1 To 20
p = p * i
s = s + p
Next i
Print s
End Sub

第二题：Private Sub Form_Click()
Dim a() As Long, i As Integer, n As Integer, k As Long, s As Long
n = InputBox("请输入数列的n值")
ReDim a(n)
For i = 1 To n
a(i) = 2 * 10 ^ (i - 1)
k = k + a(i)
s = s + k
Next i
Print s
End Sub
-------------------------------------------------------------
因为我也是学生，所以用得是最简单最直白的方法，没有什么很深奥的方法，第一题纯粹的For...Next循环语句，纯数学方法。第二题我用了一个数组，s代表整个数列的总和，k代表每一项的值，这里如果下次类似的数列求和，你可以把a(i) = 2 * 10 ^ (i - 1)语句进行修改，主要会改动的有两处：1、数字2，你可以把它换成其他的数字（当然0除外）；2、关于字母i的值对位数的控制，当i=1时表示2是在个位上的，i=2时，则在十位上，以此类推。
我的经验是：做程序题多看看书上的例题，把每一句话都吃透了，明白写程序的人为什么要这样写，另外要耐心，先抓住一些关键的语句，比如：For...Next,If...End If,Do While...Loop,While...Wend等，明白这些循环所起的作用，然后再细细读其中的其他句子，通常都是一些函数或者计算的分解。你可以自己找一些不同类型的函数然后总结一下它们所用到的步骤，模仿着写一些公式的求解语句，这样肯定可以的~~祝你越学越顺利~~（对自己有信心，千万别说自己菜哦）

Answer 2

第一题：
Private Function JieCheng(n As Integer) As Double
'这是一个求阶乘的函数
Dim ResInt As Double '定义一个变量存储结果
ResInt = 1
If n > 1 Then
For i = 2 To n
'开始循环计算
ResInt = ResInt * i
Next i
End If
JieCheng = ResInt
End Function

Private Sub Command1_Click()
Dim Sum As Double
Dim k As Integer
For k = 1 To 20
Sum = Sum + JieCheng(k) '调用函数计算阶乘
Next k
MsgBox Sum '显示结果
End Sub
第二题：sum=2+22+222+2222+22222