VB题库—程序设计

1、程序设计第1题程序设计（5分）（题号：148）'题目：（事件）单击窗体。'（ 响应）求1020之间所有素数的乘积并输出在窗体上。'将结果存入变量L中。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerDim j As In tegerDim b As Boolea nl = 1b = FalseFor i = 10 To 20Forj = 2 To i-2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False The nl = l * iEnd Ifb = FalseNextPrint Str（

2、l）第2题程序设计（5分）（题号:150）'题目：（事件）单击窗体。的值。'（ 响应）求 1-1/2 + 1/3 - 1/4 + 1/99 -1/100'将结果存入变量J中。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerFor i = 1 To 100If i Mod 2 = 1 The nj = j + 1 / iElseIf i Mod 2 = 0 The n j = j - 1 / iEnd IfNextPrint j 1第3题程序设计（5分）（题号:131）【程序设计】'题目：(事件)单击窗体。'( 响应)已知

3、 S=1 + 1/4+1/9+1/16+1/25+ 1/100 ,'结果输出在窗体上。'将结果存入变量S中答案：Dim i As In tegers = 0Fori = 1 To 10s = s + 1 / (i A i)NextPrin t (s)第4题程序设计（5分）（题号:152）'【程序设计】'题目：（事件）双击窗体。'（ 响应）求1+2+3+5+8+13+前20项的和，并将结'果在窗体上输出。将结果存入变量SUM中。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerDim j（1 To 20） As In

4、 tegerFor i = 1 To 20If i < 3 Thenj(i) = iElsej(i) = j(i - 1) + j(i - 2)End Ifsum = sum + j(i)NextPrint sum第5题程序设计（5分）（题号：157）'【程序设计】'题目：（事件）单击窗体。'（ 响应）求10!的值，并将结果输出到窗体上。'将结果存入变量 SUM中。'注意：请在指定的事件内编写代码。答案：Dim i As In tegersum = 1Fori = 1 To 10 sum = sum * iNextPrint sum第6题程序设计（

5、5分）（题号:489）'题目：（事件）单击窗体。'（ 响应）已知 sum=1-1/3!+1/5!-1/7!+1/9!,'请将sum结果值输出到窗体上。'使用do while.loop语句完成程序'注意：请在指定的事件内编写代码。答案：Dim i As In tegerDim n As In tegeri = 1p = 1Do While i <= 10p = p * iIf i Mod 2 = 1 The nn = n + 1sum = sum + （-1） A （n - 1） / pEnd Ifi = i + 1LoopPrint sum第7题程

6、序设计（5分）（题号:154）'【程序设计】'题目：（事件）单击窗体。'（ 响应）求100以内偶数的和，并将结果输出在窗体上。'将结果存入变量 SUM中'注意：请在指定的事件内编写代码。答案：Dim i As In tegerFor i = 1 To 100If i Mod 2 = 0 The nsum = sum + iEnd IfNextPrint sum 1第8题程序设计（5分）（题号:134）【程序设计】题目：（事件）双击窗体。（响应）s=20+21+22+263，求s的值，并将结果存储到变量S中。注意：请在指定的事件内编写代码。答案：Dim i

7、 As In tegeri = 20While i <= 263s = s + ii = i + 1WendPrin t (CStr(s)第9题程序设计（5分）（题号:142）'【程序设计】'题目：（事件）单击窗体。'（响应）编写程序求 10X 11 X 12+11X 12 X 13+15X 16 X 17的结果,'并将结果输出到窗体上。'将结果存入变量M中'注意：请在指定的事件内编写代码。答案：Dim i, j As In tegerDim s As LongFor i = 10 To 15s = 1For j = i To i + 2s

8、 = s * jNextm = m + sNextPrin t （CStr（m）第1题程序设计（5分）（题号：149）'【程序设计】'题目：（事件）单击窗体。'（ 响应）求1!+2!+3!+10!的值，并在窗体上输出。'结果存入变量L中。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerDim s As LongDim j As In tegers = 1Fori = 1 To 10 s = s * i l = l + sNextPrint Str(l)第2题程序设计（5分）（题号：146）'【程序设计】'题目：（

9、事件）单击窗体。'（ 响应）求50以内所有偶数的和，并在窗体上输出出来。'将结果存入变量S中。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerFor i = 2 To 50If （i Mod 2） = 0 The ns = s + iEnd IfNextPrin t (CStr(s)第3题程序设计（5分）（题号:140） '【程序设计】'题目：（事件）双击窗体。'（响应）编写代码功能如（图1）。'将结果存入变量S中'注意：请在指定的事件内编写代码。答案：Dim i As In tegers = 1Fori

10、 = 1 To 10 s = s * i * iNextPrin t (CStr(s)第4题程序设计（5分）（题号:484）'【程序设计】'题目：（事件）单击窗体。'（ 响应）求从100到1000之间所有是3的倍数的数之'和，当和大于3000时，停止计算并输出和。请将结果输 出到窗体上，并存入所给变量SUM中。使用for.next 语'句完成程序'注意：请在指定的事件内编写代码。答案：Dim i As In tegersum=0for i=100 to 1000if i mod 3=0 the nsum=sum+iif sum>3000 t

11、hen exit foren difen difi=i+1n extPrint sum第5题程序设计（5分）（题号：156）'【程序设计】'题目：（事件）双击窗体。'（ 响应）求3+6+9+12+15+18+300的和，并将结'果输出到窗体上。将结果存入变量SUM中。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerFor i = 3 To 300If i Mod 3 = 0 The n sum = sum + iEnd IfNextPrint sum第6题程序设计（5分）（题号:412）'【程序设计】'题目：（事

12、件）单击窗体。'（ 响应）输出所有的三位数，它满足该数中有某两位'为相同的数，且该数是一个完全平方数。SUM中。'求出所有这些数的和，并将结果存入变量'注意：请在指定的事件内编写代码。答案：dim a as in teger,b as in tegerdim b3 as in teger,b2 as in teger,b1 as in tegerfor a=10 to 31b=a*ab3=b100b2=（b10） mod 10b1=b mod 10if b仁 b2 or b仁b3 or b2=b3 then? a,bsum=sum+bend ifn ext as

13、um第7题程序设计（5分）（题号:487）'【程序设计】'题目：（事件）单击窗体。'（ 响应）已知 s=1 + 1/3!+1/5!+1/7!+1/9!, 请将 s 结果值'输出到窗体上。使用do while.loop语句完成程序'注意：请在指定的事件内编写代码。答案：Dim i As In tegeri = 1p = 1Do While i <= 9p = p * iIf i Mod 2 = 1 The ns = s + 1 / pEnd Ifi = i + 1LoopPrint ssum=s第8题程序设计（5分）（题号:496）'【程序设

14、计】'题目：（事件）单击窗体。'（ 响应）求1-100中为5或7的倍数的和。请将结果'输出到窗体上，并存入所给变量SUM中。'使用while.wend语句完成程序'注意：请在指定的事件内编写代码。答案：Dim i As In tegeri = 1While i <= 100If i Mod 5 = 0 Or i Mod 7 = 0 The nSum = Sum + iEnd Ifi = i + 1WendPrint Sum 1第9题程序设计（5分）（题号:500）【程序设计】 题目：（事件）单击窗体。（响应）输出一个如图所示的由数字组成的倒三角形&

15、#39;请将结果存入变量 S中（要求利用msgbox函数'显示结果，使用for.next语句完成程序）'注意：请在指定的事件内编写代码。答案：Dim tmp As Stri ngDim i As In teger, j As In tegertmp =""For i = 10 To 1 Step -1Forj = 0 To i- 1tmp = tmp & CStr（j）Nexttmp = tmp & vbCrLfNextMsgBox tmps = tmp第1题程序设计（1分）（题号:478）'【程序设计】'题目：编写函数fun

16、，其功能是：能计算从1开始到n的'自然数中偶数的平方的和。注意：请在指定的函数过程内编写代码。答案：Dim sum As In teger, i As In teger sum = 0For i = 2 To n Step 2sum = sum + i * iNextfun = sum第2题程序设计（1分）（题号:465）'【程序设计】'题目：判断一个数是否是素数。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerPrime = TrueFor i = 2 To In t（Sqr（m）If m Mod i = 0 Then Prime =

17、 False: Exit ForNext i第3题程序设计（1分）（题号:473）'【程序设计】'题目：将一张面值为 100元的人民币等值换成100张5元、'1 元和0.5元的零钞，要求每种零钞不少于1张，OUT中。'问有哪几种组合？将组合数存入变量'注意：请在指定的事件内编写代码。答案：Dim n As In tegerDim i%, j%, k%Prin t "5?1?0.5?"For i = 1 To 20For j = 1 To 100 - ik= 100 - i-jIf 5# * i + 1# * j + 0.5 * k =

18、 100 The n Print i, j, k n = n + 1End IfNext jNext iout = n第4题程序设计（1分）（题号:469）'【程序设计】'题目：用迭代法求某个数的平方根。已知求平方根的迭代公式如图：'算法思想：对于一个问题的求解x，可由给定的一个初值 x0，根据某一' 迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x;' 再以新值作为初值，即：x1 Tx0,重新按原来的方法求 x1,重复这一过和' 直到|X1-X0|<£ （某一给定的精度）。此时可将x1作为问题的解。'注

19、意：请在指定的事件内编写代码。答案：Dim x0 As Si ngle, x1 As Si nglex0 = a / 2'迭代初值x1 = 0.5 * （x0 + a / x0）Dox0 = x1 '为下一次迭代作准备x1 = 0.5 * （x0 + a / x0）Loop While Abs（x1 - x0） > 0.00001Fsqrt = x1第5题程序设计（1分）（题号:472）'【程序设计】'题目：统计字符串中的单词个数。'算法思路：'（1）从文本（字符串）的左边开始，取出一个字符；'设逻辑量 WT表示所取字符是否是单词内

20、的字符，初值设为False'（2）若所取字符不是"空格”，”逗号”，”分号"或”感叹号”等单词'的分隔符，再判断 WT是否为True，若WT不为True则表是新单词的开始,'让单词数 Nw=Nw+1 让 WT=True;'(3)若所取字符是"空格”，”逗号”，”分号"或"感叹号”等单词的分隔符,'则表示字符不是单词内字符，让WT=False;'(4)再依次取下一个字符，重得(2)(3)直到文本结束。'注意：请在指定的事件内编写代码。答案：Dim nw As In teger, nL As

21、In tegerDim i As In tegerDim strT As Stri ngDim Wt As Boolea nnw = 0: Wt = FalsenL = Len (RTrim(strl)For i = 1 To nLstrT = Mid$(strl, i, 1)'取第 i 个字符Select Case strTCase " ", ",", ”;”, ”!"Wt = FalseCase ElseIf Not Wt The nnw = nw + 1Wt = TrueEnd IfEnd SelectNext iCoun tWo

22、rd = nw1第6题程序设计（1分）（题号:481）【程序设计】题目：编写函数fun其功能是：根据整型形参 m, 计算如下公式的值：y=1+ 1/3 + 1/5 + 1/7 + . + 1/（2m+1）例如：若 m=9则应输出：2.133255注意：请在指定的事件内编写代码。答案：Dim y As DoubleDim i As In tegery = 1For i = 1 To my = y + 1 / (2 * i + 1)Nextfun = y1第7题程序设计（1分）（题号:479）【程序设计】题目：编写函数fun其功能是：根据整型形参 m,计算'如下公式的值：y=1/2 + 1

23、/4 + 1/6 + . + 1/2m'例如：若 m=9 则应输出：'注意：请在指定的函数过程内编写代码。答案：Dim y As DoubleDim i As In tegerFor i = 1 To my = y + 1 / (2 * i)Nextfun = y第8题程序设计（1分）（题号:470）'【程序设计】'题目：将一个十进制整数m转换成 tr（2 16）进制字符串。'方法：将m不断除r取余数，直到商为零，以反序得到结果。'下面写出一转换函数，参数idec为十进制数，ibase为要转'换成数的基（如二进制的基是2,八进制的基是8等

24、），'函数输出结果是字符串？'注意：请在指定的事件内编写代码。答案：Dim strDecR$, iDecR%strDecR =""Do While idec <> 0iDecR = idec Mod ibaseIf iDecR >= 10 The nstrDecR = Chr$（65 + iDecR - 10） & strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec ibaseLoopTrDec = strDecR1第9题程序设计（1分）（题号:471）【程序设计】题目

25、：对字符串进行加密处理。加密过程：将每个字母C加一序数K= 5,即c=chr(Asc(c)-5), 这时"Z" t "U" ,"z" t"u" , "Y" t "T"'当加序数后的字母小于 ”A”或"a"则c=Chr(Asc(c)-k +26)'注意：请在指定的事件内编写代码。答案：Dim i As In tegerDim strp As Stri ng, strT As Stri ng, iA As Stri ngDim nl As St

26、ri ngi = 1: strp =""nl = Le n(RTrim(strl)Do While (i <= nl)strT = Mid$(strI, i, 1)'取第 i 个字符If (strT >= "A" A nd strT <= "Z") The niA = Asc(strT) + 5If iA > Asc("Z") The n iA = iA - 26strp = strp + Chr$(iA)ElseIf (strT >= "a" A nd s

27、trT <= "z") The niA = Asc(strT) + 5If iA > Asc("z") The n iA = iA - 26strp = strp + Chr$(iA)Elsestrp = strp + strTEnd Ifi = i + 1LoopEny Str = strp第10题程序设计(1分)(题号:483)'【程序设计】'题目：编写函数fun，函数的功能是：求1到m'之间的偶数之积。'注意：请在指定的函数过程内编写代码。答案：Dim y As Doubley = 1Dim i As I

28、n tegerFor i = 1 To mIf i Mod 2 = 0 The ny = y * iEnd IfNextfun = y1第11题程序设计（1分）（题号:468）【程序设计】'题目：求二维数组中最大元素及其所在的行和列'并将最大值存入变量Max中，将最大值的行位置存入'row中，列位置存入变量column中.'注意：请在指定的事件内编写代码。答案：Dim i As In teger, j As In tegermax = a(1, 1): row = 1: colu mn = 1Fori = 1 To 2Forj = 1 To 3If a(i, j

29、) > a(row, colu mn) Thenmax = a(i, j)row = icolu mn = jEnd IfNext jNext iPrint "最大元素是"maxPrint " 在第 ” & row & ” 行，”;"第” & column & ” 列" 第12题程序设计（1分）（题号:475）'【程序设计】'题目：编写函数fun，函数的功能是：计算n门课程'的平均值，计算结果作为函数值返回。'例如，若有5门课程的成绩是：92，76，69,'58，88

30、，则函数的值为 76.6。'注意：请在指定的事件内编写代码。答案：Dim i As In tegerDim y As Si ngleFor i = 1 To ny = y + a(i)Nextfun = y / n第13题程序设计（1分）（题号:476）'【程序设计】'题目：编写函数fun其功能是：根据整型形参m,'计算如下公式的值：y=1/2! +1/4! + . + 1/m!'（m 是偶数）'注意：请在指定的事件内编写代码。答案：Dim i As In teger, j As In teger, t As In tegerfun = 0For

31、 i = 2 To m Step 2t = 1Forj = 1 To it = t * jNextfun = fun + 1 / tNext第14题程序设计（1分）（题号:474）'【程序设计】'题目：编写函数fun，函数的功能是：计算并输出给定'整数n的所有因子之和（不包括1与自身）。规定'n的值不大于1000?'例如：n的值为855时，应输出704。'注意：请在指定的事件内编写代码。答案：Dim s, i As In tegerFor i = 2 To n - 1If n Mod i = 0 The ns = s + iEnd IfNextF

32、un = s第15题程序设计（1分）（题号:464）'【程序设计】'题目：求两个数 m,n的最大公约数p和最小公倍数q'注意：请在指定的事件内编写代码。答案：nm = n * mIf m < n The n t = m: m = n: n = tr = m Mod nDo While (r <> 0)r = m Mod nLoopp = nq = nm / n1第16题程序设计（1分）（题号:467）'【程序设计】'题目：应用冒泡法对数组A按升序排列'基本思想：(将相邻两个数比较，小的调到前头 )'1 )有n个数(存放在

33、数组a(n)中)，第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已”沉底”，放在最后一个位置，小数上升”浮起”；'2)第二趟对余下的n-1个数(最大的数已”沉底”)按上法比较，经n-2次两两相邻比较后得次大的数；'3)依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。答案：Dim i, j, temp As In tegerFor i = 1 To n - 1For j = 1 To n - iIf a(j) > a(j + 1) Thentemp = a(j): a(j) = a(j + 1): a(j + 1) = te

34、mpEnd IfNext jNext i第17题程序设计(1分)(题号:477)'【程序设计】'题目：编写函数fun其功能是：判断一个整数 w的各位'数字平方之和能否被 5整除，可以被5整除则返'回1 ,否则返回0'注意：请在指定的事件内编写代码。答案：Dim k As In teger, s As In tegerDos = s + (w Mod 10) * (w Mod 10)w = In t(w / 10)Loop While w <> 0If s Mod 5 = 0 The nk = 1Elsek = 0 End If fun = k

35、第18题程序设计(1分)(题号:466)'【程序设计】'题目：应用选择法对数组 A按升序排列'基本思想：'1)对有n个数的序列(存放在数组 a(n)中)，从中选出最小的数，与第1个数交换2)除第1个数外，其余n-1个数中选最小的数，与第2个数交换位置;'3)依次类推，选择了n-1次后，这个数列已按升序排列。'注意：请在指定的事件内编写代码。答案：Dim i, j, imin, temp As IntegerFor i = 1 To n - 1imin = iFor j = i + 1 To nIf a(im in) > a(j) Then

36、imin = jNext jtemp = a(i)a(i) = a(imi n)a(im in) = tempNext i第19题程序设计(1分)(题号:480)'【程序设计】'题目：编写函数fun其功能是：根据整型形参m,'计算如下公式的值：'y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5)'例如：若 m=9则应输出：1.168229'要求：函数中用到的中间变量必须声明为Single类型。'注意：请在指定的函数过程内编写代码。答案：Dim y As DoubleDim i As In tegerFor i = 0

37、To my = y + 1 / (i + 5)NextFun = y1第20题程序设计(1分)(题号:482) 【程序设计】题目：编写函数fun，函数的功能是：求一个 四位数的各位数字的立方和注意：请在指定的事件内编写代码。答案：Dim d As In teger, k As In teger, s As In tegerWhile n > 0d = n Mod 10s = s + d * d * dn = n / 10Wendfun = s第1题程序设计（5分）（题号:130）'【程序设计】'题目：（事件）单击窗体。'（响应）求200300之间既能被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第2题程序设计（5分）（题号:129）'【程序设计】'题目：（事件）单击窗体。