等级考试复习指导.docx

《等级考试复习指导.docx》由会员分享，可在线阅读，更多相关《等级考试复习指导.docx（74页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第一部分VB程序设计语言复习提纲说明：本复习提纲是根据等级考试大纲和VB程序设计课程教学大纲而拟定的，建议学生按 提纲提供的知识要点，回顾这些内容是否掌握，再阅读教材相关部分内容，要注重知识的理解 与应用。当然学生可根据自己的学习情况和学习习惯，选择适用自己的学习方法。VB 语内 容-AVB的基 本概念对象、属性、方法、事件、事件过程工 程工程的组成（工程文件、窗体文件、模块文件、类模块文件）VB程序的运行机制VB集成开发环境（三种运行模式、各种窗口的特点）基本数 据类型关键字类型符占字节数前缀大小范围字节Byte无1B0-255逻辑类型Boolean无2FTrue 或 False （-1 或

2、 0）整型Integer%2*1-32, 76832, 767长整型Long&4L-2, 147, 483, 6482, 147, 483, 647单精度实数SingleI 4S+38+38双精度实数Double#8Dbl13486E+308+308字符型String$与串长有关Str065535个字符日期类型Date无8Dt1/1/10012/31/9999对象类型Object无4Obj任何对象变体内型Variant无Vnt上述有效范围之一运算符算术运算符+ （加）、-（减）、* （乘）、/ （除）、八（幕方）、 （整除）、Mod （求余）关系运算符小于、=小于或等于、大于、=大于或等于、=

3、等于、不等于逻辑运算符NOT （逻辑非，单目运算符）、AND （逻辑与）、OR （逻辑或）字符串运算符+ （连接运算），& （连接运算），注意两者的区别。表达式算术表达式（要注意正确书写VB表达式）关系表达式，逻辑表达式，字符串表达式，VB 语语句赋值语句ZZ定义常数/变量Const / Dim, Static, Public, Private分支语句IfElseEnd IfSelect Case.End SelectEnd IfNext jNext iPrint ”最大元素是”;MaxPrint ”在第八 & row & ”行J; “第” & Column & ”列“九、迭代法算法思想：对于

4、一个问题的求解X,可由给定的一个初值xO,根据某一迭代公式得到一 个新的值X1,这个新值xl比初值xO更接近要求的值x；再以新值作为初值，即：xl - xO,重新 按原来的方法求xl,重复这一过和直到|xl-xO| e (某一给定的精度)。此时可将xl作为问题的解。例：用迭代法求某个数的平方根。已知求平方根的迭代公式为：=-(x0+)2%Private Function Fsqrt( a As single ) AS singleDim xO As Single, xl As SinglexO =a/2，迭代初值DoxO = xl，为下一次迭代作准备Fsqrt=x 1End Function十

5、、数制转换将一个十进制整数勿转换成一r(2 16)进制字符串。方法：将勿不断除r取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数 idee为十进制数，ibase为要转换成数的基(如二进制的基是2,八进制的基是8等)，函数输出 结果是字符串。Private Function TrDec(idec As Integer, ibase As Integer) As StringDim strDecR$, iDecR%strDecR 廿Do While idee 0iDecR 二 idee Mod ibaseIf iDecR= 1() ThenstrDecR = Chr$(65 + iDe

6、cR - 10) & strDecRElsestrDecR = iDecR & strDecREnd Ifidee = idee ibaseLoopTrDec = strDecREnd FunctionH一、字符串的一般处理1.简单加密和解密加密的思想是：将每个字母C加(或减)一序数K,即用它后的第K个字母代替，变换式公式：c=chr(Asc(c)+k)例如序数k为5,这时F, 一 丫，一 当加序数后的字母超过或”z”则 c=Chr(Asc(c)+k -26)例如：You are good Dtzfwj Itti 解密为加密的逆过程将每个字母C减(或加)一序数K,即c=chr(Asc(c)-k

7、),例如序数k为5,这时 ZU,，“一J丫一T1当加序数后的字母小于”A“或”a 则 c=Chr(Asc(c)-k +26)下段程序是加密处理：i = 1: strp = nnnL 二 Len(RTrim(strI)Do While (i = nL)strT = Mid$(strl, i, 1) ，取第 i 个字符If (strT A” And strT Asc(nZn) Then iA = iA - 26strp = strp + Chr$(iA)Elself (strT = And strT v= z”)TheniA 二 Asc(strT) + 5IfiA Asc(nzn) Then iA

8、 = iA - 26strp = strp + Chr$(iA)Elsestrp 二 strp + strTEnd Ifi = i + 1LoopPrint strp十二、穷举法穷举法(又称“枚举法”)的基本思想是：一一列举各种可能的情况，并判断哪 一种可能是符合要求的解，这是一种“在没有其它办法的情况的方法”，是一种最笨的方法，然 而对一些无法用解析法求解的问题往往能奏效，通常采用循环来处理穷举问题。例：将一张面值为10。元的人民币等值换成10。张5元、1元和元的零钞，要求每种零钞 不少于1张，问有哪几种组合？Dimi%,j%, k%Print ”5元1元元”For i = 1 To 20F

9、orj = 1 To 100-ik = 100-i-jPrint i, j, kEnd IfNext jNext i十三、递归算法用自身的结构来描述自身，称递归VB允许在一个Sub子过程和Function过程的定义内部调用自己，即递归Sub子过程和递 归Function函数。递归处理一般用栈来实现，每调用一次自身，把当前参数压栈，直到递归结 束条件；然后从栈中弹出当前参数，直到栈空。递归条件：(1)递归结束条件及结束时的值；(2)能用递归形式表示，且递归向终止条件 发展。例：编fac(厂加的递归函数Function fac(n As Integer) As IntegerIf n = 1 Th

10、en fac = 1Elsefac = n * fac(n - 1)End IfEnd Function第三部分习题汇编VB程序填空题1 .下列程序利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数 为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？Private Sub Commandl_Click()Dim m%, n%, x%, y%m二InputBox(输工总头数”)re: n = InputBox(输入总脚数”)If (1) ThenMsgBox (脚数为奇数,重新输入”)GoTo reEnd IfIf (2) ThenMsgBox (脚数小于头数的倍数,重新

11、输入”)GoTo reEnd Ify 二 (3) x = m - yPrint ”当总头数为:”;m; ”总脚数为:“；nPrint鸡有：“；x;“只 兔有：“；y;“只“End Sub2 .下列程序是打印出100个-300到300之间(包括-300和300)不同的随机整数，找出最 小者，并显示最小者的下标和数值。Private Sub Form_Click()Dim a(0 To 9) As Integer, r!, z%, j%, min%, k%For j = 0 To 9Inp:r = Rnda(j)= 1)k = 0Do While k = j - 1If a(j) = a(k) T

12、hen (2) k = k + 1LoopPrint a(j);Next jPrint (3) For j = 0 To 9If a(j) = a(m) Then (2) Next jt = a(i): a(i) = a(m): a(m) = tNext iFor i = 1 To NPrint a(i);Next iPrint: Print ”压缩显示”；i 二 1Do While i = Nc 二 1IfiNThenj = i+ 1Do While a(i) = a(j) (3) If j N Then j = j + 1 Else Exit Do LoopIf c = 1 Then Pr

13、int a(i); Else (4) i 二 (5) LoopEnd Sub5 . DTOH子过程是将十进制整数转换成十六进制字符串，参数d为要转换的十进制整数， 参数h为转换结果。Commandl_Click()事件过程用于调用DTOH子过程，将输入到文本框Textl 的十件制整数转换成十六进制字符串，并显示转换结果。例如，Textl中的值为“-171”，转换结 果显示(-171) 10= (-ab) 16oPublic Sub DTOH(ByVal d As Integer, h As String)Dim t As Integer, c As String, r As Integer h

14、”If d 0 Then t = -d Else (1) Do While (2) r = (3) t = t 16Ifr 10 Then h = r & hElseh = (4) & hEnd IfLoopIfdOThenh = n-n&hEnd SubPrivate Sub Commandl_Click()Dim hs As String (5) End Sub6 .下列程序随机产生15个不重复的大写字母，存放在字符数组中。Private Sub Form_Click()Dim s(l To 15) As String * 1, c As String * 1, Found As Bool

15、ean s= (1) n = 2Do While n 0Isl = Len(sl)si = (1) i = (2) Loop End Sub Private Sub Command 1 _Click()Dim ssl As String ssl = Textl (3) Text3 = (4) End Sub8 .下列程序，单击“打开”按钮Command 1,能够通过通用对话框CommonDialogl打开 某个文本文件，将其内容显示在文本框Textl中；单击“保存”按钮Commond2,可以保存编辑 后的文件；单击“查找下一个按钮Commond3,将查找文本文件中定冠词The,找到后以高亮 度

16、显示；单击“结束”按钮Command*将结束程序。Private Sub Command 1 _Click()Textl ”Dim s$Open (1) For Input As #1Do While Not EOF(l)Line Input #1, sTextl 二 (2) Loop (3) End SubPrivate Sub Command2_Click() (4) Close#1End SubPrivate Sub Command3_Click() (5) j=InStr(j + L Textl, HThe ”) Ifj 0 Then (6) (7) j=j + lElseMsgBox

17、 ”找不到”End IfEnd SubPrivate Sub Command4_Click()EndEnd Sub9 .输入文本框中若干字符，统计有多少个元音字母(A,E,IQ,U)、有多少个其它字母、直 到按回车键结束，并显示结果(大小写不区分)。Private Sub Text!_KeyPress(KeyAscii As Integer) Dim c$c = (1 ) Ifn An = c And c = nZn ThenSelect Case (2) Case (3) CountY = CountY + 1Case (4)CountC 二 CountC + 1 End SelectEnd

18、 IfIf (5) ThenPrint ”元音字母有”;CountY; “个“Print ”其它字母有“；CountC; 个End IfEnd Sub10 .下列程序找出被3、5、7除，余数为1的最小的5个正整数。Private Sub Command l_Click()Dim CountN%,n%CountN=0n=lDon=n+lIf (1) ThenPrint nCountN =CountN+lEnd IfLoop (2) End Sub11 .小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一 半多一个；以后每天都吃尚存桃了的半零个，到第7天早上要吃时只剩下个了

19、，问小猴 那天共摘下了多少个桃子。Private Sub Command l_Click()Dim N%,i%,x%x=l 第7天的桃子For i= (1) (2) Next iPrint哄有”;x; “个桃子End Sub12 .下列程序允许用户按回车键将一个组合框cboComputer中没有的项目添加到组合框中。Private Sub cboComputer_KeyPress(KeyAscii Aslnetger)Dim flag As BooleanIf KeyAscii=13 ThenFlag二FalseFor 1=0 To (1) If (2) Then Flag=True Exit

20、 ForEndlfNext iIf (3) Then (4) ElseMsgbox(组合框中已有该项目”)End IfEnd IfEnd Sub13 .在一维数组中利用移位的方法显示如图所示的结 果。Private Sub Form_Click()Dim a(l To 7) As Integer, i%, j%For i = 1 To 7a(i) = iPrint a(i);Next iPrintFor i = 1 To 7t 二 (1) For j = 6 To 1 Step -1 (2) Next j (3) For j = 1 To 7Print a(j);Next jPrintNext

21、 iEnd Sub14 .下列程序随机产生n个-10,10范围内的无序整数，存放到数组中，并显示结果；将数 组中相同的数删除得只剩一个，并输出删除后的结果。Private Sub Form_Click()Dim i%, j%, n%, m%, a%(), r!n = Val(InputBox(输入数组大小”)ReDim a(l To n)Print ”产生的数组:“；For i = 1 To n r 二 Rnd a(i)二 (1) Print a(i);Next i m = 1 Do While m = n i= (2) Do While i H; demEnd SubPrivate Func

22、tion Convert(s As String) As LongDim n%, i%, subC As String * 1, p& n = Len(s) p = 0For i = 1 To nsubC 二 (2) Select Case subC Case n0H To ”9 p = p * 16 + Val(subC) Case nAn To nFnp 二 p * 16 + (3) End SelectNext i (4) End Function二、VB程序阅读1.下面程序运行后，在文本框中输入123456,按回车键后文本框中显示的内容是 Dim n%,m%Private Sub Te

23、xt 1 _KeyPress(KeyAscii As Integer)If IsNumeric(Textl) ThenSelect Case Val(Textl) Mod 2Case 0n=n+Val(Textl)Case 1m=m+Val(Textl)End SelectEnd IfTextl=m,IF KeyAscii=13 then Textl=n= & Str(n) & m=& Str(m) End Sub.下面程序运行后输出的结果是 oPrivate Sub Command l_Click()For 1=0 To 3Print Tab(4*I+1Next IEnd Sub.下面程序运

24、行后输出的结果是 oPrivate Sub Commandl_Click() A$=*n :B$=H$n循环语句ForNext, Do while/Until LoopDo Loop while/UntilWhileWend跳转语句Goto,Exit For/Do/Sub/Funtion/调用语句Call装入/删除窗体Load /UnLoad文件操作语句Open, Close, Print, Write, Input, Line inputFilecopy, Kill, Name, Chdrive, Mkdir, Chdir, Rmdir其它Option Base, Option Explic

25、it, Randomize, Rem , End数组定长数组Dim A (20) As Integer变长数组Dim a() As IntegerReDim A(10)过程子过程Sub子过程名（参数表）/ End Sub函数子过程Function 函数名（参数表）As数据类型/ End Function参数的传递传递数值，传递地址，数组作函数参数过程、 变量的 作用域过程模块级，全局级变量局部变量、窗体/模块变量、全局变量静态变量用Static定义的局部变量常用内 部函数数学函数Sin Cos、 Abs Sqr Log Exp Sgn Int Fix、 Rnd Tan字符串函数Trim Lef

26、t Right、 Len Mid Ucase Lcase Space、 StringLtrim、 Rtrim Instr日期/时间函数Date Time Year Hour转换函数Chr Asc Str Vai、 Hex Oct输入输出函数InputBox MsgBox测试函数Eof IsNumeric Ubound、 Lbound文件操作函数Shell、 LoadPicture、 Lof、 Input其它函数Array 、 RGB QbColor Format Tab spcVB语二.窗常用属性常用事件常用方法体Name, Height, Width, Left, Top, Visible,

27、Click、LoadCis及窗体Enabled, Font （基本属性，以下大多数对象DbclickShow控都有的）KeyDownHideFor 1=1 To 4If I Mod 2=0 Thenx$=String(Len(a$)+I,B$)Elsex$=String(Len(a$)+I,A$)End IfPrint x$;Next IEnd Sub.下程序结果为Private Sub Form_Click()A=2B二ADo Until A=5x=A*BPrint Str$(A) & 噂” & Str$(B) & =;Str$(x)A二A+BB=B+ALoopEnd Sub2 .下程序运行

28、后在输入对话框中分别输入字符A, C, A, D, E,显示结果为 Private sub Form_Click()Dim S As String,Onec As String,Sum As IntegerFor 1=1 To 5Onec=Inputbox(请输入一个字符”)Sum=sum+checks(onec,s)Next IPrint ns=n & sPrint Hsum=H & str$(SUM)End subPublic Function checks (ByVai x as string ,byref y as string) as integerIf xonAn theny =

29、y+x checks=lEnd IFEnd Function3 .下程序结果为Private Sub Form_Click()Dim f(2)For 1=0 to 2f(i尸SQ(I*I+1)Next IDo until 1=01二1-1Print ”F(”;I;”)二;F LoopEnd subPublic Function SQ(x)X=x+2Sq=x*4-5End Function4 .如下程序，运行的结果是，函数过程的功能是 Public Function f(byval n%, byval r%)If n 0 thenf=f(nr,r)Print n mod r;End ifEnd

30、functionPrivate sub command 1 _click()Print f( 100,8)End Sub.如下程序，运行的结果是，函数过程的功能是Public function f(m%,n%)Do while mnDo while mnm=m-nLoopDo while nmn=n-mLoopLoopf二mEnd functionPrivate sub command 1 _click()Print f(24,18)End Sub.单击命令按钮时，下面程序代码的执行结果为()oPrivate Sub Command 1 _Click()Dim FirstStr as Stri

31、ngFirstStr=,abcdef,Print PickMid(FirstStr)End SubPrivate Function PickMid(xStr as String)as StringDim tempStr as String,strLen as IntegertempStd”strLen=Len(xStr)1=1Do While I=1tempStr= tempStr+Mid(xStr ,1,1)1=1-1Loopystr= tempStrEnd SubPrivate Sub Form_Click()Dim si as String,s2 as Stringsl=abcdeFIn

32、vert sl,s2Print s2End Sub.下程序代码在单击命令按钮时的输出结果为()oPrivate Sub Command 1 _Click()Dim x as Integer, y as IntegerDim n as Integer, z as Integerx=l:y=lFor n=l to 3z二 FirstFunc(x,y)Print n,zNext nEnd SubPrivate Function FirstFunc(x as Integer,y as Integer) as IntegerDim n as IntegerDo While n=4x=x+yn=n+lLo

33、opFirstFunc=xEnd Function.本程序包括一个标准模块和一个窗体，程序从Sub Main过程启动，其他过程是窗体模块中 的事件过程。执行下面程序，依次单击Command 1和Command!,在窗体上输出的结果为 ()o标准模块：Public x As IntegerPublic Sub main()x = 5End Sub窗体模块：Dim y As IntegerPrivate Sub Command 1 _Click()y = x * 2Print yEnd SubPrivate Sub Command2_Click()y = x / 2Print yEnd Sub14

34、 .单击命令按钮，在输入对话框中输入234,输出结果为()。Function fun(ByVal num As Long)As LongDim k As Longk二lnum二Abs(num)Do While numk=k*(num Mod 10)num二num10Loop fun二kEnd FunctionPrivate Sub Command 1 _Click()Dim n As Long, r As Longn=InputBox(请输入一个数”)r=fun(n)Print rEnd Sub15 .单击命令按钮，输出结果为()。Private Sub Command l_Click()Di

35、m a(l To 10)Dim p(l To 3)k=5For i=l To 10 a(i)=iNext iFor i=l To 3 p(i)=a(i*i)Next iFor i=l To 3k=k+p*2Next iPrint kEnd Sub16 .在窗体上画一个列表框和一个文本框，程序运行后，在文本框中输入“789”(见图1),然后双击列表框中的“456”，则输出结果为()oPrivate Sub Form_Load ()End SubPrivate Sub Listl_ DblClick ()End Sub17 .下程序运行时单击了窗体后，窗体上的输出的结果。(注字符“Z”的ASCII

36、码是90)Private Sub Form_Click()Dim i% J%For i = 1 To 6Print spc( 6-i )；For j=l to 2*i-lPrint chr$(90-i+l);Next jPrintNext iEnd Sub三、编程题1 .输入100个数，统计其中负数、零及正数的个数。2 .自然对数e的近似值，要求其误差小于0.00001,近似公式为： e=l/l!+l/2!+l/3!+l/n!3 .计算s= 1+2+2八2+2八3+,直至s超过1E+16。4 .打印由数字组成的如下所示金字塔图案，98887777766666665555555554444444

37、444433333333333332222222222222225 .编一子程序验证哥德巴赫猜想：一个大于等于6的偶数可以表示为两个素数之和。例如：6=3+38=3+510=3+7提示：写一自定义函数来判断任意整数n是不是素数。6 .有一函数：r 1(x0)编一程序，输入一个又值，输出y值。7 .编程序求表达式s=x/2!+x八3/4!+x八(2n-l)/(2n)!的值，并在窗体上输出。要求如下：(1)变量x与n的值在窗标单击事件中用InputBox()函数输入，通过调用函数过程s实现 题目要求。(2)求表达式的值用函数过程Function s (n%, x!) As Single完成。8 .

38、迭代法求” =加。求立方根的迭代公式为：提示：初值X。可取为a,精度为0.000001。a值由键盘输入。9 .有1分、2分、5分硬币若干枚，从中取出20枚硬币使其总值为60分，求出取法的数 量以及每一种取法的1分、2分、5分硬币个数。10 .打印如下图所示的杨辉三角形(杨辉三角形为一个下三角矩阵，每一行第一个和主对 角线上元素都为1,其余每一个数正好等于它上面一行的同一列与前一列数之和)。11 .编一程序，用InputBox函数输入12个整数，赋值给3*4的二维数组，求出其中最大元 素及它的行、列坐标，并将数组按行(矩阵形式)输出到窗体，最大元素及行、列下标输出在 数组的下方。12 .编写一个加密程序，界面下图所示。要求