VB程序设计题库(全).doc

1、word完美格式程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。将结果存入变量S中。代码：Dim I As IntegerFor i = 2 To 50If （i Mod 2）=0 The nS=s+iEnd IfNextPrint （CStr（s）第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+.+1*2*3*.*10并将结果存入变量 S中代码：Dim i,j As IntegerDim k As Longk=1s=0Fori =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrin t（CStr（s）

2、第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求 10*11*12+11*12*13+.+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint

3、(CStr(m)第五题题目：(事件)双击窗体(响应)求100以内奇数的和，并将结果输出在窗体上 将结果存入变量SUM中。代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 The nsum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知 S=1+1/4+1/9+1/16+1/25+ +1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求 1+1*2+1*2*3+.

4、+1*2*3* .*10,并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求 1 1/2+1/3 1/4+.+1/99 1/100 的值。将结果存入变量J中代码：Dim j As SingleDim i As Sin glej=0For i = 1 To 100k=（-1F（i+1）/ij=k+jNext iPrint j第九题题目：（事件）双击窗体S中。（响应）s=20+21+22+263,求s的值，并将结果存储到变量代码：Dim s As Longs=

5、20For s= 21 To 263b=s+1Sum=Sum+bNextPrint 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 The nsum = sum + iEnd IfPrint sum第十一题题目：(事件)单击窗体(响应)编写程序求 10*11*12+11*12*13+.+15*16*17的结果并将

6、结果输出到窗体上。将结果存入变量M中。代码：Dim m As LongFor i = 1 To 6t =(i+9)*(i+10)*(i+11)m=m+tNextPrint m第十二题题目：（事件）单击窗体（响应）求1020之间所有素数的乘积并输出在窗体上 将结果存入变量L中代码：Dim I As Long1=1For i=10 To 20For j=2 To i-1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i The nl=l*iEnd IfNext iPrint l第十三题题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来

7、。代码：Dim s As Integers = 0For i = 2 To 50 Step 2s = s + iNext iPrint s第十四题题目：(事件)单击窗体.的前十项，并求(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8其和。代码：Dim s As SingleDim a ()Dim b ()Dim c ()a。 = 2b(1) = 1c(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 10a(i)=a(i-1)+a(i-2) b(i)=b(i-1)+b(i-2)

8、 c(i)= a(i)/ b(i) s = s+c(i)NextPrint s第十五题题目：（事件）单击窗体（响应）求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量 SUM中。代码： Dim sum As Integersum = 0For i = 200 To 300If i Mod 3 =0 And i Mod 7 = 0 The nsum = sum +iEnd IfNextPrint sum第十六题题目：（事件）双击窗体（响应）求出100200之间，能被5整除，但不能被3整除的数。并求出所有数之和，存入变量 SUM中代码： Dim sum As Integers

9、um=0For i = 100 To 200If i Mod 5 = 0 And i Mod 3 0 The nsum = sum +iEnd IfNextPrint sum第十七题题目：（事件）双击窗体（响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中代码：Dim s As In tegers =0t =1For i = 1 To 5t = i*tSum = sum + tNextPrint Sum第十八题题目：（事件）双击窗体精心整理学习帮手word完美格式（响应）求3+6+9+12+15+18+.+300的和，并将结果输出到窗体上将结果存入变量SUM中代码： D

10、im sum As Integersum = 0For i = 3 To 300 Step 3sum= sum +iNext iPrint sum第二种方法：当step为2的时候：Dim s As In tegerDim i As In tegerFor i=2 To 50 Step 2s = s+iNext iPrint s第十九题题目：（事件）单击窗体（响应）求10!的值，并将结果输出在窗体上。将结果存入变量SUM中代码： Dim sum As Longsum = 1Dim i As In teger精心整理学习帮手word完美格式For i = 1 To 10sum = i*sumNex

11、tPrint sum第二十题题目：(事件)单击窗体(响应)求出100以内所有素数的和，并将结果输出到窗体上, 并存入所给变量SUM中代码：Dim i As IntegerDim j As In tegerDim k As In tegerDim b As Boolea nb = FalseFor i = 2 To 100b = Falsej = CIn t(Sqr(i)For k = 2 To jIf i Mod k = 0 The nb=TrueEnd IfNextIf b = False The nsum=sum+iEnd IfNextPrint sum第二十一题题目：（事件）单击窗体（响

12、应）求200300之间既能被3整除又能被7整除的数。并求出所有数 之和存入变量SUM中代码：Dim i As IntegerFor i =201 To 300If (i Mod 3)=0)And(i Mod 7)=0) ThenPrin t(CStr(i)sum = sum +iEnd IfNextPrint sum第二十二题题目：（事件）单击窗体（响应）已知 S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。将结果存入变量S中代码：Dim i As In tegers=0For i = 1 To 10s = s + 1/(iAi)NextPrin t(s)第二十三题题

13、目：(事件)单击窗体(响应)在窗体上打印数列 2/1,3/2,5/3,8/5,13/8.的前10项，并求其和。代码： Dim i ,j,k,m As Integers=oi=2j=1For k = 1 To 10m = jPrint (CStr(i) ) & “/” & CStr(j)j = ii=i+ms=s+i/jNext第二十四题题目：(事件)单击窗体(响应)一球从100米高度自由落下，每次落地返回。原高度的一半，求 第10次落地时，共经过多少米？并将结果在窗体上输出。代码：Dim j,i As Integers=0j=100For i = 2 To 10j=j / 2s=s+2*jNe

14、xts=100+sPrin t(CStr(s)第二十五题题目：(事件)双击窗体(响应)s=20+21+22+263,求s的值，并将结果存储到变量 s中。代码：Dim i As Integeri = 20while i max Thenmax = a(i)End IfIf a(i) min Thenmin = a(i)End If s = s + a(i)NextPrint (CStr(max)Print (CStr(mi n)Print (CStr(aver)第三十二题题目：(事件)单击窗体。(响应)在窗体上输出100200之间的所有合数。求出所有数之和存入SUM 中。代码：Dim i,j,s

15、 As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 The nPrin t(CStr(i)sum = sum + iExit ForEnd IfNextNextPrint sum第三十三题题目：(事件)双击窗体。(响应)求出100200之间能被5整除，但不能被3整除的数。并求所有 数之和，存入变量SUM中。代码：Dim i As Integer精心整理学习帮手word完美格式For i = 100 To 200If (i Mod 5)=0) And (i Mod 3)0) ThenPrint (CStr(i)Sum

16、= sum + iEnd IfNext第三十四题题目：（事件）单击窗体。（响应）求50以内所有偶数之和，并在窗体上输出来 中。代码：Dim i As IntegerFor i = 2 To 50If （i Mod 2）=0 Thens = s + iEnd IfNextPrin t（CStr（s）第三十五题题目：（事件）双击窗体。（响应）求出50以内所有奇数的和，将结果存入变量代码：Dim i As Integer将结果存入变量SSUM中oFor i = 1 To 50精心整理学习帮手word完美格式If i Mod 2 = 1 The nSum = sum +iEnd IfNextPrint

17、 sum第三十六题题目：（事件）：单击窗体。将结果存入变量（响应）:求1020之间所有素数的乘积并输出在窗体上L中。代码：Dim i As IntegerDim j As In tegerDim b As Boolea nl = 1b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNext l = l * iIf b = False The n精心整理学习帮手word完美格式End Ifb = FalseNextPrint Str(l)第三十七题题目：（事件）：单击窗体。（响应）：求1!+2!

18、+3!+10!的值，并在窗体上输出。结果存入变量L中。代码：Dim i As In tegerDim s As LongDim j As In tegers = 1b = FalseFor i =:1 To 10s = s * il = l + sNextPrint Str(l)第三十八题题目：（事件）：单击窗体。（响应）：求1-1/2+1/3-1/4+ +1/99-1/100 的值。将结果存入变量 J中。代码：Dim i As In tegerFor i = 1 To 100NextIf i Mod 2 = 1 The nj = j + 1 / iElseEnd IfIf i Mod 2 =

19、 0 The nj = j - 1 / iEnd IfPrint j第三十九题题目：（事件）：单击窗体。（响应）:求1+2+3+4+100的值，并把结果输出在窗体上。结果存入变量 SUM中0代码：Dim i As IntegerFor i = 1 To 100Sum = Sum + iNextPrint Sum第四十题题目：（事件）：双击窗体。（响应）：求1+2+3+5+8+13+.的前20项和，并将结果在窗体上输出。将结果存入变量SUM中o代码：Dim i As IntegerDim j(1 To 20) As In tegerFor i = 1 To 20If i 3 The nj(i)

20、= 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 The nSum = Sum + iEnd IfNextPrint Sum第四十二题题目：（事件）：单击窗体。（响应）：求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中。代码：Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 The nSum = Sum + iEnd