最新交院VB程序设计.pdf

《最新交院VB程序设计.pdf》由会员分享，可在线阅读，更多相关《最新交院VB程序设计.pdf（25页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、 交院 VB 程序设计 精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 交院 VB程序设计 程序设计 第一题 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。将结果存入变量S 中。代码：Dim I As Integer For i=2 To 50 If(i Mod 2)=0 Then S=s+i End If Next Print(CStr(s)第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+.+1*2*3*.*10 并将结果存入变量 S 中 代码：Dim i,j As Integer Dim k As Long k=

2、1 s=0 For i=1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)第三题 题目：（事件）单击窗体 （响应）求 100 以内偶数的和，并将结果输出在窗体上。单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除

3、 谢谢18 将结果存入变量 SUM 中 代码：Dim i As Integer For i=1 To 100 If i Mod 2=0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求 10*11*12+11*12*13+.+15*16*17 的结果 并将结果输出到窗体上。将结果存入变量 M 中。代码：Dim i,j As Integer Dim s As Long For i=10 To 15 s=1 For j=i To i+2 s=s*j Next m=m+s Next Print(CStr(m)第五题 题目：（

4、事件）双击窗体 （响应）求 100 以内奇数的和，并将结果输出在窗体上。将结果存入变量 SUM 中。代码：Dim i As Integer For i=1 To 100 If i Mod 2=1 Then sum=sum+i End If Next 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如

5、有侵权请联系网站删除 谢谢18 Print sum 第六题 题目：（事件）单击窗体 （响应）已知 S=1+1/4+1/9+1/16+1/25+1/100,结果输出在窗体上 代码：Dim s As Single For i=1 To 10 a=i*i Sum=1/a+Sum Next Print Sum 第七题 题目：（事件）双击窗体 （响应）求 1+1*2+1*2*3+.+1*2*3*.*10,并将结果存到变量 S 中 代码：Dim s As Long j=1 For i=1 To 10 j=j*i Sum=Sum+j Next Print Sum 第八题 题目：（事件）单击窗体 （响应）求

6、11/2+1/31/4+.+1/991/100 的值。将结果存入变量 J 中 代码：Dim j As Single Dim i As Single j=0 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 For i=1 To 100 k=(-1)(i+1)/i j=

7、k+j Next i Print j 第九题 题目：（事件）双击窗体 （响应）s=20+21+22+263,求 s 的值，并将结果存储到变量 S 中。代码：Dim s As Long s=20 For s=21 To 263 b=s+1 Sum=Sum+b Next Print Sum 第十题 题目：（事件）单击窗体 （响应）求出 100 以内所有素数的和，并将结果输出 到窗体上，并存入所给变量 SUM 中 代码：Dim sum As Integer For i=1 To 100 For j=2 To i-1 Exit For Next j Next i If i Mod j=0 Then E

8、nd If If j-i Then sum=sum+i End If Print sum 第十一题 题目：（事件）单击窗体 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 （响应）编写程序求 10*11*12+11*12*13+.+15*16*17 的结果 并将结果

9、输出到窗体上。将结果存入变量 M 中。代码：Dim m As Long For i=1 To 6 t=(i+9)*(i+10)*(i+11)m=m+t Next Print m 第十二题 题目：（事件）单击窗体 （响应）求 1020 之间所有素数的乘积并输出在窗体上。将结果存入变量 L 中 代码：Dim l As Long l=1 For i=10 To 20 For j=2 To i-1 If i Mod j=0 Then Exit For End If Next j If j=i Then l=l*i End If Next i Print l 第十三题 题目：（事件）单击窗体 （响应）求

10、 50 以内所有偶数的和，并在窗体上输出来。代码：Dim s As Integer s=0 For i=2 To 50 Step 2 s=s+i 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 Next i Print s 第十四题 题目：（事件）单击窗体 （响应）

11、在窗体上打印数列 2/1,3/2,5/3,8/5,13/8.的前十项，并求其和。代码：Dim s As Single Dim a()Dim b()Dim c()a(1)=2 b(1)=1 c(1)=a(1)/b(1)a(2)=3 a(2)=2 a(2)=a(2)/b(2)s=s+c(1)+c(2)For i=3 To 10 a(i)=a(i-1)+a(i-2)b(i)=b(i-1)+b(i-2)c(i)=a(i)/b(i)s=s+c(i)Next Print s 第十五题 题目：（事件）单击窗体 （响应）求 200300 之间既能被 3 整除又能被 7 整除的数。并求出所有数之和存入变量 SU

12、M 中。代码：Dim sum As Integer sum=0 For i=200 To 300 If i Mod 3=0 And i Mod 7=0 Then sum=sum+i End If Next Print sum 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢

13、谢18 第十六题 题目：（事件）双击窗体 （响应）求出 100200 之间，能被 5 整除，但不能被 3 整除的数。并求出所有数之和，存入变量 SUM 中 代码：Dim sum As Integer sum=0 For i=100 To 200 If i Mod 5=0 And i Mod 3 0 Then sum=sum+i End If Next Print sum 第十七题 题目：（事件）双击窗体 （响应）求 1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量 S 中 代码：Dim s As Integer s=0 t=1 For i=1 To 5 t=i*t Sum=sum

14、+t Next Print Sum 第十八题 题目：（事件）双击窗体 （响应）求 3+6+9+12+15+18+.+300 的和，并将结果输出到窗体上。将结果存入变量 SUM 中 代码：Dim sum As Integer 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢

15、18 sum=0 For i=3 To 300 Step 3 sum=sum+i Next i Print sum 第二种方法：当 step 为 2 的时候：Dim s As Integer Dim i As Integer For i=2 To 50 Step 2 s=s+i Next i Print s 第十九题 题目：（事件）单击窗体 （响应）求 10!的值，并将结果输出在窗体上。将结果存入变量 SUM 中 代码：Dim sum As Long Dim i As Integer sum=1 For i=1 To 10 sum=i*sum Next Print sum 第一题 题目：(事件

16、)双击窗体。(响应)求出 100200 之间，能被 5 整除，但不能被 3整除的数。并求所有数之和，存入变量中 SUM中。将结果输出到窗体 Private Sub Form_DblClick()*Program*For i=100 To 200 If i Mod 5=0 And i Mod 3 0 Then SUM=SUM+i End If Next i Print SUM 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双

17、击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18*End *第二题 题目：(事件)单击窗体。(响应)求 10!的值，并将结果输出到窗体上。将结果存入变量 SUM中。使用 for 循环实现 Private Sub Form_Click()*Program*SUM=1 For i=1 To 10 SUM=SUM*i Next i Print SUM*End *第三题 题目：(事件)单击窗体。(响应)求 1!+2!+3!+4!+5!并将结果输出到窗体上结果存入变量 S 中 Private S

18、ub Form_Click()*Program*For i=1 To 5 SUM=1 For j=1 To i SUM=SUM*i Next j s=s+SUM Next i Print s*End *第四题 题目：(事件)单击窗体。(响应)求 1-1/2+1/3-1/4+1/99-1/100 的值。将结果存入变量 J 中。Private Sub Form_Click()*Program*For i=1 To 100 j=j-1/i*(-1)i Next i Print j 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题

19、目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18*End *第五题 题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是正数、负数或零，并根据输入的数用消息框显示正数、负数 或零。Private Sub Form_Click()*Program*a=InputBox(输入一自然数:)If a 0 Then MsgBox 正数 If a 0 Then MsgBox 负数 If a=

20、0 Then MsgBox 零*End *第六题 题目：(事件)单击窗体。(响应)求出 100 以内所有奇数的和，并将结果输出到窗体上,并存入所给变量 SUM中。Private Sub Form_Click()*Program*For i=1 To 99 Step 2 Sum=i+Sum Next i Print Sum*End *第七题 题目：(事件)双击窗体。(响应)求 3+6+9+12+15+18+300 的和，并将结果输出到窗体上。将结果存入变量 SUM中。Private Sub Form_DblClick()*Program*For i=3 To 300 Step 3 SUM=i+S

21、UM Next i Print SUM*End *单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 第八题 题目：(事件)单击窗体。(响应)求从 100 到 1000 之间所有是 3 的倍数的数之和，当和大于 3000 时，停止计算并输出和。请将结果输出到窗体上,并存

22、入所给变量 SUM中。使用 for.next语句完成程序*Program*Private Sub Form_Click()For i=100 To 1000 If i Mod 3=0 And SUM 14 Print m*End *第十四题 题目：(事件)单击窗体。(响应)求 100 以内偶数的和，并将结果输出在窗体上。将结果存入变量 SUM中 Private Sub Form_Click()*Program*For i=1 To 100 If i Mod 2=0 Then Sum=Sum+i End If Next i Print Sum*End *第十五题 题目：(事件)单击窗体。(响应)

23、求 100 到 500 之间奇数的和，将结果输出在窗体上并存入变量 SUM中。使用 for 循环完成程序*Program*Private Sub Form_Click()For i=100 To 500 If i Mod 2=1 Then Sum=Sum+i End If Next i 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好

24、文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 Print Sum End Sub*End *第十六题 题目：(事件)单击窗体。(响应)已知 sum=1-1/4+1/9-1/16+1/25.-1/100,请将 sum结果值输出到窗体上。使用 for.next语句完成程序*Program*Private Sub Form_Click()For i=1 To 10 j=j-1/i 2*(-1)i Next i Print a End Sub*End *第十七题-题目：(事件)单击窗体。(响应)求 sum=1+1+2+3+5+8+13+.+144 的和,请将sum结果值输出到窗

25、体上。使用 do.loop while语句完成程序*Program*Private Sub Form_Click()Dim i As Double,f(1 To 20)As Integer,sum f(1)=1 f(2)=1 sum=2 If i 2 Then Do f(i)=f(i-1)+f(i-2)sum=sum+f(i)Loop While f(i)145 End If Print sum End Sub*End *第十八题 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出

26、在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 题目：(事件)单击按钮。(响应)随机产生 N个两位正整数（N由输入对话框输入，且 N0），求出其中的最大数和最小数，并在标签框 Label1 上显示最大数与最小数的差。Private Sub Form_Click()Dim a()As Integer,i As Integer,n As Integer,max As Integer,min As Integer,sum As In

27、teger n=Val(InputBox(input num:)ReDim a(n)min=100:max=1 For i=1 To n a(i)=CInt(Rnd*90+10)Print a(i);If a(i)max Then max=a(i)If a(i)min Then min=a(i)Next i label1.caption=max-min End Sub 第十九题 题目：(事件)单击窗体响应)输出斐波那契数列 1,1,2,3,5,8,13.第 20 个数的值即 f1=1(n=1)f2=1(n=2)fn=f(n-1)+f(n-2)(n3)使用 for.next语句完成程序，并将结果

28、存入变量 sum中 Private Sub Form_click()Dim f(1 To 20)As Integer,i As Integer,sum As Integer f(1)=1 f(2)=1 For i=3 To 20 f(i)=f(i-1)+f(i-2)Next i Print f(20)End Sub 第二十题 题目：(事件)单击窗体。(响应)我国现有人口为 13 亿，设年增长率为 1%，计算多少年后增加到 20 亿。并将结果输出在窗体上。将结果存入变量year 中。使用 while.wend语句完成程序。单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系

29、网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18*Program*Private Sub Form_click()Dim a As Double,i As Integer,year As Integer a=1300000000#While a=90 Then Print 优秀 If mark=80 Then Print 良好 If mar

30、k=70 Then Print 中等 If mark=60 Then Print 及格 If mark 60 Then Print 不及格 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18*End *End Function Private Sub Form_Load

31、()Show Print fun(90)End Sub 第二十二题 题目：(事件)单击窗体。(响应)求 1-1/2+1/3-1/4+1/99-1/100 的值。将结果存入变量 J 中。Private Sub Form_Click()*Program*Dim a As Integer,i As Integer,j As Double For i=1 To 100 a=a+1 j=(-1)(i+1)/a+j Next i Print j*End *End Sub 第二十三题 题目：编写过程 gcd，求两个整数 m,n 的最大公约数 p,Private Sub Form_Click(),Dim m

32、As Integer,n As Integer,m=Val(InputBox(请输入一个整数,1),n=Val(InputBox(请再输入一个整数,1),Print m;和;n;的最大公约数为：;gcd(m,n),End Sub Private Function gcd(ByVal m As Integer,ByVal n As Integer)As Integer*Program*Dim r As Integer If m n Then r=m:m=n:n=r r=m Mod n Do While r 0 m=n n=r r=m Mod n Loop gcd=n 单击窗体响应求以内偶数的和并

33、将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18*End *End Function 第二十四题 题目：(事件)单击窗体。(响应)已知 s=1+1/3!+1/5!+1/7!+1/9!,请将 s 结果值 输出到窗体上。使用 for.next语句完成程序*Program*Private Sub Fo

34、rm_Click()Dim i As Integer,sum As Single,j As Integer,a As Single a=1 For i=1 To 9 If i Mod 2 0 Then For j=1 To i a=a*j Next j sum=sum+1/a End If Next i Print sum End Sub*End *第二十五题 题目：(事件)单击窗体。(响应)已知 sum=1!-2!+3!-4!.-10!,请将 sum结果值输出到窗体上。使用 for.next语句完成程序 Private Sub Form_Click()Dim i As Integer,sum

35、 As Double,j As Integer,a As Double a=1 For i=1 To 10 For j=1 To i a=a*j Next j sum=sum+(-1)(i-1)*a Next i Print sum End Sub 第二十六题 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学

36、习与交流，如有侵权请联系网站删除 谢谢18 题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5)例如：若 m=9，则应输出：1.168229 要求：函数中用到的中间变量必须声明为 Single类型。Private Sub Form_Click()Dim m As Integer m=Val(InputBox(请输入一个整数,1)Print fun(m)End Sub*Program*Private Function fun(m As Integer)As Single Dim i As Integer,su

37、m As Single For i=0 To m sum=sum+1/(i+5)Next i fun=sum End Function*End *第二十七题 题目：编写函数 fun，函数的功能是：计算 n 门课程的平均值，计算结果作为函数值返回。例如，若有 5 门课程的成绩是：92，76，69，58，88，则函数的值为 76.6。Private Sub Form_Click()Dim n As Integer n=Val(InputBox(请输入一个整数,1)Print fun(n)End Sub*Program*Private Function fun(n As Integer)As Sin

38、gle Dim i As Integer,sum As Integer,a()As Integer n=Val(InputBox(输入一个数 n)单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 ReDim a(n)For i=1 To n a(i)=Val(Inpu

39、tBox(输入第&i&个数)sum=sum+a(i)Next i fun=sum/n End Function*End *第二十八题 题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公式的值：y=1/2!1/4!.1/m!(m 是偶数)Private Sub Form_Click(),Dim m As Integer,m=Val(InputBox(请输入一个整,1).Print fun(m)End Sub*Program*Private Function fun(m As Integer)As Double Dim i As Integer,j As Integer,a As Do

40、uble,sum As Double For i=2 To m Step 2 a=1 For j=1 To i a=a*j Next j sum=sum+1/a Next i fun=sum End Function*End *第二十九题 题目：(事件)单击窗体。(响应)已知 S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。Private Sub Form_Click()*Program*For i=1 To 10 j=j+1/i 2 Next i Print j*End *单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文

41、档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 End Sub 第三十题 题目：(事件)单击窗体。(响应)求 200300 之间既能被 3 整除又能被 7 整除的数。并求出所有数之和存入变量 SUM中，并输出到窗体 Private Sub Form_Click()*Program*For i=200 To 300 If i Mod 3=0 And i Mod

42、 7=0 Then Sum=Sum+i End If Next i Print Sum*End *End Sub 第三十一题 题目：(事件)单击窗体。(响应)求 50 以内所有偶数的和，并在窗体上输出出来。将结果存入变量 S 中。Private Sub Form_Click()*Program*For i=1 To 50 If i Mod 2=0 Then s=s+i End If Next i Print s*End *End Sub 第三十二题 题目：(事件)双击窗体。(响应)求 s=1+1 2+1 2 3+1 2 310，并将结果存到变量 S 中，同时将结果输出到窗体 Private S

43、ub Form_DblClick()*Program*Dim n%,b,t t=1:b=1:n=2 Do 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 b=b*n t=t+b n=n+1 Loop Until n 10 Print t*End *End Sub 第

44、三十三题 题目：(事件)单击窗体。(响应)生成一个一维数组(10 个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量 Max,Min,Aver 中 Private Sub Form_Click()*Program*Dim a()As Variant,i As Integer,min As Integer,max As Integer a=Array(15,23,72,43,96,23,3,65,88,17)max=0 min=100 For i=1 To UBound(

45、a)If max a(i)Then min=a(i)sum=sum+a(i)Next i Print max,min,sum/10 End Sub *End *-第三十四题 题目：编写函数 fun，其功能是:能计算从 1 开始到 n 的自然数中偶数的平方的和。Private Sub Form_Click()Dim m As Integer m=Val(InputBox(请输入一个整数,1)Print fun(m)End Sub*Program*单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和

46、并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 Private Function fun(n As Integer)As Long Dim i As Integer,sum As Long For i=0 To n Step 2 sum=sum+i 2 Next i fun=sum End Function*End *第三十我五题 程序设计】题目：在窗体上添加一个文本框，m的值通过文本框输入。单击窗体计算如下公式的

47、值：y=1/2 1/4 1/6.1/2m,例如：若 m=9，则应输出：1.41448412698413.Private Sub Form_Click(),Dim m As Integer,i As Integer,y As Single m=Text1.Text For i=1 To m y=y+1/(2*i)Next i Print y 第三十六题 题目：编写函数 fun，函数的功能是：计算两个正整数的 最大公约数，并显示。如：两个数为 15、20，结果显示5 要求使用 while.wend语句来实现。注意：请在指定的事件内编写代码代码只能写在两行标识之间不得修改已有代码 保存时不得修改窗体

48、和工程文件的名称及路径，否则后果自负。Private Function fun(m As Integer,n As Integer)As Integer Dim r%If m n Then r=m:m=n:n=r*Program*End Function Private Sub Form_Load()Show 单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值

49、将结果存入变量中代精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢18 Print fun(15,10)End Sub*End *第三十七题 题目：(事件)单击窗体。(响应)编写代码功能如(图 1)。将结果存入变量 Sum中。使用 while.wend语句完成程序 Private Sub Form_Click()*Program*Dim n As Integer,sum As Variant sum=0:n=1 While n=10 sum=sum+n n n=n+1 Wend Print sum*End *单击窗体响应求以内偶数的和并将结果输出在窗体上仅供学习与交流如有侵权请联系网站删除谢谢精品好文档推荐学变量中代码第五题题目事件双击窗体响应求以内奇数的和并将结果输出在窗体上将结果存入变量中代码仅供学习与交码第七题题目事件双击窗体响应求并将结果存到变量中代码第八题题目事件单击窗体响应求的值将结果存入变量中代