2012VB程序設(shè)計(jì)(附答案)

1、 VB程序設(shè)計(jì) 第一題題目：（事件）單擊窗體 （響應(yīng)）求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出來。 將結(jié)果存入變量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)第二題題目：（事件）雙擊窗體 （響應(yīng)）求s=1+1*2+1*2*3+.+1*2*3*.*10并將結(jié)果存入變量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

2、Print(CStr(s)第三題題目：（事件）單擊窗體 （響應(yīng)）求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。 將結(jié)果存入變量SUM中代碼：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum第四題題目：（事件）單擊窗體 （響應(yīng)）編寫程序求10*11*12+11*12*13+.+15*16*17的結(jié)果 并將結(jié)果輸出到窗體上。將結(jié)果存入變量M中。代碼：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i

3、+2 s=s*j Next m=m+sNextPrint (CStr(m)第五題題目：（事件）雙擊窗體 （響應(yīng)）求100以內(nèi)奇數(shù)的和，并將結(jié)果輸出在窗體上。 將結(jié)果存入變量SUM中。代碼：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum第六題題目：（事件）單擊窗體 （響應(yīng)）已知S=1+1/4+1/9+1/16+1/25+1/100, 結(jié)果輸出在窗體上代碼：Dim s As Single For i=1 To 10 a=i*i Sum =1/a + Sum Next Pr

4、int Sum第七題題目：（事件）雙擊窗體 （響應(yīng)）求1+1*2+1*2*3+.+1*2*3*.*10, 并將結(jié)果存到變量S中代碼：Dim s As Long j=1 For i = 1 To 10 j= j*i Sum = Sum + j Next Print Sum第八題題目：（事件）單擊窗體 （響應(yīng)）求11/2+1/31/4+.+1/991/100的值。 將結(jié)果存入變量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第九題題目：（事件）雙擊窗體 （響應(yīng)）

5、s=20+21+22+263,求s的值，并將結(jié)果存儲(chǔ)到變量S中。代碼：Dim s As Long s=20 For s= 21 To 263 b=s+1 Sum=Sum+b Next Print Sum第十題題目：（事件）單擊窗體 （響應(yīng)）求出100以內(nèi)所有素?cái)?shù)的和，并將結(jié)果輸出到窗體上，并存入所給變量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第十一

6、題題目：（事件）單擊窗體 （響應(yīng)）編寫程序求10*11*12+11*12*13+.+15*16*17的結(jié)果 并將結(jié)果輸出到窗體上。將結(jié)果存入變量M中。代碼：Dim m As Long For i = 1 To 6 t =(i+9)*(i+10)*(i+11) m=m+t Next Print m第十二題題目：（事件）單擊窗體 （響應(yīng)）求1020之間所有素?cái)?shù)的乘積并輸出在窗體上。 將結(jié)果存入變量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 =

7、 i Then l=l*i End If Next i Print l第十三題題目：（事件）單擊窗體 （響應(yīng)）求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出來。代碼：Dim s As Integer s = 0 For i = 2 To 50 Step 2 s = s + i Next i Print s第十四題題目：（事件）單擊窗體 （響應(yīng)）在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8.的前十項(xiàng)，并求其和。代碼：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

8、(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第十五題題目：（事件）單擊窗體 （響應(yīng)）求200300之間既能被3整除又能被7整除的數(shù)。 并求出所有數(shù)之和存入變量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

9、 Next Print sum第十六題題目：（事件）雙擊窗體 （響應(yīng)）求出100200之間，能被5整除，但不能被3整除的數(shù)。 并求出所有數(shù)之和，存入變量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第十七題題目：（事件）雙擊窗體 （響應(yīng)）求1!+2!+3!+4!+5!并將結(jié)果輸出到窗體上。 結(jié)果存入變量S中代碼：Dim s As Integer s = 0 t = 1 For i = 1

10、To 5 t = i*t Sum = sum + t Next Print Sum第十八題題目：（事件）雙擊窗體 （響應(yīng)）求3+6+9+12+15+18+.+300的和，并將結(jié)果輸出到窗體上。 將結(jié)果存入變量SUM中代碼：Dim sum As Integer sum = 0 For i = 3 To 300 Step 3 sum= sum +i Next i Print sum 第二種方法：當(dāng)step為2的時(shí)候： Dim s As Integer Dim i As Integer For i=2 To 50 Step 2 s = s+i Next i Print s第十九題題目：（事件）單擊窗體 （響應(yīng)）求10