VB程序設(shè)計題庫(全)

1、程序設(shè)計第一題題目：（事件）單擊窗體 （響應(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 prin

2、t(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 +2 s

3、=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 print

4、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)）s=20

5、+21+22+263,求s的值，并將結(jié)果存儲到變量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)所有素數(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之間所有素數(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 = i t

7、hen 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.的前十項，并求其和。代碼：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)

8、= 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 nex

9、t 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 to 5 t = i*t

10、 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的時候： 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!的值

11、，并將結(jié)果輸出在窗體上。 將結(jié)果存入變量sum中代碼：dim sum as long dim i as integer sum = 1 for i = 1 to 10 sum = i*sum next print sum第二十題題目：（事件）單擊窗體 （響應(yīng)）求出100以內(nèi)所有素數(shù)的和，并將結(jié)果輸出到窗體上，并存入所給變量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

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

13、知s=1+1/4+1/9+1/16+1/25+1/100，結(jié)果輸出在窗體上。 將結(jié)果存入變量s中代碼：dim i as integer s=0 for i = 1 to 10 s = s + 1/(ii) next print(s)第二十三題題目：（事件）單擊窗體 （響應(yīng)）在窗體上打印數(shù)列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第二十四題題目

14、：（事件）單擊窗體 （響應(yīng)）一球從100米高度自由落下，每次落地返回。原高度的一半，求第10次落地時，共經(jīng)過多少米？并將結(jié)果在窗體上輸出。代碼：dim j,i as integer s=0j=100for i = 2 to 10j=j / 2s=s+2*jnexts=100+sprint(cstr(s)第二十五題題目：（事件）雙擊窗體 （響應(yīng)）s=20+21+22+263,求s的值，并將結(jié)果存儲到變量s 中。代碼：dim i as integer i = 20 while i max thenmax = a(i)end ifif a(i)min thenmin = a(i)end ifs =

15、s + a(i)nextaver = int(s/10)print (cstr(max)print (cstr(min)print (cstr(aver)第三十二題題目：（事件）單擊窗體。 （響應(yīng)）在窗體上輸出100200之間的所有合數(shù)。求出所有數(shù)之和存入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第三十三題題目：（事件）雙擊窗體。 （

16、響應(yīng)）求出100200之間能被5整除，但不能被3整除的數(shù)。并求所有數(shù)之和，存入變量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第三十四題題目：（事件）單擊窗體。 （響應(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(c

17、str(s)第三十五題題目：（事件）雙擊窗體。 （響應(yīng)）求出50以內(nèi)所有奇數(shù)的和，將結(jié)果存入變量sum中。代碼：dim i as integer for i = 1 to 50 if i mod 2 = 1 then sum = sum +i end if next print sum第三十六題題目：（事件）：單擊窗體。 （響應(yīng)）：求1020之間所有素數(shù)的乘積并輸出在窗體上。將結(jié)果存入變量l中。代碼：dim i as integerdim j as integerdim b as booleanl = 1b = falsefor i = 10 to 20for j = 2 to i - 2if

18、 i mod j = 0 thenb = trueend ifnextif b = false thenl = l * iend ifb = falsenextprint str(l)第三十七題題目：（事件）：單擊窗體。 （響應(yīng)）：求1!+2!+3!+10!的值，并在窗體上輸出。結(jié)果存入變量l中。代碼：dim i as integerdim s as longdim j as integers = 1b = falsefor i = 1 to 10s = s * il = l + snextprint str(l)第三十八題題目：（事件）：單擊窗體。 （響應(yīng)）：求1-1/2+1/3-1/4+1

19、/99-1/100的值。將結(jié)果存入變量j中。代碼：dim i as integerfor i = 1 to 100nextif i mod 2 = 1 thenj = j + 1 / ielseend ifif i mod 2 = 0 thenj = j - 1 / iend ifprint j第三十九題題目：（事件）：單擊窗體。 （響應(yīng)）：求1+2+3+4+100的值，并把結(jié)果輸出在窗體上。結(jié)果存入變量sum中。代碼：dim i as integerfor i = 1 to 100sum = sum + inextprint sum第四十題題目：（事件）：雙擊窗體。 （響應(yīng)）：求1+2+3+

20、5+8+13+.的前20項和，并將結(jié)果在窗體上輸出。將結(jié)果存入變量sum中。代碼：dim i as integerdim j(1 to 20) as integerfor i = 1 to 20if i 3 thenj(i) = 1elsej(i) = j(i - 1) + j(i - 2)end ifsum = sum + j(i)nextprint sum第四十一題題目：（事件）：雙擊窗體。 （響應(yīng)）：求100以內(nèi)奇數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量sum中。代碼：dim i as integerfor i = 1 to 100if i mod 2 = 1 thensum = sum + iend ifnextprint sum第四十二題題目：（事件）：單擊窗體。 （響應(yīng)）：求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量sum中。代碼：dim i as integerfor i = 1 to 100if i mod 2 =