练习(一)编程.doc

练习（一）编程 1. 设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。 C/1!-C^3/3!+C^5/5!- … +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ … 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim x As Double x = 0.3 Dim item As Double Dim sum As Double Dim fac As Double For n = 1 To 35 fac = 1 Dim i As Integer For i = 1 To 2 * n - 1 fac = fac * i Next item = (-1) ^ (n - 1) * x ^ (2 * n - 1) / fac sum = sum + item Next sum = Int(sum *+ 0.5) / MsgBox (sum) End Sub sum = 0.479426 2. 定义一个下标上界为30的单精度数组，设置好其初值（值处于[20，90]）， 计算数组中所有元素的均值。 Dim i, sum, ave As Integer Dim a(30) As Single For i = 0 To 10 a(i) = 20+Int(Rnd() * 71) Next For i = 0 To 30 sum = sum + a(i) Next ave = sum / 31 print sum 3. 在窗体上放置文本框Text1、Text2，放置一个按钮Command1。在Text1里写入一个整数，点击按钮时，对Text1内的数据进行判断，如果是素数，则在Text2里显示“该数是素数”。 Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then T Text2.Text = 该数是偶数 Else Text2.Text = 该数是奇数 End If 4. 输入一个三位数，分别输出它的百位数字、十位数字和个位数字。 Dim a, baiwei, gewei, shiwei As Integer a = Val(InputBox()) gewei = a Mod 10 baiwei= a \ 100 shiwei = (a \ 10) Mod 10 MsgBox(gewei) MsgBox(shiwei) 5. 计算sum=2+4+6+...+1000 Dim sum, i As Integer For i = 2 To 1000 Step 2 sum = sum + i Next print sum 6. 求下面级数前S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。1!-2!+3!-4!+ … +(-1)^(S-1)*S!+ … 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim item As Double Dim i As Integer Dim sum As Double Dim fac As Double sum = 0 n = 1 Do While True item = 1 For i = 1 To n item = item * i Next i