VB程序设计题库(全)(同名21559)

1、VB程序设计题库（全）（同名21559）VB程序设计练习题第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体 上输出来。将结果存入变量S中。代码：Dim I As IntegerFor i = 2 To 50If （i Mod 2）=0 ThenS=s+iEnd IfNextPrint （CStr（s）第二题题目：（事件）双击窗体（响应）求 s=1+1*2+1*2*3+.+1*2*3* .*10 并将结果存入变量S中 代码：Dim i,j As IntegerDim k As Longk=1s=0Fori =1To 10For j=1 To ik=k*jNexts=s+kk

2、=1NextPrint(CStr(s)第三题题目：(事件)单击窗体(响应)求100以内偶数的和，并将结果输出 在窗体上。将结果存入变量SUM3代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd 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 +2s=

3、s*jNextm=m+s第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出 在窗体上。将结果存入变量SUM3。代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响 应） 已 知S=1+1/4+1/9+1/16+1/25+ - +1/100,Next代码：Dim s As SinglePrint (CStr(m)For i=1 To 10结果输出在窗体上a=i*iSum =1/a + SumNextPrint Sum第八题题目：(

4、事件)单击窗体(响应)求 1 1/2+1/3 1/4+.+1/99 1/100的值。将结果存入变量J中代码：Dim j As SingleDim i As Singlej=0For i = 1 To 100k=(-1)八(i+1)/ij=k+jNext iPrint j第九题题目：（事件）双击窗体（响应）s=20+21+22+263，求s的值，并将 结果存储到变量S中。代码：Dim s As Longs=20For s= 21 To 263b=s+1Sum=Sum+bNextPrint Sum第十题题目：（事件）单击窗体（响应）求出100以内所有素数的和，并将结 果输出到窗体上，并存入所给变量

5、SU的代码： Dim sum As IntegerFor i = 1 To 100Forj = 2 To i- 1Exit ForNext jNext iIf i Mod j = 0 Then End IfIf j - i Then sum = sum + i End If Print sum 第十二题 题目：（事件）单击窗体（响应）求1020之间所有素数的乘积并输出 在窗体上。将结果存入变量L中代码：Dim l As Longl=1For i=10 To 20For j=2 To i-1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i Thenl

6、=l*iEnd IfNext iPrint lNextPrint s第十五题题目：（事件）单击窗体（响应）求200300之间既能被3整除又能被 7整除的数。并求出所有数之和存入变量 SU时。代码： Dim sum As Integersum = 0For i = 200 To 30013第十八题If i Mod 3 = 0 And i Mod 7 = 0 Thensum = sum +iEnd IfNextPrint sum第十七题题目：（事件）双击窗体（响应）求1!+2!+3!+4!+5!并将结果输出到窗 体上。结果存入变量S中代码：Dim s As Integers = 0t = 1For

7、 i = 1 To 5t = i*tSum = sum + tNextPrint Sum题目：（事件）双击窗体（响应）求 3+6+9+12+15+18+.+300 的和, 并将结果输出到窗体上。将结果存入变量SUM3代码： Dim sum As Integersum = 0For i = 3 To 300 Step 3sum= sum +iNext iPrint sum第十九题题目：（事件）单击窗体（响应）求10!的值，并将结果输出在窗体上。将结果存入变量SUM3代码： Dim sum As LongDim i As Integer sum = 1For i = 1 To 10sum = i*

8、sumNextPrint sum第二十二题题目：（事件）单击窗体（响 应） 已 知S=1+1/4+1/9+1/16+1/25+ - +1/100 ,结果输出在窗 体上。将结果存入变量S中代码：Dim i As Integers=0For i = 1 To 10s = s + 1/（iAi）NextPrint（s）第二十三题题目：（事件）单击窗体（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8.的前10项，并求其和。代码： Dim i ,j,k,m As Integer s=0i=2j=1For k = 1 To 10 m = jPrint j = i i=i+m s=s+i/j

9、 Next(CStr(i)& “/" & CStr(j)第二十四题题目：（事件）单击窗体（响应）一球从 地返回。原高度的一半,100米高度自由落下，每次落 求第10次落地时，共经过多少米？并将结果在窗体上输出 代码：Dim j,i As Integers=0j=100For i = 2 To 10j=j / 2s=s+2*jNexts=100+sPrint(CStr(s)第二十七题题目：(事件)单击窗体。(响应)求出1000-9999之间具有如下特点的 四位数字，它的平方根恰好就是它中间的两位数字， 例如，2500开平方为50,恰为2500的中间两位， 找出所有这样的

10、四位数。并求出所有这样的数的和 存入SUMK代码：Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j= Val(Mid(Trim( Str(i), 2, 2)If j 八 2 = i Then Print i, sum = sum + iEnd If Next 第二十八题 题目：(事件)双击窗体(响应)把一元钞票换成一分、二分、和五分 的硬币(每种至少有一枚)，求出其所有的换法，把 结果输出在窗体上。将所有的换法的数目存入变量 N 中 代码：Dim i, j,k As Integer For i = 1 To 100 For j = 1

11、To 50 For k = 1 To 20If (i+2*j +k*5)=100) Then Print (CStr(i)Print (CStr(j)Print (CStr(k) n=n+1End IfNextNextNext第三十一题题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依 次为：15、23、72、43、96、23、3、65、88、17), 写程序求出这个数组中的最大值、最小值和平均值， 并输出在窗体上。将最大值，最小值，平均值分别 存入变量 Max,Min,Aver中。Dim aDim i, s As Integera = array(15,23,72,43,96

12、,23,3,65,88,17)Max = a(0)Min = a(0)s = 0For i = 0 to 90If a(i)>max Then max = a(i)End IfIf a(i)<min Thenmin = a(i)End Ifs = s + a(i)Nextaver = Int(s/10)Print (CStr(max)Print (CStr(min)Print (CStr(aver)第三十二题题目：(事件)单击窗体。(响应)在窗体上输出100200之间的所有合 数。求出所有数之和存入 SU附。代码： Dim i,j,s As IntegerFor i = 100 T

13、o 200For j = 2 To Sqr(i) If (i Mod j) = 0 Then Print(CStr(i) sum = sum + iElseEnd IfIf i Mod 2 = 0 ThenExit Forj= j - 1 / iEnd IfPrint jEnd IfNextNextPrint sum第三十八题第三十九题题目：（事件）：单击窗（响应）：求1+2体。+3+4+100的值，并把结果题目:（事件）：单击窗体的值。 代码:For i = 1 To 100NextNextIf i Mod 2 = 1 ThenPrint Sum第四十题题目：（事件）：双击窗体。(响应)：求

14、 1-1/2+1/3-1/4+ -+1/99-1/100将结果存入变量J中。Dim i As Integer输出在窗体上。结果存入变量 SUM代码：Dim i As IntegerFor i = 1 To 100Sum = Sum + i(响应):求1+2+3+5+8+13+.的前20项和, 并将结果在窗体上输出。将结果存入变量SUMo代码：Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = 1 Else j(i) = j(i - 1) + j(i - 2) End IfSum = Sum + j(i)NextPrint Sum第四十三题题目：(事件)：双击窗体。(响应)：求1+5+10+15+500的和，并将结 果输出在窗体上。将结果存入变量 SUM*fro 代码：Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 ThenSum = Sum + iEnd IfNextPr