《计算机二级考试VB一般程序设计习题.》由会员分享，可在线阅读，更多相关《计算机二级考试VB一般程序设计习题.（7页珍藏版）》请在金锄头文库上搜索。
1、一般程序设计习题第1题：(事件)单击窗体。 (响应)求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第2题：(事件)双击窗体。 (响应)求s=1+12+123+12310， 并将结果存到变量S中答案：Dim i, j As IntegerDim k As Longk = 1s = 0For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k
2、k = 1NextPrint (CStr(s)第3题：(事件)单击窗体。 (响应)求1+2+3+100的值，并把结果输出在窗体上。 结果存入变量SUM中。答案：Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum第4题：判断一个数是否是素数。答案：Dim i As Integer Prime = True For i = 2 To Int(Sqr(m) If m Mod i = 0 Then Prime = False: Exit For Next i第5题：(事件)单击窗体。 (响应)求1 - 1/2 + 1/3 - 1
3、/4 + + 1/99 - 1/100的值。 将结果存入变量J中。Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j第6题：(事件)单击窗体。 (响应)求200300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中答案：Dim i As IntegerFor i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Pri
4、nt (CStr(i) sum = sum + i End IfNextPrint sum第7题：(事件)单击窗体。 (响应)求数列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) * j(i - 2) End If sum = sum + j(i) Next Print sum第8题：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗
5、体上。 将结果存入变量SUM中。答案： Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum第9题：(事件)双击窗体。 (响应)求出100200之间，能被5整除，但不能被3 整除的数。并求所有数之和，存入变量中 SUM中。答案：Dim i As IntegerFor i = 100 To 200 If (i Mod 5) = 0) And (i Mod 3) 0) Then Print (CStr(i) sum = sum + i End IfNext第10题：(事件)双击窗体。 (响应)把一元钞票换成一分、
6、二分和五分的硬币 （每种至少有一枚），求出其所有的换法， 把结果输出在窗体上。 将所有的换法的数目存入变量N中答案：Dim i, j, k As IntegerFor i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If (i + 2 * j + k * 5) = 100) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1 End If Next NextNext第11题：求两个数m,n的最大公约数p和最小公倍数q答案：nm = n * m If m n Then t = m: m
7、= n: n = t r = m Mod n Do While (r 0) m = n n = r r = m Mod n Loop p = n q = nm / n第12题：(事件)双击窗体。 (响应)s=20+21+22+263，求s的值，并将结果 存储到变量S中。答案：Dim i As Integeri = 20While i = 263 s = s + i i = i + 1WendPrint (CStr(s)第13题：(事件)双击窗体。 (响应)求3+6+9+12+15+18+300的和，并将结 果输出到窗体上。将结果存入变量 SUM中。答案： Dim i As Integer Fo
8、r i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum第14题：(事件)双击窗体。 (响应)编写代码功能如(图1)。 将结果存入变量S中答案：Dim i As Integers = 1For i = 1 To 10s = s * i * iNextPrint (CStr(s)第15题：(事件)双击窗体。 (响应)求1+5+10+15+500的和，并将结果输 出到窗体上。将结果存入变量SUM中。答案： Dim i As Integer For i = 1 To 500 If i Mod 5 = 0 Then s
9、um = sum + i End If Next Print sum第16题：(事件)单击窗体。 (响应)编写程序求101112+111213+151617的结果， 并将结果输出到窗体上。 将结果存入变量M中答案：Dim i, j As IntegerDim s As LongFor i = 10 To 15 s = 1 For j = i To i + 2 s = s * j Next m = m + sNextPrint (CStr(m)第17题：(事件)双击窗体。 (响应)求出50以内所有奇数的和。 将结果存入变量SUM中答案： Dim i As Integer For i = 1 To
10、 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum第18题：用迭代法求某个数的平方根。 已知求平方根的迭代公式如图：算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一 迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x； 再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和 直到|x1-x0| 0.00001 Fsqrt = x1第19题：(事件)单击窗体。 (响应)求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)第20题：编写函数fun其功能是:
