VB程序设计题库全

V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT-程序设计第一题、题目：（事件）单击窗体（响应）求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))第三题题目：（事件）单击窗体（响应）求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 (CStr(m))第五题题目：（事件）双击窗体（响应）求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,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+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 Singlej=0For i = 1 To 100k=(-1)^(i+1)/ij=k+jNext iPrint j第九题题目：（事件）双击窗体（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。

代码：Dim s As Longs=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 Thensum = sum + iEnd IfPrint sum第十一题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。

将结果存入变量M中。

代码：Dim m As LongFor i = 1 To 6t =(i+9)*(i+10)*(i+11)m=m+tNextPrint m第十二题题目：（事件）单击窗体（响应）求10~20之间所有素数的乘积并输出在窗体上。

将结果存入变量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 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(1) = 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)NextPrint s第十五题题目：（事件）单击窗体（响应）求200~300之间既能被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第十六题题目：（事件）双击窗体（响应）求出100~200之间，能被5整除，但不能被3整除的数。

并求出所有数之和，存入变量SUM中代码：Dim sum As Integersum=0For i = 100 To 200If 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 To 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以内所有素数的和，并将结果输出到窗体上，并存入所给变量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第二十一题题目：（事件）单击窗体（响应）求200~300之间既能被3 整除又能被7整除的数。

并求出所有数之和存入变量SUM中代码：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/(i^i)NextPrint(s)第二十三题题目：（事件）单击窗体（响应）在窗体上打印数列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*jNexts=100+sPrint(CStr(s))第二十五题题目：（事件）双击窗体（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量s 中。

代码：Dim i As Integeri = 20while i <=263s=s+ii=i+1WendPrint(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 = 1 To 10For j = 1 To ik = k*jNexts=s+kk=1NextPrint(CStr(s))第二十七题题目：（事件）单击窗体。

（响应）求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。

并求出所有这样的数的和存入SUM中。

代码：Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j= Val(Mid(Trim( Str(i)), 2, 2))If j ^ 2 = i ThenPrint i,sum = sum + iEnd IfNext第二十八题题目：（事件）双击窗体（响应）把一元钞票换成一分、二分、和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。