交院VB程序设计精品

1、交院VB程序设计程序设计第一题题目：（事件）单击窗体（响应）求 50 以内所有偶数的和，并在窗体上输出来。 将结果存入变量 S 中。代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 Then S=s+iEnd IfNextPrint(CStr(s)Print (CStr(s) 第二题题目：（事件）双击窗体（响应）求 s=1 + 1*2+1*2*3+.+1*2*3*.*10并将结果存入变量 S中代码：Dim i,j As IntegerDim k As Long k=1s=0For i =1To 10 For j=1 To i k=k*j Next

2、 s=s+k k=1Next第三题题目：（事件）单击窗体（响应）求 1 00以内偶数的和，并将结果输出在窗体上。 将结果存入变量 SUM 中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 Then Sum=sum+i End IfNextPrint sum第四题 题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+.+15*16*17的结果并将结果输出到窗体上。将结果存入变量 M 中。代码： Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2

3、 s=s*jNext m=m+sNextPrint （CStr（m） 第五题 题目：（事件）双击窗体（响应）求 100 以内奇数的和，并将结果输出在窗体上。 将结果存入变量 SUM 中。代码： Dim i As IntegerFor i=1 To 100 If i Mod 2 = 1 Then sum = sum + iEnd IfNextPrint sum 第六题 题目：（事件）单击窗体（响应）已知 S=1 + 1/4+1/9+1/16+1/25+ +1/100, 结果输出在窗体上代码： Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextP

4、rint Sum 第七题 题目：（事件）双击窗体（响应）求 1+1*2+1*2*3+ .+1*2*3* .*10, 并将结果存到变量 S 中代码：Dim s As Longj=1For i = j= j*i1 To 10Sum =NextSum + j第八题Print Sum题目：（事件）单击窗体（响应）求 1 1/2+1/3 1/4+ .+1/99 1/100 的值。将结果存入变量 J 中代码：Dim j As SingleDim i As Single j=0For i = 1 To 100k=(-1F(i+1)/ij=k+jNext iPrint j第九题题目：（事件）双击窗体（响应）s

5、=20+21+22+263,求s的值，并将结果存储到变量S中。代码：Dim s As Longs=20For s= 21 To 263 b=s+1Sum=Sum+bNextPrint Sum第十题题目：（事件）单击窗体（响应）求出 100以内所有素数的和，并将结果输出 到窗体上，并存入所给变量 SUM 中代码：Dim sum As IntegerFor i = 1 To 100For j = 2 To i - 1Exit ForNext jNext iIf i Mod j = 0 ThenEnd IfIf j - i Thensum = sum + iEnd IfPrint sum第十一题目：

6、题（事件）单击窗体（响应）编写程序求 10*11*12+11*12*13+.+15*16*17的结果 并将结果输出到窗体上。将结果存入变量M 中。代码：Dim m As LongFor i = 1 To 6t =(i+9)*(i+10)*(i+11)m=m+tNextPrint m第十二题题目（事件）单击窗体（响应）求1020之间所有素数的乘积并输出在窗体上。 将结果存入变量L中代码：Dim l As Long1=1For i=10 To 20For j=2 To i-1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i The nl=l*iEnd

7、IfNext iPrint l第十三题题目（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。代码：Dim s As In tegers = 0For i = 2 To 50 Step 2 s = s + iNext iPrint s第十四题题目（事件）单击窗体（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8的前十项，并求其和。代码：Dim s As Si ngleDim a ()Dim b ()Dim c ()a(1) = 2b(1) = 1c(1) = a(1) / b(1)a(2) = 3a(2) = 2a(2) = a(2) / b(2) s=s+c(1)

8、+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 整除的数。 并求出所有数之和存入变量 SUM 中。 代码： Dim sum As Integersum = 0For i = 200 To 300If i Mod 3 = 0 And i Mod 7 = 0 Then sum = sum +i End IfNextPrint sum 第十六题 题目：（事件）双击

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

10、Print Sum第十八题 题目：（事件）双击窗体（响应）求 3+6+9+12+15+18+.+300的和，并将结果输出到窗体上。将结果存入变量 SUM 中代码：Dim sum As Integer sum = 0For i = 3 To 300 Step 3 sum= sum +iNext iPrint sum第二种方法：当step为2的时候： Dim s As IntegerDim i As Integer For i=2 To 50 Step 2 s = s+iNext i Print s第十九题题目：（事件）单击窗体（响应）求 10!的值，并将结果输出在窗体上。 将结果存入变量 SUM

11、 中代码：Dim sum As LongDim i As Integer sum = 1For i = 1 To 10 sum = i*sumNextPrint sum第一题 题目： （ 事件 ） 双击窗体。 （ 响应 ） 求出 100200 之间，能被 5 整除，但不能被 3 整除的数。 并求所有数之和，存入变量中SUM中。将结果输出到窗体Private Sub Form_DblClick()咲*Program*Program咲*For i = 100 To 200If i Mod 5 = 0 And i Mod 3 0 ThenSUM = SUM + iEnd IfNext iPrint

12、SUM咲*End*第二题SUM题目：（事件）单击窗体。 （响应）求10!的值， 并将结果输出到窗体上。将结果存入变量 中。使用 for 循环实现Private Sub Form_Click()SUM = 1For i = 1 To 10 SUM = SUM * i Next iPrint SUM * End *第三题 题目： （ 事件 ） 单击窗体。 （ 响应 ） 求 1!+2!+3!+4!+5! 并将结果输出到窗体上结果存入变量 中Private Sub Form_Click() *Program*For i = 1 To 5SUM = 1For j = 1 To i SUM = SUM *

13、 i Next j s = s + SUMNext iPrint s * End *第四题+ 1/99 - 1/100的值。 题目： （ 事件 ） 单击窗体。 （ 响应 ） 求 1 - 1/2 + 1/3 - 1/4 + 将结果存入变量 J 中。Private Sub Form_Click()I*Program*Program咲*For i = 1 To 100 j = j - 1 / i * (-1) A iNext iPrint j* End *第五题 题目： （ 事件） 单击窗体 （ 响应 ） 用输入框输入一自然数，判断是正数、负数或 零，并根据输入的数用消息框显示 正数、负数 或零。P

14、rivate Sub Form_Click() a = InputBox( 输入一自然数 :)I*Program*If a0ThenMsgBox正数If a0ThenMsgBox负数If a=0ThenMsgBox零 * 匚宀 * 第六题 题目： （ 事件 ） 单击窗体。 （ 响应 ） 求出 100 以内所有奇数的和，并将结果输出到窗体上, 并存入所给变量SUM中。Private Sub Form_Click()For i = 1 To 99 Step 2 Sum = i + SumNext iPrint Sum * End *第七题题目：（事件）双击窗体。（响应）求3+6+9+12+15+1

15、8+300的和，并将结果输出到窗体 上。将结果存入变量 SUM中。Private Sub Form_DblClick() *Program* For i = 3 To 300 Step 3SUM = i + SUMNext iPrint SUM * End *第八题题目： （事件）单击窗体。 （响应）求从100到1000之间所有是 3的倍数的数之和， 当和大 于3000时，停止计算并输出和。请将结果输出到窗体上，并存入所给变量 SUM中。使用for.next 语句完成程序咲*Program*Private Sub Form_Click()For i = 100 To 1000If i Mod

16、3 = 0 And SUM 14 Print mI*End*第十四题 题目： （ 事件 ） 单击窗体。入变量SUM中（ 响应 ） 求 100 以内偶数的和，并将结果输出在窗体上。将结果存Private Sub Form_Click()咲*Program*For i = 1 To 100If i Mod 2 = 0 ThenSum = Sum + iEnd IfNext iPrint Sum * End * 第十五题 题目： （ 事件 ） 单击窗体。 （ 响应 ） 求 100 到 500 之间奇数的和，将结果输出在窗体上并存入 变量SUM中。使用for循环完成程序*Program* Privat

17、e Sub Form_Click() For i = 100 To 500If i Mod 2 = 1 ThenSum = Sum + iEnd IfNext iPrint SumEnd 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 A 2 * (-1) A iNext iPrint aEnd SubI

18、*End* 第十七题 - 题目： （ 事件 ） 单击窗体。 （ 响应 ） 求 sum=1+1+2+3+5+8+13+.+144 的和 , 请将 sum 结果值 输出到窗体上。使用 do.loop while语句完成程序I*Program*Private Sub Form_Click()Dim i As Double, f(1 To 20) As Integer, sum f(1) = 1 f(2) = 1 sum = 2If i 2 ThenDof(i) = f(i - 1) + f(i - 2)sum = sum + f(i)Loop While f(i) 145End IfPrint su

19、mEnd Sub* End * 第十八题题目：(事件)单击按钮。(响应)随机产生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 Integer n = Val(InputBox(input num:)ReDim a(n)min = 100: max = 1For i = 1 To na(i) = C

20、Int(Rnd * 90 + 10)Print a(i);If a(i) max Then max = a(i)If a(i) 3)使用 for.next语句完成程序，并将结果存入变量 sum 中Private Sub Form_click()Dim f(1 To 20) As Integer, i As Integer, sum As Integerf(1) = 1f(2) = 1For i = 3 To 20 f(i) = f(i - 1) + f(i - 2)Next iPrint f(20)End Sub第二十题 题目： ( 事件 ) 单击窗体。 ( 响应 ) 我国现有人口为 13 亿

21、，设年增长率为 1%，计算多少年后 增加到 20 亿。并将结果输出在窗体上。将结果存入变量 year 中。使用 while .wend 语句完成程序。I*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 mark = 70 Then Print 中等If mark = 60 Then Print 及格 If mark 60 Then Print

22、不及格* End *End FunctionPrivate Sub Form_Load()ShowPrint fun（90）End Sub 第二十二题 题目：（事件）单击窗体。（响应）求1-1/2 + 1/3 - 1/4 + 1/99 - 1/100 的值。将结果存入变量 J 中。Private Sub Form_Click()咲*Program*For i = 1 To 9Dim a As Integer, i As Integer, j As DoubleFor i = 1 To 100 a = a + 1j = (-1) A (i + 1) / a + jNext iPrint j咲*E

23、nd*End Sub第二十三题题目：编写过程gcd，求两个整数 m,n的最大公约数 p,Private Sub Form_Click(),Dim mAs 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 In

24、tegerIf m n Then r = m: m = n: n = rr = m Mod nDo While r 0r = m Mod nLoopgcd = n* *End Function 第二十四题 题目： （ 事件 ）单击窗体。 （ 响应 ）已知 s=1+1/3!+1/5!+1/7!+1/9!,输出到窗体上。使用 for.next语句完成程序请将 s 结果值I*Program*Private Sub Form_Click()Dim i As Integer, sum As Single, j As Integer, a As SingleIf i Mod 2 0 Then For j

25、= 1 To ia = a * jNext jsum = sum + 1 / aEnd IfNext iPrint sumEnd Sub* End * 第二十五题请将sum结果值输出到窗 题目： ( 事件 )单击窗体。 (响应 ) 已知 sum=1!-2!+3!-4!.-10!, 体上。使用 for.next语句完成程序Private Sub Form_Click()Dim i As Integer, sum As Double, j As Integer, a As Doublea = 1For i = 1 To 10For j = 1 To i a = a * j Next jsum =

26、sum + (-1) A (i - 1) * aNext iPrint sumEnd Sub 第二十六题 题目：编写函数 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 Integerm = Val(InputBox( 请输入一个整数 , , 1)Print fun(m)End Sub咲*Program*Private Function fun(m A

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

28、n)End SubI*Program*For i = 1 To 10I*Private Function fun(n As Integer) As SingleDim i As Integer, sum As Integer, a() As Integern = Val(InputBox( 输入一个数 n) ReDim a(n)For i = 1 To na(i) = Val(InputBox(输入第 & i & 个数 )sum = sum + a(i)Next ifun = sum / n End Function * End * 第二十八题 .请输题目：编写函数fun其功能是：根据整型形参

29、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 DoubleDim i As Integer, j As Integer, a As Double, sum As DoubleFor i = 2 To m Step 2For j = 1 To i a = a * jNext jsum = sum

30、+ 1 / aNext ifun = sumEnd Function * End *第二十九题题目：（事件）单击窗体。（响应）已知S=1 + 1/4+1/9+1/16+1/25+ +1/100 结果输出在窗体上。Private Sub Form_Click() j = j + 1 / i A 2咲*Program*Next iPrint jEnd Sub第三十题 题目： （ 事件 ） 单击窗体。 （ 响应 ） 求 200300 之间既能被 3 整除又能被 7 整除的数。并求出 所有数之和存入变量SUM中，并输出到窗体Private Sub Form_Click（）*Program*For i

31、= 200 To 300If i Mod 3 = 0 And i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iPrint Sum * End *End Sub第三十一题题目： （事件）单击窗体。 （ 响应）求 50以内所有偶数的和，并在窗体上输出出来。将结果 存入变量S中。Private Sub Form_Click()咲*Program*For i = 1 To mFor i = 1 To 50If i Mod 2 = 0 ThenEnd IfNext iPrint s咲*End*End Sub第三十二题题目：（事件）双击窗体。（响应）求s=1+1 x 2+

32、1X 2X 3+1 x 2X3X-X 10,并将结果存 到变量S中，同时将结果输出到窗体Private Sub Form_DblClick()咲*Program*Dim n%, b, t t = 1: b = 1: n = 2DoLoop Until n 10Print t咲*End*End Sub 第三十三题（ 响应 ） 生成一个一维数组 （10 个数组元素依此为：15、23、 72、 题目： （ 事件 ） 单击窗体。43、96、23、3、65、88、17) ，写程序求出这个数组中的最大值、最小值和平均值，并输出 在窗体上。将最大值，最小值，平均值分别存入变量 Max,Min,Aver 中Private Sub Form_Click()I*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 = 100For i = 1 To UBound(a)If max a(i) Then min = a(i) sum = sum + a(i)Next iPrint max, min, sum / 10End