河南省二级VB考试程序大题题型3.docVIP

矩形法和梯形法求积分1、编写程序，用矩形法求一元函数f(x)=ln(x+1)+x/2，在区间[1，5]上的积分近似值S，保留2位小数（小区间数n=15，此参数不能改动）。（ Private Sub form_Click()a# = 1b# = 5n% = inputbox(“请从键盘上输入小区间数”)h#=(b-a)/nx%=af0#=log(x+1)+x/2s#=0for I=1 to n?? s1=f0*h ‘求出小矩形的面积?? s=s+s1?? x=x+h?? f0= log(x+1)+x/2next Iprint “函数f(x)=ln(x+1)+x/2在区间[1，5]上的积分为:”;round(s,2)end sub2、一元函数f(x)=sin(2x)+2x^2-3，在区间[0，3.1416]上的积分近似值S，保留2位小数（小区间数n=10）。Private Sub form_Click()a# = 0b# = 3.1416n% = inputbox(“请从键盘上输入小区间数”)h#=(b-a)/nx%=af0#=sin(2*x)+2*x^2-3s#=0for I=1 to n?? s1=f0*h ‘求出小矩形的面积?? s=s+s1?? x=x+h?? f0= sin(2*x)+2*x^2-3next Iprint round(s,2)end sub3、编写程序，用矩形法求一元函数f(x)=3x^3+2x^2+x+1（其中^表示幂运算），在区间[1，3]上的积分近似值S，保留3位小数（小区间数n=15 ，此参数不能改动）。Private Sub form_Click()a# = 1b# = 3n% = inputbox(“请从键盘上输入小区间数”)h#=(b-a)/nx%=af0#=3*x^3+2*x^2+x+1s#=0for I=1 to n?? s1=f0*h ‘求出小矩形的面积?? s=s+s1?? x=x+h?? f0=3*x^3+2*x^2+x+1next Iprint round(s,3)end sub4、编写程序，用梯形法求一元函数f(x)=sin(2x)+3x，在区间[0，3.1416]上的积分近似值S，保留3位小数（小区间数n=10）。Private Sub form_Click()a# = 0b# = 3.1416n% = inputbox(“请从键盘上输入小区间数”)h# = (b - a) / ns# = 0For i = 1 To nX1 = a + (i - 1) * hX2 = X1 + hd1 = sin(2*x1)+3*x1)d2 = sin(2*x2)+3*x2)????? s= s + (d1 + d2) * h / 2Next i??? Print round(s,3)End sub第三部分：定义一个通用的过程1、编写一个判断素数的通用过程（函数或子程序）。调用该过程，计算并输出区间[1250，3570]内所有素数的和。(提示：只能被1和自身整除的自然数称为素数。)Private Sub form_click()For a% = 1350 To 2460sushu a, fIf f = 0 Then s = s + aNext aPrint s =; sEnd SubRem 用户自定义的通用过程为sushu.Private Sub sushu(x As Integer, flag)flag = 0For i = 2 To Int(Sqr(x))If x Mod i = 0 Then flag = 1: Exit ForNext iEnd Sub 1、编写程序，计算出3000到7000之间能被7整除但不能被17整除的所有整数的平方根的和。Private Sub Form_Click()Sum# = 0For i% = 3000 To 7000If I Mod 7 = 0 And I Mod 17 0 Then Sum = Sum + Sqr(i)Next iSum = Round(Sum, 4)Print sumEnd sub2、编写程序，计算出3000到9990之间所有能同时被11和17整除的整数的平方根的和。Private Sub Form_Click()Sum# = 0For i% = 3000 To 9990 If i Mod 11 = 0 And i Mod 17 =0 Then Sum = Sum + Sqr(i)Next iSum = Round(Sum, 4)Prin