《交院VB程序设计》word版

1、交院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=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 N

2、ext Print(CStr(s)第三题题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量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 T

3、o i +2 s=s*j Next m=m+sNextPrint (CStr(m)第五题题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中。代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next 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 Nex

4、t 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第八题题目：（事件）单击窗体 （响应）求11/2+1/31/4+.+1/991/100的值。 将结果存入变量J中代码：Dim j As Single Dim i As Single j=0 For i = 1 To 100 k=(-1)(i+1)/i j=k+j Next i Print j第九题题目：（事件）双击窗体

5、（响应）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 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 su

6、m第十一题题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+.+15*16*17的结果 并将结果输出到窗体上。将结果存入变量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

7、 j = i Then l=l*i End If Next i Print l第十三题题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。代码：Dim s As Integer s = 0 For i = 2 To 50 Step 2 s = s + i Next i Print s第十四题题目：（事件）单击窗体 （响应）在窗体上打印数列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)

8、= 3a(2) = 2a(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整除的数。 并求出所有数之和存入变量SUM中。代码：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 En

9、d If Next Print sum第十六题题目：（事件）双击窗体 （响应）求出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

10、= 1 To 5 t = i*t Sum = sum + t Next Print Sum第十八题题目：（事件）双击窗体 （响应）求3+6+9+12+15+18+.+300的和，并将结果输出到窗体上。 将结果存入变量SUM中代码：Dim sum As Integer 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第十九题题目：（事件

11、）单击窗体 （响应）求10!的值，并将结果输出在窗体上。 将结果存入变量SUM中代码：Dim sum As Long Dim i As Integer sum = 1 For i = 1 To 10 sum = i*sum Next Print sum第一题'题目：(事件)双击窗体。(响应)求出100200之间，能被5整除，但不能被3整除的数。并求所有数之和，存入变量中SUM中。将结果输出到窗体Private Sub Form_DblClick()'*Program*For i = 100 To 200If i Mod 5 = 0 And i Mod 3 <> 0

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

13、Program*For i = 1 To 5SUM = 1For j = 1 To iSUM = SUM * iNext js = s + SUMNext iPrint s'* End *第四题'题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。将结果存入变量J中。Private Sub Form_Click()'*Program*For i = 1 To 100j = j - 1 / i * (-1) iNext iPrint j'* End *第五题'题目：(事件)单击窗体(响应)用输入框

14、输入一自然数，判断是"正数"、"负数"或"零"，并根据输入的数用消息框显示"正数"、"负数" 或"零"。Private Sub Form_Click()'*Program*a = InputBox("输入一自然数:")If a > 0 Then MsgBox "正数"If a < 0 Then MsgBox "负数"If a = 0 Then MsgBox "零"'*

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

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

17、d *第九题'题目：(事件)单击窗体。 (响应)求1+2+3+100的值，并把结果输出在窗体上。结果存入变量SUM中。Private Sub Form_Click()'*Program*For i = 1 To 100 Sum = Sum + iNext iPrint Sum'* End *第十题'题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8的前10项，并求其和，将和保存在变量s中Private Sub Form_Click()'*Program*a = 2b = 1For i = 1 To 10Print a

18、 / bs = s + a / bt = aa = a + bb = tNextPrint sEnd Sub'* End *第十一题'题目：(事件)单击窗体。(响应)求数列1+3+3+9+27+前6项的和，并将结果输出到窗体上。将结果存入变量SUM中。要求使用for.next循环'*Program*Private Sub Form_Click()a = 1b = 3s = a + bFor i = 1 To 4s = s + b * at = bb = b * aa = tNextPrint sEnd Sub'* End *'第十二题'题目：(事

19、件)双击窗体。(响应)求出50以内所有奇数的和。将结果存入变量SUM中。Private Sub Form_DblClick()'*Program*For i = 1 To 50 If i Mod 2 = 1 Then Sum = Sum + i End IfNext iPrint Sum'* End *'第十三题'题目：(事件)单击窗体。 (响应)编写程序求10×11×12+11×12×13+15×16×17的结果，并将结果输出到窗体上。将结果存入变量M中Private Sub Form_Click()

20、'*Program*Dim a As Integer, b As Integer, c As Integer, m As Integera = 9: b = 10: c = 11Do a = a + 1 b = b + 1 c = c + 1 m = m + a * b * cLoop Until a > 14Print m'* End *第十四题'题目：(事件)单击窗体。(响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中Private Sub Form_Click()'*Program*For i = 1 To 100 If i

21、Mod 2 = 0 Then Sum = Sum + i End IfNext iPrint Sum'* End *'第十五题'题目：(事件)单击窗体。(响应)求100到500之间奇数的和，将结果输出在窗体上并存入变量SUM中。使用for循环完成程序''*Program*Private Sub Form_Click()For i = 100 To 500 If i Mod 2 = 1 Then Sum = Sum + i End IfNext iPrint SumEnd Sub'* End *'第十六题'题目： (事件)单击窗体。

22、 (响应)已知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) iNext iPrint aEnd Sub'* End *'第十七题-'题目： (事件)单击窗体。 (响应)求sum=1+1+2+3+5+8+13+.+144的和,请将sum结果值输出到窗体上。使用do.loop while语句完成程序'*Program*Private Su

23、b Form_Click()Dim i As Double, f(1 To 20) As Integer, sumf(1) = 1f(2) = 1sum = 2If i > 2 Then Do f(i) = f(i - 1) + f(i - 2) sum = sum + f(i) Loop While f(i) > 145End IfPrint sumEnd Sub'* End *'第十八题'题目： (事件)单击按钮。 (响应)随机产生N个两位正整数（N由输入对话框输入，且N>0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的

24、差。Private Sub Form_Click()Dim a() As Integer, i As Integer, n As Integer, max As Integer, min As Integer, sum As Integern = 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

25、= a(i)Next ilabel1.caption=max-minEnd 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语句完成程序，并将结果存入变量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)

26、 + f(i - 2) Next i Print f(20) End Sub'第二十题'题目：(事件)单击窗体。(响应)我国现有人口为13亿，设年增长率为1%，计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用while .wend语句完成程序。'*Program*Private Sub Form_click()Dim a As Double, i As Integer, year As Integera = 1300000000#While a <= 2000000000# a = a * (1 + 0.01) Wend year =

27、 Log(a / 1300000000#) / Log(1 + 0.01) Print a; year; 1.01 44 * 13End Sub'第二十一题目：编写函数fun，函数的功能是：根据一个百分制'成绩mark（整数），显示对应五级制的评定。条件如下：'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70且大于等于60显示"及格"'mark小于60显示"不及

28、格"'要求使用IF语句来实现。'-'注意： 请在指定的事件内编写代码' 代码只能写在两行标识之间' 不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'-Private Function fun(mark As Integer) As String'*Program* If mark >= 90 Then Print "优秀" If mark < 90 And mark >= 80 Then Print "良好" If mark <

29、80 And mark >= 70 Then Print "中等" If mark < 70 And mark >= 60 Then Print "及格" If mark < 60 Then Print "不及格" '* End *End FunctionPrivate Sub Form_Load() Show Print fun(90) End Sub第二十二题题目：(事件)单击窗体。 (响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。将结果存入变量J中。Priv

30、ate Sub Form_Click()'*Program*Dim a As Integer, i As Integer, j As DoubleFor i = 1 To 100a = a + 1j = (-1) (i + 1) / a + jNext iPrint j'* End *End Sub第二十三题'题目：编写过程gcd，求两个整数m,n的最大公约数p,Private Sub Form_Click(),Dim m As Integer, n As Integer,m = Val(InputBox("请输入一个整数", , 1),n = Va

31、l(InputBox("请再输入一个整数", , 1),Print m; "和" n; "的最大公约数为：" gcd(m, n),End SubPrivate Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer'*Program*Dim r As IntegerIf m < n Then r = m: m = n: n = rr = m Mod nDo While r <> 0 m = n n = r r = m Mod nLoop

32、gcd = n'* End *End Function'第二十四题'题目： (事件)单击窗体。 (响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用for.next语句完成程序'*Program*Private Sub Form_Click()Dim i As Integer, sum As Single, j As Integer, a As Singlea = 1For i = 1 To 9 If i Mod 2 <> 0 Then For j = 1 To i a = a * j Next j sum =

33、sum + 1 / a End If Next i Print sumEnd Sub'* End *'第二十五题'题目： (事件)单击窗体。(响应)已知sum=1!-2!+3!-4!.-10!,请将sum结果值输出到窗体上。使用for.next语句完成程序Private Sub Form_Click()Dim i As Integer, sum 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

34、) * a Next i Print 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*Pri

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

36、"请输入一个整数", , 1)Print fun(n)End Sub'*Program*Private Function fun(n As Integer) As Single Dim i As Integer, sum As Integer, a() As Integer n = Val(InputBox("输入一个数n") ReDim a(n) For i = 1 To n a(i) = Val(InputBox("输入第" & i & "个数") sum = sum + a(i) Ne

37、xt i fun = sum / nEnd 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 Integ

38、er, a As Double, 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 = sumEnd 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 2Next iPrint j'

39、;* End *End Sub第三十题'题目：(事件)单击窗体。(响应)求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中，并输出到窗体Private Sub Form_Click()'*Program*For i = 200 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then Sum = Sum + i End IfNext iPrint Sum'* End *End Sub第三十一题'题目：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。将结果存入变量S中。Private

40、 Sub Form_Click()'*Program*For i = 1 To 50 If i Mod 2 = 0 Then s = s + i End IfNext iPrint s'* End *End Sub第三十二题'题目：(事件)双击窗体。 (响应)求s=1+1×2+1×2×3+1×2×3××10，并将结果存到变量S中，同时将结果输出到窗体Private Sub Form_DblClick()'*Program*Dim n%, b, tt = 1: b = 1: n = 2Do b

41、= b * n t = t + b n = n + 1Loop 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()'*Program*Dim a() As Variant, i As Integer, min As Integer, max As Integera = Array(15, 23, 72, 43, 96, 23, 3, 65, 88, 17)max = 0mi