VB程序设计题库.docx

《VB程序设计题库.docx》由会员分享，可在线阅读，更多相关《VB程序设计题库.docx（13页珍藏版）》请在三一办公上搜索。

1、VB程序设计题库程序设计 第一题、 题目：单击窗体 求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 Print

2、(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=s*j Next m

3、=m+s Next Print (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 Sum 第七题 题目：双击窗体 求1+

4、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+21+22+263,求s的值，并将结果存储到变量S中。 代码：Dim

5、 s As Long s=20 For s= 21 To 263 b=s+1 Sum=Sum+b Next Print Sum 第十题 题目：单击窗体 求出100以内所有素数的和，并将结果输出 到窗体上，并存入所给变量SUM中 代码：Dim sum As Integer For i = 1 To 100 For j = 2 To i - 1 Exit For Next j Next i If i Mod j = 0 Then End If If j - i Then sum = sum + i End If Print sum 第十一题 题目：单击窗体 编写程序求10*11*12+11*12*

6、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 Then l=l*i End If Next i Print l 第十三题

7、题目：单击窗体 求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) = 3 a(2) = 2 a(2) = a(2) / b(2) s=s+c(1)+c(2) For i = 3 To 10 a(

8、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 Next Print sum 第十六题 题目：双击窗体 求出100200之间，能被5整除，但不能被3整除的数。 并求出所有数

9、之和，存入变量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 Sum = sum + t Next Print Sum 第十八题 题目：双击窗体 求3+6+9+12+15+18+.+300的和，并将

10、结果输出到窗体上。 将结果存入变量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!的值，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim sum As Long Dim i As Integer sum = 1 For i = 1 T

11、o 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 To j If i Mod k = 0 Then b=True End If Next If b = False Then sum=sum+i End If Next

12、 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 第二十二题 题目：单击窗体 已知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

13、 + 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(j) j = i i=i+m s=s+i/j Next 第二十四题 题目：单击窗体 一球从100米高度自由落下，每次落地返回。原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。 代码：Dim j,i As Integer s=0 j=100 For i = 2 T

14、o 10 j=j / 2 s=s+2*j Next s=100+s Print(CStr(s) 第二十五题 题目：双击窗体 s=20+21+22+263,求s的值，并将结果存储到变量s 中。 代码：Dim i As Integer i = 20 while i max Then max = a(i) End If If a(i)min Then min = a(i) End If s = s + a(i) Next aver = Int(s/10) Print (CStr(max) Print (CStr(min) Print (CStr(aver) 第三十二题 题目：单击窗体。 在窗体上输出

15、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 第三十三题 题目：双击窗体。 求出100200之间能被5整除，但不能被3整除的数。并求所有数之和，存入变量SUM中。 代码：Dim i As Integer For i = 100 To 200 If (i Mod 5)=0) And (i M

16、od 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(CStr(s) 第三十五题 题目：双击窗体。 求出50以内所有奇数的和，将结果存入变量SUM中。 代码：Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then Sum = sum

17、+i End If Next Print sum 第三十六题 题目：单击窗体。 ：求1020之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 代码：Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) 第三十七题 题目：单击窗体。 ：

18、求1!+2!+3!+10!的值，并在窗体上输出。结果存入变量L中。 代码：Dim i As Integer Dim s As Long Dim j As Integer s = 1 b = False For 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 Integer For i = 1 To 100 Next If i Mod 2 = 1 Then j = j + 1 / i Else End If If

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

20、n j(i) = 1 Else j(i) = j(i - 1) + j(i - 2) End If Sum = Sum + j(i) Next Print Sum 第四十一题 题目：双击窗体。 ：求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 第四十二题 题目：单击窗体。 ：求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中。 代码：Dim i As Integer For

21、 i = 1 To 100 If i Mod 2 = 0 Then Sum = Sum + i End If Next Print Sum 第四十三题 题目：双击窗体。 ：求1+5+10+15+500的和，并将结果输出在窗体上。将结果存入变量SUM中。 代码：Dim i As Integer For i = 1 To 500 If i Mod 5 = 0 Then Sum = Sum + i End If Next Print Sum 第四十四题 题目：双击窗体。 ：求3+6+9+12+15+18+.+300的和，并将结果输出在窗体上。将结果存入变量SUM中。 代码：Dim i As Inte

22、ger For i = 1 To 500 If i Mod 3 = 0 Then Sum = Sum + i End If Next Print Sum 第四十五题 题目：单击窗体。 ：求10!的值，并将结果输出在窗体上。将结果存入变量SUM中。 代码：Dim i As Integer Sum = 1 For i = 1 To 10 Sum = Sum * i Next Print Sum 第四十六题 题目：单击窗体。 ：求数列1+3+3+9+27+前6项的和，并将结果输出在窗体上。将结果存入变量SUM中。 代码：Dim i As Integer Dim j(1 To 6) As Integer For i = 1 To 6 If i 3 Then j(i) = 3 (i - 1) Else j(i) = j(i - 1) * (i - 2) End If Sum = Sum + j(i) Next Print Sum