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中 代码：Dimi,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+k k=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 IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint （CS

3、tr（m）第五题 题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中。代码：Dim i As IntegerFor i=1 To 100 If i Mod 2 = 1 Then sum = sum + iEnd IfNextPrint sum第六题 题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+1/100,结果输出在窗体上代码：Dim s As Single For i=1 To 10 a=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第八题题目：（事件）单击窗体（响应）求11/2+1/31/4+.+1/991/100的值。 将结果存入变量J中代码：Dim j As SingleDim i As Single j=0For i = 1 To 100k=（-1F（i+1）/ij=k+jNext iPrint j第九题 题目：（事件）双击窗体（响应）s=20+21+22+263,求s的值，并将结果存储到变量S中 代码：Dims As Longs=20For

5、 s= 21 To 263 b=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的结果并将结果输出

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 ()b(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 10 a(i)=a(i-1)+a(i-2) b(i)=b(i-1)+b(i-2) c(i)= a

8、(i)/ b(i) s = s+c(i)NextPrint 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 IfNext Print sum第十六题 题目：(事件)双击窗体(响应)求出100200之间，能被5整除，但不能被3整除的数。 并求出所有数之和，存入变量SUM中 代码：Dim sum As Integersum

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

10、ersum = 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第二十题 题目：（事件）单击窗体（响应）求出10

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

12、和存入变量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/(iAi)NextPrint(s)第二十三题 题目：(事件)单击窗体(响应)在窗体上打印数列2/1,3/2,5/3,

13、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=0 j=100 For i = 2 To 10 j=j / 2 s=s+2*j Next s=100+s Print（CStr（s）第二十五

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

15、tegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint(CStr(i)sum = sum + iExit ForEnd IfNextNextPrint sum第三十三题 题目：(事件)双击窗体。(响应)求出100200之间能被5整除，但不能被3整除的数。并求所有 数之和，存入变量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第三十

16、四题 题目：(事件)单击窗体。(响应)求50以内所有偶数之和，并在窗体上输出来。将结果存入变量S中。代码：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 50 If i Mod 2 = 1 Then Sum = sum +i End If Next Print sum第三十六题 题目：（事件）：单击窗体。（响应）：求1020

17、之间所有素数的乘积并输出在窗体上。 将结果存入变量L中。代码：Dim i As IntegerDim j As IntegerDim b As Booleanl = 1 b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Then b = True End If NextIf b = False Then l = l * i End If b = False Next Print Str（l）第三十七题 题目：（事件）：单击窗体。（响应）：求1!+2!+3!+10!的值，并在窗体上输出。结果存入变量L中。 代码：Dim i As

18、Integer Dim s As Long Dim j As Integer s = 1 b = FalseFor i = 1 To 10 s = s * i l = l + s Next Print 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 Then j = j + 1 / i Else End IfIf i Mod 2 = 0 Then j = j - 1 / i End If Print

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

20、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 = 0 ThenSum = Sum + i