VB程序设计题库(全)

1、程序设计第一题题目：（事件）单击窗体 （响应）求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 prin

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

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

4、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

5、+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第十一题题目：

6、（事件）单击窗体 （响应）编写程序求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 t

7、hen 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)

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第十五题题目：（事件）单击窗体 （响应）求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 nex

9、t 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

10、 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 = s+i next i print s第十九题题目：（事件）单击窗体 （响应）求10!的值

11、，并将结果输出在窗体上。 将结果存入变量sum中代码：dim sum as long dim i as integer sum = 1 for i = 1 to 10 sum = i*sum next print sum第二十题题目：（事件）单击窗体 （响应）求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量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第二十一题题目：（事件）单击窗体 （响应）求200300之间既能被3 整除又能被7整除的数。并求出所有数之和 存入变量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第二十二题题目：（事件）单击窗体 （响应）已

13、知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=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、：（事件）单击窗体 （响应）一球从100米高度自由落下，每次落地返回。原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。代码：dim j,i as integer s=0j=100for i = 2 to 10j=j / 2s=s+2*jnexts=100+sprint(cstr(s)第二十五题题目：（事件）双击窗体 （响应）s=20+21+22+263,求s的值，并将结果存储到变量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)第三十二题题目：（事件）单击窗体。 （响应）在窗体上输出100200之间的所有合数。求出所有数之和存入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、响应）求出100200之间能被5整除，但不能被3整除的数。并求所有数之和，存入变量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第三十四题题目：（事件）单击窗体。 （响应）求50以内所有偶数之和，并在窗体上输出来。将结果存入变量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)第三十五题题目：（事件）双击窗体。 （响应）求出50以内所有奇数的和，将结果存入变量sum中。代码：dim i as integer for i = 1 to 50 if i mod 2 = 1 then sum = sum +i end if next print sum第三十六题题目：（事件）：单击窗体。 （响应）：求1020之间所有素数的乘积并输出在窗体上。将结果存入变量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)第三十七题题目：（事件）：单击窗体。 （响应）：求1!+2!+3!+10!的值，并在窗体上输出。结果存入变量l中。代码：dim i as integerdim s as longdim j as integers = 1b = falsefor i = 1 to 10s = s * il = l + snextprint str(l)第三十八题题目：（事件）：单击窗体。 （响应）：求1-1/2+1/3-1/4+1

19、/99-1/100的值。将结果存入变量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第三十九题题目：（事件）：单击窗体。 （响应）：求1+2+3+4+100的值，并把结果输出在窗体上。结果存入变量sum中。代码：dim i as integerfor i = 1 to 100sum = sum + inextprint sum第四十题题目：（事件）：双击窗体。 （响应）：求1+2+3+

20、5+8+13+.的前20项和，并将结果在窗体上输出。将结果存入变量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第四十一题题目：（事件）：双击窗体。 （响应）：求100以内奇数的和，并将结果输出在窗体上。将结果存入变量sum中。代码：dim i as integerfor i = 1 to 100if i mod 2 = 1 thensum = sum + iend ifnextprint sum第四十二题题目：（事件）：单击窗体。 （响应）：求100以内偶数的和，并将结果输出在窗体上。将结果存入变量sum中。代码：dim i as integerfor i = 1 to 100if i mod 2 =