2012VB程序设计(附答案).doc

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 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+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 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第九题题目：（事件）双击窗体 （响应）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 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) = 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 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 =