《VB程序设计题库(精选)》由会员分享，可在线阅读，更多相关《VB程序设计题库(精选)（5页珍藏版）》请在金锄头文库上搜索。
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 Next P
2、rint(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
3、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 Next Print S
4、um八题题目：（事件）单击窗体 （响应）求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九题题目：（事件）双击窗体 （响应）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以内所有素数的和，并将结果
5、输出到窗体上，并存入所给变量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二题题目：（事件）单击窗体 （响应）求1020之间所有素数的乘积并输出在窗体上。 将结果存入变量L中代码：Dim l As Long l=1 For i=10 To 20 For j=2 To i1 If i Mod j = 0 Then Exit For End If Next j If
6、 j = i Then l=l*i End If Next i Print l 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七题题目：（事件）双击窗体 （响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。 结果存入变量S中代码：Dim s As Inte
7、ger 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 九题题目：（事件）单击窗体 （响应）求10!的值，并将结果输出在窗体上。 将结果存入变量SUM中代码：Dim sum As Long Dim i As Integer s
8、um = 1 For i = 1 To 10 sum = i*sum 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=0 i=2 j=1 For k = 1 To 10 m
9、 = j Print （CStr(i)）& “/” & CStr(j) j = i i=i+m s=s+i/j Next二四题题目：（事件）单击窗体 （响应）一球从100米高度自由落下，每次落地返回。原高度的一半，求10次落地时，共经过多少米？并将结果在窗体上输出。代码：Dim j,i As Integer s=0j=100For i = 2 To 10j=j / 2s=s+2*jNexts=100+sPrint(CStr(s)二七题题目：（事件）单击窗体。 （响应）求出10009999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中
10、间两位，找出所有这样的四位数。并求出所有这样的数的和存入SUM中。代码：Dim i As Integer Dim j As IntegerFor i = 1000 To 9999j= Val(Mid(Trim( Str(i), 2, 2)If j 2 = i ThenPrint i,sum = sum + iEnd IfNext二八题题目：（事件）双击窗体 （响应）把一元钞票换成一分二分和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中代码：Dim i, j,k As IntegerFor i = 1 To 100For j = 1 To 50
11、For k = 1 To 20If (i+2*j +k*5)=100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k) n=n+1End IfNextNextNext三一题题目：（事件）单击窗体。 （响应）生成一个一维数组（10个数组元素依次为：1523724396233658817），写程序求出这个数组中的最大值最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中。Dim aDim i, s As Integera = array(15,23,72,43,96,23,3,65,88,17)Max = a(0)Min = a(0)s = 0For i = 0 to 90If a(i)max Thenmax = 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之间的所有合数。求出所有数之和存入SUM中。代码：Dim i,j,s As
