输入圆的半径

1、1. 输入圆的半径，计算圆的周长，并输出2. 输入两个整数m.n，编写程序使得m>=n，并输出m.n的值3. 计算sum=1/1!+1/2!+1/10!4. 定义一个下标上届为10整形数组，并用随机函数尾气赋值（值处于0，100之间）计算所有数组中偶数的和5. 编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4!+.+(-1)(n-1)*1/n!+求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和）。计算并输出所求的和s，要求结果保留6位小数。（其中表示幂 运算）6. 随机输出一位于0,100的整数7. 如果一个三位整数等于其个位数字的立方和，则称该数

2、为水仙花数。请输入一个三位整数，并判断其是否为水仙花数。若是，用Msgbox输出“Yes”,否则输出“No”.8. 编写程序，计算下面级数中偶数项的和ES，在求和过程中，当某偶数项（注意，该项参与求和）的值小于0.001时求和终止并输出ES，结果取6位，1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)+9. 输入一个四位数，分别输出它的个位数字，十位数字，百位数字和千位数字10. 计算sum=2!+4!+6!+10!11. 用Iputbox输入一个年份，判断该年份是否是闰年，若是，则输出“Yes”,若不是，则输出”No”12. 编写程序，计算并输出级数前n项（m=20）中奇

3、数项的和，1*2*3-2*3*4+3*4*5-4*5*6+(-1)(n-1)*n*(n+1)*(n+2)+13. 某分段函数如下描述：（1）当X为偶数时，Y的值为X的二分之一（2）当X为奇数时，Y的值为X的二倍14. 输入三个数a,b,c,判断是否能构成三角形，若能，计算器面积，并用Msgbox输出，否则用Msgbox输出“不能构成三角形”15. 计算sum=1*3*5*916. 随即输出一个小写字母17. 编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。n=1*2+2*3+3*4+4*5+.+n*(n+1)+.18. 输入长方形的长和宽，计算长方形的周长，并输出19. 斐波纳数列

4、是由计算某动物繁殖增长量而提出的，数列的前两项是1，1，以后的每一项都是其相邻前两项之和。编写程序求：数列前30项和FS20. 输入三个数a,b,c，编写程序使得a<=b<=c，并输出a,b,c的值21. 编写程序，设n=20,x=3.4,编写程序。计算并输出S(n)的值，要求结果保留5位小数，S（n）=lnx/x+ln2x/x2+ln3x/x3+ln(n*x)/xn+22. 输入两个数，交换他们的值，并输出23. 编写程序，计算下面级数前 n 项的和 S ，在求和过程中，当某一项（注意，该项参与求和）的绝对值小于 0.0001&#

5、160;时，求和终止并输出结果 S 。结果取 6 位小数。    1/(1*2*3)-1/(2*3*4)+1/(3*4*5)-  +(-1)(n-1)*1/(n*(n+1)*(n+2)+     （其中，  表示幂运算）24. 编写程序，建立并输出一个7*7的矩阵，该矩阵主对角线元素为1，其余元素为0。答案：1. Dim m As Double ConstPI=3.1415926 m=val(inputbox(“请输入圆的半径

6、”) print”圆的周长为:”,2*PI*m 2. dim m as integer,n as integer,a as integer m=val(inputbox(“请输入m:”,输入,”m”) n=val(inputbox(“请输入n:”,输入,”n”) if n>m then a-m m=n n=a end if print”m=”,m print”n=”,n 3 。Dim m as integer,n as long,s as double n=1 s=0 for m=1 to 10 n=n*m s=s+1/n next print s 4 .randomize dim a%

7、(10) dim i%,s% for i=0 to 10 a(i)=101rnd next for i=0 to 10 if a(i) mod 2 =0 then s=s+a end if next print”所有偶数的和为:”,s 5. dim m as double,n as long,s as double,f as integer s=0:n=-1:f=1 do while 1/m>=0.0001 m=m*f f=f+1 n=-n s=s+n/m loop s=format(s,”0.000000”) print s 6 .randomize dim s% s=int(101*

8、rnd) print s 7 .dim a%,i%,j%,k% a=inputbox(“请输入一个三位数!”) i=a100 j=a10 mod 10 k=a mod 10 if a=i3+j3+k3 then msgbox(“Yes”) else msgbox(“No”) end if 8 dim a#,i%,es# i=1 do a=i*(i+1) i=i+1 if I mod 2=0then es=es+1/a end if loop until 1/a<0.001 es=format(es,”0.000000”) print es 9. dim a%,i%,j%,k%,m%,s$

9、 a=val(inputbox(“请输入一个四位数!”) i=a mod 10 j=(a mmod 100)100 k=(a mod 1000)100 m=a1000 s=”个位数字是:”&i&vbCrLf&”十位数字是:”&j&vbCrLf&”百位数字是:”&k&vbCrLf&”千位数字是:”&m print s 10. dim a!,i%,sum! I=1:a=1 Do a=a*i if I mod 2=0then sum=sum+a end if i=i+1 loop while<=10 print s

10、um 11. dim j% j=val(inputbox(“请输入年份!”) if j mod 400=0 Or j mod 4=0 and j mod 100<>0 then msgbox(“Yes”) else msgbox(“No”) end if 12. din s!,i% for i=1 to 10 step 2 s=s+i*(i+1)*(i+2) next msgbox(s) 13 dim x!,y! x=val(inputbox(“请输入x的值!”) if x mod 2 =0 then y=x/2 else y=2*x end if msgbox(y) 14. di

11、m i as integer,a(2) as integer,p as integer,s as integer for i=0 to 2 a(i)=val(inputbox(“输入第”&i&”条边的边长:”) next I if a(0)+a(1)>a(2) and a(0)+a(2)>a(1) and a(1)+a(2)>a(0) then p=(a(0)+a(1)+a(2)/2 s=sqr(p*(p-a(0)*(p-a(1)*(p-a(2) msgbox(s) else msgbox(“不能构成三角形!”) end if 15 dim sum as lo

12、ng,i as integer sum=1 for I =1 to 9 step 2 sum=sum*I next msgbox(sum) 16 dim a as string randomize a=chr(int(97+26*rnd) msgbox(a) 17 dim s!,i% for i=2 to 50 step 2 s=s+i*(i+1) next msgbox(s) 18 dim m#,n# m=val(inputbox(“请输入长方形的边长”) n=val(inputbox(“请输入长方形的另一个变长”) msgbox(2*(m+n) 19 dim a%,b%,c%,i%,FS%

13、 a=1:b=1:FS=2 for i=1 to 28 c=a+b a=b b=c FS=FS+c next msgbox(FS) 19 dim a%,b%,c%,t% a=-val(inputbox(“请输入a的值!”) b=val(inputbox(“请输入b的值!”) c=val(inputbox(“请输入c的值!”) if a>b then t=a a=b b=t end if if a>c then t=a a=c c=t end if if b>c then t=b b=c c=t end if 20 dim x#,i% dim S(20) as double n

14、=20 x=-3.4 for i=1 to 20 S(20)=S(20)+log(I*x)/(xi) next print format(S(20),”0.00000”) 22 Dim a%, b%, i% a = Val(InputBox("a") b = Val(InputBox("b") i = a: a = b: b = I Print I 23. Dim a#, i%, es# i = 1 Do a = i * (i + 1) * (i + 2) i = i + 1 If i Mod 2 = 0 Then es = es + (-1)i*(1

15、/ a) End If Loop Until 1 / a < 0.0001 es = Format(es, "0.000000") Print es 24. Dim a(7, 7) As Integer, i%, j% For i = 1 To 7 For j = 1 To 7 If i = j Then a(i, j) = 1 Else a(i, j) = 0 End If Next j Next I For i = 1 To 7 For j = 1 To 7 Print a(i, j); Next j Print Next i VERSION 5.00Begin

16、VB.Form Form1 Caption = "Form1" ClientHeight = 4425 ClientLeft = 120 ClientTop = 450 ClientWidth = 7830 LinkTopic = "Form1" ScaleHeight = 4425 ScaleWidth = 7830 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 1335 Left = 1440

17、TabIndex = 0 Top = 2040 Width = 4815 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()LONG 4 BYTE 1 SINGLE 4 DOUBLE 8 CURRENCY 8 INTEGER 2Abs 绝对值 sgn 符

18、号函数 aqr 平方根 整除 / 除以Mid(S,2,3) 获得字符串S从第二个字符开始的3个字符的函数RIGHT$(C,N) 取出字符串左边的N个字符LEFT$(C,N) 取出字符串左边的N个字符RND（） 产生的数据范围是【0,1）Asc 字符串转化为ASCIIEXP(N) e为底的指数函数LOG（N） 以E为底的自然函数Chr $(N) ASCII码转化为字符Fix（N） 取整Hex 十进制转化为十六进制Oct 十进制转化为八进制INT 小于或等于N的最大整数LCase 大写字母转为小写字母UCase 小写字母转化为大写字母Str 数值转化为字符串Val 字符串转化为数值BYVAL 按值

19、传递 byrel 按地址传递标签的作用是输出 文本框是的作用是输出和输入Textbox 控件的scrollbars属性可以设置文本框是带有滚动条 multine为true时才能加滚动条Sub 过程不可以有返回值 function 过程能有返回值Remove 删除 clear 全部清除 addition 添加新的列表Len字符串长度 multicolum 可以获得组合框中的列表项属性打开文件后会自动生成一个隐含的文件指针Int 小于等于N的最大整数Enable 属性用来设置按钮在程序运行期间是否可用随机文件中每个记录的长度是固定的 rtrim 去掉字符串右边空格二进制文件不可以用文字处理软件建立

20、和编辑 L上界 U下界MaxLength 用来设置textbox控件中的输入文本的最大长度Alignment 属性用来改变标签中文本德对齐方式文本文件不属于文件访问方式和储存结构来进行分类的文件Timeer 组件是一个非界面组件上界不能指定End Sub1,输入长方形的长和宽，计算长方形的面积，并输出Private Sub Command1_Click()Dim a!, b!, s!a = Val(InputBox("长方形的长为：")b = Val(InputBox("长方形的宽为：")s = a * bPrint "长方形的面积为:&quo

21、t; sEnd Sub2.输入长方形的长和宽，计算长方形的周长，并输出。Private Sub Command1_Click()Dim a!, b!, s!a = Val(InputBox("长方形的长为：")b = Val(InputBox("长方形的宽为：")s = (a + b) * 2Print "长方形的周长为:" sEnd Sub3.输入正方形的边长，计算正方形的面积，并输出。Private Sub Command1_Click()Dim a!, s!a = Val(InputBox("正方形的边长为:"

22、;)s = a 2Print "正方形的面积为:" sEnd Sub4.输入正方形的边长，计算正方形的对角线长，并输出。Private Sub Command1_Click()Dim a!, l!a = Val(InputBox("输入边长:")l = Sqr(2) * aPrint "对角线长度为:" lEnd Sub5.输入园的半径，计算圆的面积，并输出。Private Sub Command1_Click()Dim r!, s!r = Val(InputBox("输入半径")pi = 3.1415926s =

23、 pi * r 2Print "圆的面积为:" sEnd Sub6.输入圆的半径，计算圆的周长，并输出。Private Sub Command1_Click()Dim r!, s!r = Val(InputBox("输入半径")pi = 3.1415926s = pi * r * 2Print "圆的周长为:" sEnd Sub7.计算sum = 1+3+5+99Private Sub Command1_Click()Dim i$, sum%sum = 0For i = 1 To 100 Step 2sum = sum + iNext

24、 iText1.Text = sumEnd Sub8.计算2+4+6+100Private Sub Command1_Click()Dim i!, sum%sum = 0For i = 2 To 100 Step 2sum = sum + iNext iText1.Text = sumEnd Sub9.计算sum=1*2*3*10Private Sub Command1_Click()Dim i$, sum%sum = 1For i = 1 To 10sum = sum * iNext iText1.Text = sumEnd Sub10.计算sum=1!+3!+5!+9!Private Su

25、b Command1_Click()Dim i%, s#, f#f = 1s = 0For i = 1 To 10f = f * iIf i Mod 2 = 1 Thens = s + fEnd IfNext iPrint "sum = 1!+3!+5!+9!" "=" sEnd Sub11.计算sum = 2!+4!+10！Private Sub Command1_Click()Dim i%, s#, f#f = 1s = 0For i = 1 To 10f = f * iIf i Mod 2 = 0 Thens = s + fEnd IfNext i

26、Print "sum = 2!+4!+6!+10!" "=" sEnd Sub13.有一个数列，第一项和第二项都是1，以后每一项都是其相邻前两项之和的0.65倍。试编写通用过程，求数列前n项的平均值。要求调用该过程，计算并输出n=49时前n项的平均值（保留两位小数）。Private Sub Command1_Click()Print "前49项的平均值是：" f(49)End SubPublic Function f(n%)Dim a#(), i%ReDim a#(1 To n)a(1) = 1: a(2) = 2For i = 3

27、To na(i) = (a(i - 1) + a(i - 2) * 0.65Next iFor i = 1 To ns = s + a(i)Nextpj = s / nf = Format(pj, "#.#")End Function14.设n=20,x=0.5,编写程序，计算并输出下面级数的部分和。结果取6位小数；1-x2/2!-x4/4!+x6/6!-+(-1)(n-1)*x(2n)/(2n)!+Private Sub Command1_Click()Dim f#, i%f = 1: x = 0.5: s = 0: n = -1For i = 1 To 40f = f

28、* iIf i Mod 2 = 0 Thenn = -ns = s + (x i / f)End IfNext isum = 1 - sPrint "级数的部分和是:" Format(sum, "#.#")End Sub15.随机输出一个位于0,100的整数。Private Sub Command1_Click()Dim s#s = Int(Rnd * 101)Print "随机整数位:" sEnd Sub16.编写程序，计算并输出下面级数前n项（n=50）中偶数项和。S=1*2+2*3+3*4+n*(n+1)+Private Sub

29、 Command1_Click()Dim i%n = 50For i = 2 To n Step 2s = s + i * (i + 1)Next iPrint "偶数项的和是:" sEnd Sub17.编写一个函数，其参数为一个一维整数足，其功能为求数组中所有元素是最小值。Private Sub Command1_Click()Dim a(10) As Integer, i%, j%, t%For i = 1 To 10a(i) = Int(Rnd * 100)Print a(i)Next iFor i = 1 To 10 For j = 1 To 10 - i If a

30、(j) > a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next jNext iFor i = 1 To 10Next iPrintPrint "最小值是" a(1)End Sub18.编写一个函数，其参数为一个一维数组，其功能为求数组中所有元素的平均值。Private Sub Command1_Click()Dim a(10) As Integer, t%, pj!For i = 1 To 10a(i) = Int(Rnd * 100)Print a(i)Next it = 0For i =

31、1 To 10t = t + a(i)Next ipj = t / 10PrintPrint "数组中所有元素 平均值为:" pjEnd Sub20.编写程序，计算并输出下面计算前n项(n=20)中奇数项的和。1*2*3-2*3*4+3*4*5-+（-1）(n-1)n*(n+1)*(n+2)+Private Sub Command1_Click()Dim i%, n%, sum%For i = 1 To 20 Step 2sum = sum + i * (i + 1) * (i + 2)Next iPrint sumEnd Sub21.编写程序。设n=20,x=3.4,要计

32、算并输出s(n)的值，要求结果保留5 位小数。S(n)=lnx/x+ln2x/x2+ln3x/x3+ln(n*x)/xn+Private Sub Command1_Click()Dim i%x = 3.4: n = 20: s = 0For i = 1 To ns = s + Log(i * x) / x iNext iPrint Format(s, "#.#")End Sub22.编写一个函数，其功能为判断某个数是不是素数。调用该函数，奇数并输出区间3000,4000内所有素数的和。Private Sub Command1_Click()Dim x%, j%x = Val

33、(InputBox("输入第一个自然数")For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i > x - 1 ThenPrint x; "是素数"ElsePrint x; "不是素数"End IfEnd SubPrivate Sub Command2_Click()Dim n%, i%, sum!sum = 0For n = 3000 To 4000For i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i >

34、; n - 1 Thensum = sum + nEnd IfNext nPrint sumEnd Sub23编写一个函数，其功能为判断某个整数是不是一个素数。调用该函数，判断100007是否是素数Dim x%, i%X=val(inputbox(“输入第一个自然数”)For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i > x - 1 ThenPrint x;”是素数”ElsePrint x;”不是素数”End If24 随机输入一个小写字母s = Chr$(Int(Rnd * 26 + 97)Print “输出的随机小写字母

35、是”;s25 随机输入一个大写字母p = Chr$(Int(Rnd * 26 + 65)Print “输出的随机大写字母是”;p26输入两个数，交换他们的值，并输出Dim m!, n!, t!m = Val(InputBox(请输入第一个数值)n = Val(InputBox(请输入第二个数值)print”交换前数值是”;m;nt = m: m = n: n = tprint”交换后数值是”;m;n27编写一个函数，其功能为求两个数的最小数Dim x!, y!x = inputbox(“输入第一个数值”)Y=inputbox(“输入第二个数值”)Min = xIf Min > y The

36、n Min = yPrint “两数中的较小数”;min28编写一个函数，其功能是把一个二进制数串转换为十进制数串。调用该函数，计算二进制1110011”对应的十进制M=inputbox(“”)Dim i As LongDim b As LongFor i = 1 To Len(m)Select case mid (m,len(m) I + 1,1)Case “0”: b =b +2(I 1) * 0Case “1”: b =b +2(I 1) *1Case “2”: b =b +2(I 1) *2End SelectNext iPrint b29编写一个函数，其功能是把一个八进制数串转换为十

37、进制数串。调用该函数，计算八进制1234567”对应的十进制m=inputbox(“”)Dim i As LongDim b As LongFor i = 1 To Len(m)Select case mid (m,len(m) I + 1,1)Case “0”: b =b +8(I 1) * 0Case “1”: b =b +8(I 1) *1Case “2”: b =b +8(I 1) *2Case “3”: b =b +8(I 1) *3Case “4”: b =b +8(I 1) * 4Case “5”: b =b +8(I 1) *5Case “6”: b =b +8(I 1) *

38、6Case “7”: b =b +8(I 1) * 7End SelectNext iPrint b30编写程序实现，从键盘输入一个十六进制数，将其转换为十进制数。并输出结果，要求转化过程用function实现m=inputbox(“”)Dim i As LongDim b As LongFor i = 1 To Len(m)Select case mid (m,len(m) I + 1,1)Case “0”: b =b +16(I 1) * 0Case “1”: b =b +16(I 1) *1Case “2”: b =b +16(I 1) *2Case “3”: b =b +16(I 1)

39、 *3Case “4”: b =b +16(I 1) * 4Case “5”: b =b +16(I 1) *5Case “6”: b =b +16(I 1) * 6Case “7”: b =b +16(I 1) * 7Case “8”: b =b +16(I 1) * 8Case “9”: b =b +16(I 1) * 9Case “a”: b =b +16(I 1) * 10Case “b”: b =b +16(I 1) * 11Case “c”: b =b +16(I 1) * 12Case “d”: b =b +16(I 1) * 13Case “e”: b =b +16(I 1)

40、* 14Case “f”: b =b +16(I 1) *15End SelectNext iPrint b30输入一个四位数，分别输出个十百千位数Dim x%, g%, s%, b%x=val(inputbox(“输入一个四位数”)If x > 1000 And x < 10000 Thenp = Fix(x / 1000)b = Fix(x - q * 1000) / 100s = Fix(x - q * 1000 - b * 100) / 10)g = x Mod 10print”个位数为”;gprint”十位数为”;sprint”百位数为”;bprint”千位数为”;qEl

41、seprint msgbox(“输入错误！”)End If31输入一个两位数，分别输出它的个位数和十位数Dim x%, m%, n%x=val(inputbox(”输入一个自然数”)If x > 0 And x < 100 Thenm = x Mod 10n = (x - m) / 10print”个位数为”; mprint”十位数为”;nElseprint msgbox(“输入错误”)End If编写程序，产生一个整形二位数据a(n,n),(n取5)，数组元素的 取值范围为0,15),计算数组中每一列数据的和。Dim a%(5, 5)Dim i%, j%For i = 1 To

42、5For j = 1 To 5a(i, j) = Int(Rnd * 15)Print a(i, j);Next jPrintNext iFor i = 1 To 5s1 = s1 + a(i, 1)Next iprint”第一列数据之和是”;s1For i = 1 To 5s2 = s2 + a(i, 2)Next iprint”第二列数据之和”;s2For i = 1 To 5s3 = s3 + a(i, 3)Next iprint”第三列数据之和”;s3For i = 1 To 5s4 = s4 + a(i, 4)Next iprint”第四列数据之和”;s4For i = 1 To 5

43、s5 = s5 + a(i, 5)Next iprint”第五列数据之和”;s533编写程序，建立一个6*6的整形二位数组（数据由程序调用end函数产生0,15）的随机整数数）Dim a%(6,6), i% j%For i = 1 To 6For j = 1 To 6a(i, j) = Int(Rnd * 15)Print a(i, j);Next jPrintNext iMin = a(1, 1)For i = 1 To 6For j = 1 To 6If Min > a(i, j) Then Min = a(i, j)Next jNext iPrint “数组中最小的元素为”;min

44、34,编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。S=1*2+2*3+3*4+4*5+ +n*(n+1)+Dim sum!, n!sum = 0For n 2 to50 step 2sum = sum + n * (n + 1)Next nPrint sum35编写一个函数，其功能为求两个数的最大公约数Dim m%, n%, t%, x%, y%, r%m=val(inputbox(“输入一个自然数”)n=val(inputbox(“输入第二个自然数”)If m < n Then t = m: m = n: n = tx = m: y = nr = x Mod yDo W

45、hile r <> 0x = yy = rr = x Mod yLoopprint m&”和”&n&”的最大公约数为”;y36 m 与 n 的公倍数Private Sub Command1_Click()Dim n%, m%, r%, t%, x%, y%m = InputBox("输入的第一个自然数")n = InputBox("输入的第二个自然数")If m < n Then t = m: m = n: n = tx = m: y = nr = m Mod nDo While r <> 0x =

46、yy = rr = x Mod yLoopPrint m; "和" n; " 的最小公倍数是; " m * n / y37.计算sum=1/2!+1/4!+1/6!+1/10!Private Sub Command1_Click()Dim i As Integer, f As Double, s As Double f = 1: s = 0For i = 1 To 10 f = f * 1 If i Mod 2 = 0 Then s = s + 1 / f End IfNext iPrint "sum=1/2!+1/4!+1/6!+1/10!&

47、quot; "=" sEnd Sub38.用Founction过程求斐波那契数列（1,1,2,3,5,8）的第n项，并调用该函数，显示数列的第五项。Private Sub Command1_Click() Dim p As Integer p = f(5)End SubPublic Function f(n%)Dim a#(), i%ReDim a#(1 To n)a(1) = 1: a(2) = 1For i = 3 To na(i) = a(i - 1) + a(i - 2)Next if = a(n)Print "第" n; "项是&qu

48、ot; a(n)End Function39输入三个数判断是否能构成三角形，若能，计算其面积Private Sub Command1_Click() Dim a!, b!, c!, p!, s! a = Val(InputBox("输入第一条边的边长") b = Val(InputBox("输入第二条边的边长") c = Val(InputBox("输入第三条边的边长") If a + b > c And a + c > b And c + b > a Then p = (a + b + c) / 2 s = Sqr

49、(p * (p - a) * (p - b) * (p - c) Print s Else MsgBox ("不能构成三角形") End IfEnd Sub40求斐波那契数列的前三十项和FS.Private Sub Command1_Click()Dim a#(1 To 30), fs&a(1) = 1a(2) = 1For i = 3 To 30a(i) = a(i - 1) + a(i - 2)NextFor i = 1 To 30fs = fs + a(i)NextPrint fsEnd Sub41编程，计算并输出下面级数，当N=15，X=3.1416的部分和

50、，结果取6位小数Private Sub Command1_Click()Dim i As IntegerDim sum As SingleDim a As DoubleDim b As Singlea = 1: x = 3.1416: sum = 1For i = 1 To 15a = a * ib = x i / asum = sum + iNext iPrint Format(sum, "0.000000")End Sub42 定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于10,100之间计算数组中所有偶数的数据和Private Sub Command1

51、_Click()Dim a%(10), i, sum%For i = LBound(a) To UBound(a)Randomizea(i) = Rnd * 100If a(i) Mod 2 = 0 Thensum = sum + a(i)End IfNextPrint sumEnd Sub43 判断输入年份是否为闰年Private Sub Command1_Click()Dim m%m = InputBox("输入年份")If m Mod 400 = 0 Or m Mod 100 <> 0 And m Mod 4 = 0 ThenPrint " yes "ElsePrint " no "End IfEnd Sub44 当x为偶数时，y为x的2分之一，当x为奇数时，y为x的2倍Private Sub Command1_Click()Dim x!, y!x = Val(InputBox("请输入x值")If x Mod 2 = 0