《2022年2022年计算机二级考试VB一般程序设计习题 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年计算机二级考试VB一般程序设计习题 .pdf（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
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+123 10， 并将结果存到变量S中答案： Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k *
2、 j Next s = s + k k = 1 Next Print (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 第
3、5题：(事件 )单击窗体。 (响应 )求 1 - 1/2 + 1/3 - 1/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 Integer For i = 201 T
4、o 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End If Next Print sum 第 7题：(事件 )单击窗体。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 7 页 - - - - - - - - - (响应 )求数列 1+3+3+9+27+ 前 6 项的和，并将 结果输出到窗体上。将结果存入变量SUM 中。答案：Dim i As Integer Dim
5、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!的值，并将结果输出到窗体上。 将结果存入变量SUM 中。答案：Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 第 9题：(事件 )双击窗体。 (响应 )求出 100200 之间，能被5
6、 整除，但不能被3 整除的数。并求所有数之和，存入变量中 SUM 中。答案： Dim i As Integer For i = 100 To 200 If (i Mod 5) = 0) And (i Mod 3) 0) Then Print (CStr(i) sum = sum + i End If Next 第 10题 ：(事件 )双击窗体。 (响应 )把一元钞票换成一分、二分和五分的硬币 （每种至少有一枚） ，求出其所有的换法， 把结果输出在窗体上。 将所有的换法的数目存入变量N 中答案： Dim i, j, k As Integer For i = 1 To 100 For j = 1
7、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 Next Next 第 11题 ：求两个数m,n的最大公约数p 和最小公倍数q 答案： nm = n * m If m n Then t = m: m = 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题 ：(事件 )双击窗体
8、。 (响应 )s=20+21+22+ +263，求 s 的值，并将结果名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 7 页 - - - - - - - - - 存储到变量S中。答案： Dim i As Integer i = 20 While i = 263 s = s + i i = i + 1 Wend Print (CStr(s) 第 13题 ：(事件 )双击窗体。 (响应 )求 3+6+9+12+15+18+ +300 的和，并将结 果输出到窗体上。将结果存入变
9、量SUM 中。答案：Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum 第 14题 ：(事件 )双击窗体。 (响应 )编写代码功能如 (图 1)。 将结果存入变量S中 答案： Dim i As Integer s = 1 For i = 1 To 10 s = s * i * i Next Print (CStr(s) 第 15题 ：(事件 )双击窗体。 (响应 )求 1+5+10+15+ +500 的和，并将结果输 出到窗体上。将结果存入变量SUM 中。答案：Dim
10、 i As Integer For i = 1 To 500 If i Mod 5 = 0 Then sum = sum + i End If Next Print sum 第 16题 ：(事件 )单击窗体。 (响应 )编写程序求101112+111213+151617 的结果， 并将结果输出到窗体上。 将结果存入变量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 = m + s Next Print (CStr(m) 第 17题 ：(事件 )
11、双击窗体。 (响应 )求出 50 以内所有奇数的和。 将结果存入变量SUM 中答案：Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第 18题 ：用迭代法求某个数的平方根。已知求平方根的迭代公式如图：算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一 迭代公式得到一个新的值x1，这个新值x1 比初值 x0 更接近要求的值x；名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 -
12、 - - - - - - 第 3 页，共 7 页 - - - - - - - - - 再以新值作为初值，即：x1 x0,重新按原来的方法求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 = T
13、rue End If Next If b = False Then l = l * i End If b = False Next Print Str(l) 第 20题 ：编写函数fun 其功能是 :能计算从 1 开始到 n 的 自然数中偶数的平方的和，n 由键盘输入， (n 是偶数 ) 答案：Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum 第 21题 ：(事件 )单击窗体。 (响应 )求出 1000-9999 之间具有如下特点的四位数字， 它的平方根
14、 恰好就是它中间的两位数字，例如，2500 开 平方为 50，恰为 2500 的中间两位，找出所有 这样的四位数。 并求出所有这样的数的和存入SUM 中答案：Dim i As Integer Dim j As Integer For i = 1000 To 9999 j = Val(Mid(Trim(Str(i), 2, 2) If j 2 = i Then Print i, sum = sum + i End If Next 第 22题 ：(事件 )双击窗体。 (响应 )求 100 以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM 中答案：Dim i As Integer For
15、i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 7 页 - - - - - - - - - Print sum 第 23题 ：(事件 )单击窗体。 (响应 )在窗体上打印数列2/1,3/2,5/3,8/5,13/8 的前 10 项，并求其和。答案： Dim i, j, k, m As Integer s = 0 i = 2 j = 1 For k = 1
16、To 10 m = j Print (CStr(i) & / & CStr(j) j = i i = i + m s = s + i / j Next 第 24题 ：(事件 )双击窗体。 (响应 )写程序解决百钱买百鸡问题：公鸡3 元 1 只， 母鸡 5 元 1 只，小鸡一元3 只，怎样用100 元买 100 只鸡。把结果输出到窗体上。 将答案数存放在变量N 中答案：Dim i, j, k As Integer For i = 1 To 20 母鸡For j = 1 To 33 公鸡For k = 3 To 100 小鸡If (k Mod 3) = 0) And (i * 5 + j * 3
17、+ k / 3) = 100) And (i + j + k) = 100) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1 End If Next Next Next 第 25 题 ：(事件 )单击窗体。 (响应 )一球从 100 米高度自由落下，每次落地返回 原高度的一半，求第10 次落地时，共经过多 少米？并将结果在窗体上输出。答案： Dim j, i As Integer s = 0 j = 100 For i = 2 To 10 j = j / 2 s = s + 2 * j Next s = 100 + s P
18、rint (CStr(s) 第 26题 ：(事件 )单击窗体。 (响应 )在窗体上输出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 第 27题 ：(事件 )单击窗体。 (响应 )求 50 以内所有偶数的和，并在窗体上输出出来。 将结果存入变量S中。名师资料总结 - - -精品资料
19、欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 7 页 - - - - - - - - - 答案： Dim i As Integer For i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End If Next Print (CStr(s) 第 28题 ：(事件 )单击窗体。 (响应 )已知 S=1+1/4+1/9+1/16+1/25+ +1/100， 结果输出在窗体上。答案： Dim i As Integer s = 0 For i = 1 To 10 s =
20、 s + 1 / (i i) Next Print (s) 第 29 题 ：(事件 )单击窗体。 (响应 )编写代码功能如 (图 1)。 将结果存入变量S中答案： Dim i As Integer For i = 1 To 10 s = s + i * i Next Print (CStr(s) 第 30题 ：(事件 )单击窗体。 (响应 )求 1!+2!+3!+ +10!的值，并在窗体上输出。 结果存入变量L 中。答案： Dim i As Integer Dim s As Long Dim j As Integer s = 1 For i = 1 To 10 s = s * i l = l
21、+ s Next Print Str(l) 第 31题 ：将一张面值为100元的人民币等值换成100 张 5 元、 1 元和 0.5 元的零钞，要求每种零钞不少于1 张， 问有哪几种组合？将组合数存入变量OUT 中。答案： Dim n As Integer Dim i%, j%, k% Print 5? 1? 0.5? For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next j Next i o
22、ut = n 第 32题 ：(事件 )双击窗体。 (响应 )求 1!+2!+3!+4!+5!并将结果输出到窗体上。 结果存入变量S中答案： Dim i, j, k, s As Integer For i = 1 To 5 k = 1 For j = 1 To i k = k * j Next s = s + k Next 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 7 页 - - - - - - - - - Print (CStr(s) 第 33题 ： (事件 )单击
23、窗体。 (响应 )求出 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 Print sum - 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -