VB程序设计题库全

1、第一题、题目：（事件）单击窗体（响应）求 50 以内所有偶数的和，并在窗体上输出来。 将结果存入变量 S 中。代码： Dim I As IntegerFor i = 2 To 50If （i Mod 2）=0 ThenS=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=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint（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 IntegerFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint （CStr（m）第五题题目：（

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

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

5、int 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 LongF

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

7、 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(l) = 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)c(i)= a(i)/ b(i)s = s+c(i)

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

9、If i Mod 5 = 0 And i Mod 3 0 Thensum = sum +iEnd IfNextPrint sum第十七题题目：（事件）双击窗体响应）求 1!+2!+3!+4!+5! 并将结果输出到窗体上结果存入变量 S 中代码： Dim s As Integers = 0t = 1For i = 1 To 5t = i*tSum = sum + tNextPrint Sum第十八题题目：（事件）双击窗体（响应）求3+6+9+12+15+18+.+300的和，并将结果输出到窗体上将结果存入变量SUM中代码： Dim sum As Integersum = 0For i = 3 T

10、o 300 Step 3sum= sum +iNext iPrint sum第二种方法：当 step 为 2 的时候：Dim s As IntegerDim i As IntegerFor i=2 To 50 Step 2s = s+iNext iPrint s第十九题 题目：（事件）单击窗体（响应）求 10! 的值，并将结果输出在窗体上。将结果存入变量SUM中代码： Dim sum As LongDim i As Integersum = 1For i = 1 To 10sum = i*sumNextPrint sum第二十题 题目：（事件）单击窗体（响应）求出 100 以内所有素数的和，并

11、将结果输出到窗体上， 并存入所给变量SUM中代码： Dim i As IntegerDim j As IntegerDim k As IntegerDim b As Booleanb = FalseFor i = 2 To 100b = Falsej = CInt(Sqr(i)For k = 2 To jIf i Mod k = 0 Thenb=TrueEnd IfNextIf b = False Thensum=sum+iEnd IfNextPrint sum第二十一题题目：(事件)单击窗体(响应)求 200300之间既能被 3 整除又能被 7 整除的数。并求出所有数之和存入变量SUM中代码

12、： Dim i As IntegerFor i =201 To 300If (i Mod 3)=0)And(i Mod 7)=0) ThenPrint(CStr(i)sum = sum +iEnd IfNextPrint sum第二十二题题目：(事件)单击窗体(响应)已知 S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。 将结果存入变量 S 中代码： Dim i As Integers=0For i = 1 To 10s = s + 1/(iAi)NextPrint(s)第二十三题题目：(事件)单击窗体(响应)在窗体上打印数列 2/1,3/2,5/3,8/5,13/8

13、. 的前 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第二十四题题目：（事件）单击窗体10次落地（响应）一球从 100 米高度自由落下，每次落地返回。原高度的一半，求第 时，共经过多少米？并将结果在窗体上输出。代码： Dim j,i As Integers=0j=100For i = 2 To 10j=j / 2s=s+2*jNexts=100+sPrint（CStr（s）第二十五题题目：（事件）双击窗体（

14、响应）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)Next aver = In t(s/10)Print (CStr(mi n)Print (CStr(aver)第三十二题 题目：(事件)单击窗体。(响应)在窗体上输出100200之间的所有合数。求出所有数之和存入SUM中0代码： Dim i,j,s As IntegerFor i = 100 To 200For j =

15、 2 To Sqr(i)If (i Mod j) = 0 ThenPrint(CStr(i)sum = sum + iExit ForEnd IfNextNextPrint sum第三十三题题目：(事件)双击窗体0(响应)求出 100200之间能被 5整除，但不能被 3整除的数0并求所有数之和，存入 变量SUM中。代码： Dim i As IntegerFor i = 100 To 200If (i Mod 5)=0) And (i Mod 3)0) ThenPrint (CStr(i)Sum = sum + iEnd IfNext第三十四题题目：（事件）单击窗体。S中。（响应）求 50 以内

16、所有偶数之和，并在窗体上输出来。将结果存入变量 代码： Dim i As IntegerFor i = 2 To 50If （i Mod 2）=0 Thens = s + iEnd IfNextPrint（CStr（s）第三十五题题目：（事件）双击窗体。（响应）求出50以内所有奇数的和，将结果存入变量 SUM中。代码： Dim i As IntegerFor i = 1 To 50If i Mod 2 = 1 ThenSum = sum +iEnd IfNext第三十六题 题目：（事件）：单击窗体。（响应）：求 1020之间所有素数的乘积并输出在窗体上。将结果存入变量 L 中 代码： Dim

17、i As IntegerDim j As IntegerDim b As Booleanl = 1b = FalseFor i = 10 To 20For j = 2 To i - 2If 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 =

18、 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 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的值，并把结果输出在窗体上。结果存

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