VB程序设计题库(全).pdf

程序设计第一题题目：（事件）单击窗体（响应）求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 Next 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 To i+2 s=s*j Next m=m+s Next Print(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 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 第八题题目：（事件）单击窗体（响应）求11/2+1/3 1/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 第九题题目：（事件）双击窗体（响应）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 100 For j=2 To i-1 Exit For Next j Next i If i Mod j=0 Then End If If j-i Then sum=sum+i End If Print sum 第十一题题目：（事件）单击窗体（响应）编写程序求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 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)=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 整除的数。并求出所有数之和存入变量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 End 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=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 第十九题题目：（事件）单击窗体（响应）求10!的值，并将结果输出在窗体上。将结果存入变量SUM 中代码：Dim sum As Long Dim i As Integer sum=1 For i=1 To 10 sum=i*sum Next Print sum 第二十题题目：（事件）单击窗体（响应）求出100 以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM 中代码：Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b=False For i=2 To 100 b=False j=CInt(Sqr(i)For k=2 To j If i Mod k=0 Then b=True End If Next If b=False Then sum=sum+i End If Next Print sum 第二十一题题目：（事件）单击窗体（响应）求200300 之间既能被3 整除又能被7 整除的数。并求出所有数之和存入变量SUM 中代码：Dim i As Integer For i=201 To 300 If(i Mod 3)=0)And(i Mod 7)=0)Then Print(CStr(i)sum=sum+i End If Next Print sum 第二十二题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。将结果存入变量S 中代码：Dim i As Integer s=0 For i=1 To 10 s=s+1/(ii)Next Print(s)第二十三题题目：（事件）单击窗体（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8.的前 10 项，并求其和。代码：Dim i,j,k,m As Integer s=o i=2 j=1 For k=1 To 10 m=j Print（CStr(i)）&“/”&CStr(j)j=i i=i+m s=s+i/j Next 第二十四题题目：（事件）单击窗体（响应）一球从100 米高度自由落下，每次落地返回。原高度的一半，求第 10 次落地时，共经过多少米？并将结果在窗体上输出。代码：Dim j,i As Integer s=0 j=100 For i=2 To 10 j=j/2 s=s+2*j Next s=100+s Print(CStr(s)第二十五题题目：（事件）双击窗体（响应）s=20+21+22+263,求 s 的值，并将结果存储到变量s 中。代码：Dim i As Integer i=20 while i max Then max=a(i)End If If a(i)min Then min=a(i)End If s=s+a(i)Next aver=Int(s/10)Print(CStr(max)Print(CStr(min)Print(CStr(aver)第三十二题题目：（事件）单击窗体。（响应）在窗体上输出100200 之间的所有合数。求出所有数之和存入SUM 中。代码：Dim i,j,s As Integer For i=100 To 200 For j=2 To Sqr(i)If(i Mod j)=0 Then Print(CStr(i)sum=sum+i Exit For End If Next Next Print sum 第三十三题题目：（事件）双击窗体。（响应）求出100200 之间能被5 整除，但不能被3 整除的数。并求所有数之和，存入变量 SUM 中。代码：Dim i As Integer For i=100 To 200 If(i Mod 5)=0)And(i Mod 3)0)Then Print(CStr(i)Sum=sum+i End If Next 第三十四题题目：（事件）单击窗体。（响应）求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)第三十五题题目：（事件）双击窗体。（响应）求出50 以内所有奇数的和，将结果存入变量SUM 中。代码：Dim i As Integer For i=1 To 50 If i Mod 2=1 Then Sum=sum+i End If Next Print sum 第三十六题题目：（事件）：单击窗体。（响应）：求 1020 之间所有素数的乘积并输出在窗体上。将结果存入变量L 中。代码：Dim i As Integer Dim j As Integer Dim b As Boolean l=1 b=False For i=10 To 20 For j=2 To i-2 If i Mod j=0 Then b=True End If Next If b=False Then l=l*i End If b=False Next Print Str(l)第三十七题题目：（事件）：单击窗体。（响应）：求 1!+2!+3!+10!的值，并在窗体上输出。结果存入变量L 中。代码：Dim i As Integer Dim s As Long Dim j As Integer s=1 b=False For i=1 To 10 s=s*i l=l+s Next Print Str(l)第三十八题题目：（事件）：单击窗体。（响应）：求 1-1/2+1/3-1/4+1/99-1/100 的值。将结果存入变量J中。代码：Dim i As Integer For i=1 To 100 Next If i Mod 2=1 Then j=j+1/i Else End If If i Mod 2=0 Then j=j-1/i End If Print j 第三十九题题目：（事件）：单击窗体。（响应）：求 1+2+3+4+100 的值，并把结果输出在窗体上。结果存入变量SUM 中。代码：Dim i As Integer For i=1 To 100 Sum=Sum+i Next Print Sum 第四十题题目：（事件）：双击窗体。（响应）：求 1+2+3+5+8+13+.的前 20 项和，并将结果在窗体上输出。将结果存入变量 SUM 中。代码：Dim i As Integer Dim j(1 To 20)As Integer For i=1 To 20 If i 3 Then j(i)=1 Else j(i)=j(i-1)+j(i-2)End If Sum=Sum+j(i)Next Print Sum 第四十一题题目：（事件）：双击窗体。（响应）：求 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 第四十二题题目：（事件）：单击窗体。（响应）：求 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 第四十三题题目：（事件）：双击窗体。（响应）：求 1+5+10+15+500 的和，并将结果输出在窗体上。将结果存入变量SUM中。代码：Dim i As Integer For i=1 To 500 If i Mod 5=0 Then Sum=Sum+i End If Next Print Sum 第四十四题题目：（事件）：双击窗体。（响应）：求 3+6+9+12+15+18+.+300 的和，并将结果输出在窗体上。将结果存入变量 SUM 中。代码：Dim i As Integer For i=1 To 500 If i Mod 3=0 Then Sum=Sum+i End If Next Print Sum 第四十五题题目：（事件）：单击窗体。（响应）：求 10!的值，并将结果输出在窗体上。将结果存入变量SUM 中。代码：Dim i As Integer Sum=1 For i=1 To 10 Sum=Sum*i Next Print Sum 第四十六题题目：（事件）：单击窗体。（响应）：求数列1+3+3+9+27+前 6 项的和，并将结果输出在窗体上。将结果存入变量 SUM 中。代码：Dim i As Integer Dim j(1 To 6)As Integer For i=1 To 6 If i 3 Then j(i)=3 (i-1)Else j(i)=j(i-1)*(i-2)End If Sum=Sum+j(i)Next Print Sum