计算机二级考试VB一般程序设计习题

一般程序设计习题'〖第1题〗：(事件)单击窗体。

' (响应)求100以内偶数的和，并将结果输出在窗体上。

' 将结果存入变量SUM中'答案：Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum'〖第2题〗：(事件)双击窗体。

' (响应)求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))'〖第3题〗：(事件)单击窗体。

' (响应)求1+2+3+……+100的值，并把结果输出在窗体上。

' 结果存入变量SUM中。

'答案：Dim i As IntegerFor i = 1 To 100sum = sum + iNextPrint sum'〖第4题〗：判断一个数是否是素数。

'答案：Dim i As IntegerPrime = TrueFor i = 2 To Int(Sqr(m))If m Mod i = 0 Then Prime = False: Exit ForNext i'〖第5题〗：(事件)单击窗体。

' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。

' 将结果存入变量J中。

Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j''〖第6题〗：(事件)单击窗体。

' (响应)求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'〖第7题〗：(事件)单击窗体。

' (响应)求数列1+3+3+9+27+……前6项的和，并将' 结果输出到窗体上。

将结果存入变量SUM中。

'答案：Dim i As IntegerDim j(1 To 6) As IntegerFor i = 1 To 6If i < 3 Thenj(i) = 3 ^ (i - 1)Elsej(i) = j(i - 1) * j(i - 2)End Ifsum = sum + j(i)NextPrint sum'〖第8题〗：(事件)单击窗体。

' (响应)求10!的值，并将结果输出到窗体上。

' 将结果存入变量SUM中。

'答案：Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum'〖第9题〗：(事件)双击窗体。

' (响应)求出100~200之间，能被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'〖第10题〗：(事件)双击窗体。

' (响应)把一元钞票换成一分、二分和五分的硬币' （每种至少有一枚），求出其所有的换法，' 把结果输出在窗体上。

' 将所有的换法的数目存入变量N中答案：Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext'〖第11题〗：求两个数m,n的最大公约数p和最小公倍数q '答案：nm = n * mIf m < n Then t = m: m = n: n = tr = m Mod nDo While (r <> 0)m = nn = rr = m Mod nLoopp = nq = nm / n'〖第12题〗：(事件)双击窗体。

' (响应)s=20+21+22+…+263，求s的值，并将结果' 存储到变量S中。

答案：Dim i As Integeri = 20While i <= 263s = s + ii = i + 1WendPrint (CStr(s))'〖第13题〗：(事件)双击窗体。

' (响应)求3+6+9+12+15+18+……+300的和，并将结' 果输出到窗体上。

将结果存入变量SUM中。

'答案：Dim i As IntegerFor i = 3 To 300If i Mod 3 = 0 Thensum = sum + iEnd IfNextPrint 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 IntegerFor i = 1 To 500If i Mod 5 = 0 Thensum = sum + iEnd IfNextPrint sum'〖第16题〗：(事件)单击窗体。

' (响应)编写程序求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))'〖第17题〗：(事件)双击窗体。

' (响应)求出50以内所有奇数的和。

' 将结果存入变量SUM中答案：Dim i As IntegerFor i = 1 To 50If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum'〖第18题〗：用迭代法求某个数的平方根。

已知求平方根的迭代公式如图：'算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一' 迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；' 再以新值作为初值，即：x1→x0,重新按原来的方法求x1,重复这一过和' 直到|x1-x0|<_(某一给定的精度)。

此时可将x1作为问题的解。

'答案：Dim x0 As Single, x1 As Singlex0 = a / 2 '迭代初值x1 = 0.5 * (x0 + a / x0)Dox0 = x1 '为下一次迭代作准备x1 = 0.5 * (x0 + a / x0)Loop While Abs(x1 - x0) > 0.00001Fsqrt = x1'〖第19题〗：(事件)单击窗体。

' (响应)求10~20之间所有素数的乘积并输出在窗体上。

' 将结果存入变量L中。

答案：Dim 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)〖第20题〗：编写函数fun其功能是:能计算从1开始到n的' 自然数中偶数的平方的和，n由键盘输入，' (n是偶数)'答案：Dim sum As Integer, i As Integersum = 0For i = 2 To n Step 2sum = sum + i * iNextfun = sum'〖第21题〗：(事件)单击窗体。

' (响应)求出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'〖第22题〗：(事件)双击窗体。

' (响应)求100以内奇数的和，并将结果输出在窗体上。

' 将结果存入变量SUM中答案：Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum〖第23题〗：(事件)单击窗体。