上机考试不用愁_2012年全国计算机二级VB上机考试题库及答案本.docx

《上机考试不用愁_2012年全国计算机二级VB上机考试题库及答案本.docx》由会员分享，可在线阅读，更多相关《上机考试不用愁_2012年全国计算机二级VB上机考试题库及答案本.docx（165页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、图1图2第一、Const yO& = 1110, xO& = 1100, radius* = 750Private Function oncircle(X As Single, Y As Single) As Booleanprecision = 55000If Abs(X - xO) * (X - xO) + (yO - Y) * (yO - Y) - radius * radius) precision Then one ire le = Trueoncircle = FalseEnd IfEnd FunctionPrivate Sub Form_MouseDown(Button As I

2、nteger, Shift As Integer, X As Single, Y As Single)Const LEFT.BUTTON = 1If oncircle(X, Y) ThenLinel.Xl = xOLinel.Yl = yOIf Button = LEFT_BUTTON Then* 丫 * xi * label 1.caption *Linel.X2 = XLinel.Y2 = ?ElseLinel.X2 = Linel.?Linel.Y2 = yO-?End IfLabell.Caption = MMElse?= 鼠标位置不对”End IfEnd Sub(2)在考生目录下有一

3、个工程文件sjt4.vbp,窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n (要求：8=n?Orn ? Then* 0 *MsgBox (此用户名已经存在巧Elself Text2 o Text3 ThenMsgBox ( 口令验证错误!”) Elsewriteusers?=注册成功！”* form 1.label 1.caption *Form2.HideEnd IfEnd SubForm3Private Sub Command l_Click()k = finduser(Trim$(Text 1)f k = 2 Then* q *MsgBox (没有注册！”)Elself

4、Trim$(Text2) o users( ? ) Then* n,2 *MsgBox ( 口岑错误！”)ElseFormLLabell.Caption =登录成功！ ” Form3.HideEnd IfEnd Sub第02套简单应用题(新模8)(1)在名称为Forml的窗体上画一个名称为Textl的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为加 粗、斜体、下划线，名称分别为Ml、M2、M3o请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单， 选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为

5、sjt3.vbp,窗体文件名为sjt3.frm。MLclick()Text 1 .fontBold=trueM2_click()Text 1 .fontltalic=trueM3_click()Text 1 .fontUnderline=trueTextl_MouseDown()If button=2 thenPopupmenu format(2)在考生文件夹下有一个工程文件sjt4.vbp,含有Forml和Form2两个窗体，Forml为启动窗体。两个窗体上的控件如图1所示。程序 运行后，在Forml窗体的文本框中输入有关信息(密码框中显示*字符)，然后单击提交按钮则弹出确认对话框(即For

6、m2 窗体)，并在对话框中显示输入的信息，如图2所示.单击确认按钮则程序结束，单击重输按钮，则对话框消失，回到Forml窗 体。在给出的窗体文件中已经给出了程序，但不完整。 要求：1)把Forml的标题改为注册，把Form2的标题改为确认；2)设置适当的属性，使Form2标题栏上的所有按钮消失(如图2所示)：3)去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。Private Sub Cl_Click()Dim k As IntegerForm2. ?* show *Form2.Print

7、Form I.LI.Caption; Form 1.Text 1Form2.Print Form 1 .L2.Caption; Form 1 .Text2Form2.Print Form 1 .L3.Caption; Form 1 .Text3 Form2.Print Form 1 .FrameI. ?;For k = 0 To 1*If Form 1.Op 1( ? ).Value ThenForm2.Print Form I .Op l(k).CaptionEnd IfNext kEnd SubPrivate Sub Form_Load() Text2. ?=* k *名：Uwl ：123

8、4S6* passwordchar *End Sub第02套综合应用题（新模8）在考生目录下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为口令和允许次数；一个命令按钮C1,标题为确定：两个文本框名称分别为Textl和Text2。其中Text 1用来输入口令（输入时，显示*）,无初始内容；Text2的初始内容为3。示对话框，并且Text2中的数字减1.最多可输入3次口令，若3次都输入错误，则禁止再次输入。Private Sub Cl_Click()If? = 123456 ThenTextl .Text = 口令正确”Textl.? =nElseText2.Text =

9、 Tcxt2.Text - IIfText2.Text?Then* texi text * passwordchar * Q *并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Textl中输入口令后， 单击确定，如果输入的是123456则在Textl中显示口令正确；如果输入其他内容，单击确定后，弹出如图所示的错误提MsgBox 第 & (3 - Text2.Text) & 次口令错误，请重新输入” ElseMsgBox 3次输入错误，请退出”Text 1 .Enabled = ?* false *End IfEnd IfEnd Sub第0

10、3套简单应用题（新模18）（1）在考生文件夹下有一个工程文件sjt3.vbp,其功能是：1）单击读数据按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中；2）单击计算按钮，则对这100个整数中的所有水仙花数（当一个数的值等了该数中各位数字的立方和时，此数被称为水仙花数。 如：153= 13+5A3+3”，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Textl中。窗体中给出了所有控件（如图所示），以及读数据按钮的Click事件过程，请为计算按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须

11、进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。Dim a( 100) As IntegerPrivate Sub Command l_Click()Dim k As IntegerOpen App.Path & in3.datn For Input As #1Fork= 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()*考生应完成的程序*Dim k ,cl, c2, c3, avg, num as integerAvg=ONum=OFork=lto 100Cl=

12、int(a(k)/100)C2=int(a(k)-c 1* 100)/10)C3=a(k) mod 10Ifa(k)=clA3+c2A3+c3A3 thenAvg=avg+a(k)End ifNext kAvg=int(avg / num)Text 1 .text=avg* Sub *Private Sub Form_Unload(Cancel As Integer)Open App.Path & out3.dat, For Output As #1Print #L Text 1.TextClose #1End Sub（2）已知出租车行驶不超过4公里时律收费10元。超过4公里时分段处理，具体处

13、理方式为：15公里以内每公里加收1.2元，15公里 以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击输入按钮，将弹出一个输入对话框，接收出租车 行驶的里程数；单击计算按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Textl的文本框内。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。Dim s As IntegerPrivate Sub Command l_Click（）s = Val（InputBox（输入里程数（单位：公里）”）End SubPrivate Sub Command2_

14、Click（） Ifs0ThenSelect Case ?* *Case Is = 4,9* 修10 *Case Is 0 and kn(k) thenK=i End ifNext iText 1 .text=chr(asc(44aM)+k-1) Text2.text=n(k)* End Sub *Private Sub Form_Unload(Cancel As Integer)Open App.Path & oul5.dat For Output As #1 Print #L Text I.Text, Text2.Text Close #1 End Sub 第04套简单应用题(新模60)(

15、1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮.程 序的功能是，在运行时，如果选中一个单选按钮并单击显示按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上 显示“我是小学生”。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。 最后把修改后的文件以原来的文件名存盘。Private Sub Cl_Click(),For i = 9 To ?* 0 to 2 * If? = True Then* opl(i).value *Print

16、我是” + Opl(i).? * caption *End IfNextEnd SubForml（2）在考生文件夹下有一个工程文件sjt4.vbp,臧 的窗体文件为sjt4.frm。窗体上有一个名称为command1的命令按钮和一个名称为,Bmerl 的计时器。请在窗体上画-个标签（名称为Labell,标题为“请输入一个正整数”），再画一个文本框（名称为Textl,初始内容为空白）。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可以使文本框中的数字每隔0.3秒减1 （倒 计数）；当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。要求：去掉程序中的注

17、释符，把程序中的？改为正确的内容，使其能正确的运行，但不能修改程序中的其他部分。最后把修改后的文件按 原文件名存盘。Private Sub Command l_Click()Timer 1.Enabled = TrueEnd Sub* tex text * enabled * text=val(textl.text)-l *Private Sub Timerl_Timer() IfVal(?) = OThen Textl.Text = HM Timerl.? = False Textl.?ElseText 1 .Text = Str(Val(Textl.Text) - 1)End IfEnd

18、Sub第04套综合应用题（新模60）在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名 称、类型和长度分别为：Name 字符串 8Tel字符串10PostLong窗体中有 个文本框和两个命令按钮.程序运行后，如果单击“读入并显示记录命令按钮，则从考生文件夹下的in5.txt文件中读入所有 记录并显示在文本框中（每条记录占一行，数据项的顺序是姓名、电话、邮编、见图，可使用符号常量vbCrLf表示回车换行）；若单击 “保存按钮则把文本框中的内容存入out5.txt文件中。要求：1）编写“读入并显示记录”按钮的Cl

19、ick过程。 2）在文本框中把所有字母改为大写字母（可以手工修改）-|nl x|Forml3）单击“保存”按钮把修改后的文本框内容存盘，否则无成绩！（过程已给出，不能修改）。最后以原文件名将程序存放在考生 文件夹下。Private Type PallnfoName As String * 8Tel As String * 10Post As Long End Type Dim pal As Pallnfo Private Sub Command2_Click（）ch$ =HMFork = 1 To Len（Textl.Text）C$ = Mid$（Textl.Text, k, 1）IfC$ =

20、 H0M And C$ v= 9 Or C$ = Han And C$ v= z Or C$ = A And C$ v= Z Then ch$ = ch$ + C$ End IfNext kOpen out5.txt For Output As #1 Print #1, ch$Close #1End SubPrivate Sub Command I_Click()*考生应编写的程序*Dim recordnum as integerOpen app.path & in5.txt“ fbr random as #1 len=len(pal) Recordnum=lof(l)/ len(pal) F

21、or i=l to recordnumGet#l,i,palText 1 .text=text 1 .text+ucase(pal.name)+pal.tel+str(pal.post)+chr( 13)+chr( 10)Next iClose #1* * * End Sub * * *第05套综合应用题(新模69)在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件，然后完成以下操作。在名称为Forml的窗体上画三个命令按钮，其名称分别为Cl、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图所示)。 程序运行后，如果单击“读入数据”按钮，则调用题目已提供的RcadDa

22、tal和ReadData2过程读入datainl.txt和datain2.txt文件中的各20 个整数，分别放入Arrl和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三 个数组中(即：把第一个数组的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素。这里的n为I、 2、。、20),最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给 出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。注意：考生不得修改窗体文件中已经存在的程序，必须把

23、求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成 绩。最后把修改后的文件以原来的文件名存盘。Option Base 1Dim Arrl(20) As IntegerDim Arr2(20) As Integer Sub ReadDatalOOpen App.Path & H & datain 1 .txt For Input As #1 For i = 1 To 20Input #1, Arrl(i) Next iClose #1End SubSub ReadData2()Open App.Path & H & datain2.txt For Input As

24、 #1 For i = 1 To 20Input #l,Arr2(i) Next i Close #1 End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & H & Filename For Output As #1 Print #1. Num Close #1 End Sub*以下 为考牛 编写的程序*Private sub Cl_Click()Call ReadDatalCall ReadData2End sub,定义一个声明语句:Dim Sum As integerPrivate sub c2_cl

25、ick()Dim arr3(20) as integerFor i=l to 20Arr3(i)=int(arrl(i)/ arr2(i)Sum=Sum+arr3(i)Next iNum=0Print SumEnd subPrivate sub C3_click()Call writeDataCdataout.txr, sum)* End sub *第06套简单应用题(新模32)(1)在考生文件夹下有个工程文件sjt3.vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的 文字做相应的设置，如图所示。窗体上的控件己经丽出，但没有给出主要程序内容，请编写适当的事

26、件过程，完成I：述功能。注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中个单选按钮和至少个复选框，并单击“确定”按 钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。Private sub command l_click()，*考生编写的程序如下：*If Op 1 .value = true thenText 1 .fontname=Op 1 .captionElseif op2.value=true thenTcxtl .fbntnamc=Op2.captionEnd ifIfchl.value=l thenTextl .f

27、bntunderline=trueElseTextl .fbntunderline=trueEnd ifIf ch2.value=l thenTextl .fontltalic=trueElseTextl .fontitalic=falseEnd if* End sub * (2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经画出所有控件，如图所示。在运行时，如果单击“开始”按钮，则窗体上的汽 车图标每0.1秒向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。请完成以下工作：A.设置适当控件的适当属性，使得汽车图标每0.1秒向右移动一次，而初始状态卜不移动;B.请去

28、掉程序中的注释符，把程序中的？改为正确的内容；C.为两个命令按钮编写适当的事件过程。最后以原文件名存盘。注意：不得修改己经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。Private Sub Cl_CIick()*考生编写的程序如下：*开始停止Timer 1 .enabled=trueEnd SubPrivate Sub C2_Click()*考生编写的程序如下：*Timer 1 .enablcd=falseEnd SubPrivate Sub Timer l_Timer() PL? Pl.Left + 20* Move *End Sub 第06套 综合应用题(新模3

29、2)在考生文件夹有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的？改为正确的内 容。本程序的功能是：如果单击“取数”按钮，则把考生目录下的in5.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名：当在Texll中输入一个 姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text】中相同的姓名或所有具有Textl中姓氏的姓名显 示在Text2中；(如图所示)若未找到，则在Text2中显示“未找到！ ；若Texll中没有查找的内容，则在Text2中显示“未输入查找内 容！ ”。注意：考生不得修改程序的其他部分

30、和控件的属性，最后把修改后的文件按原文件名存盘。 Dim a(15) As String Private Sub Cl_Click() Dim k As Integer Open in5.txt, For Input As #1 Form I.Cis For k = 1 To 15Input #L a(k) Print a(k) Next k , Close*End Sub Private Sub C2_Click()Dim k As Integer, n As Integer, c As String n = Len(? )* Text 1.Text *c = If n 0 ThenFor

31、k = I To 15 If Left(a(k), ? ) = Text 1.Text Then* n *c = c + M + ?End If Next k Ifc = H Then Text2.Text =未找到! Else Text2.Text = ? End If ElseTexl2.Text =未输入查找内容！ End If End Sub 第07套 综合应用题(新模70) 在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件，然后完成以下操作。 在名称为Forml的窗体上画三个命令按钮，其名称分别为Cl、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图所示)

32、. 程序运行后，如果单击“读入数据按钮，则调用题目已提供的ReadDatal和ReadData2过程读入datainl.txt和datain2.txt文件中的各20 个整数，分别放入AE和Arr2两个数组中；如果单击计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三 个数组中(即：把第个数组的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素。这里的n为1、* a(k)*.Form1定日二用华丽强静纹玫雨定三-刘陈马李郝朱陈郝张张刘查找内容查找结果陈红陈庆P0陈纹取数2、。、20),最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来：如

33、果单击“存盘”按钮，则调用题目中给 出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成 绩。最后把修改后的文件以原来的文件名存盘。提供给考生的程序 Option Base 1 Dim Arrl(20) As Integer Dim Arr2(20) As Integer Sub ReadDatal()Open App.Path & V & datainl.txt For Input As #1 For i = 1 To 20In

34、put #1, Arrl(i) Next i Close #1 End Sub Sub ReadData2QOpen App.Path & datain2.txt For Input As #1For i = 1 To 20Input #1, Arr2(i) Next i Close #1 End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & Filename For Output As #1Print #1, Num Close# End Sub *考生编写的程序如下：* Private SubCl

35、_Click() Call readdata 1 Call readdata2 End Sub 定义一个声明语句：dim num as integer Private Sub C2_Click() Dim arr3(20) as integer For i=l to 20Arr3(i)=arrl(i) arr2(i) Next i Num=0 For i= 1 to 20Num=num+arr3(i) Next i Print num End Sub Private Sub C3_Click() Call writedataC*dataout.txf, num ) * End Sub * 第0

36、8套简单应用题(新模77) (1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把考生目录下的文件in3.dat中的100个整数读到数组a中。2)从名称为Listl的列表框中选中一项(如图所示)。3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 Dim a( 100) As Integer Private Sub Command l_Click() Dim

37、k As Integer Open in3.datM For Input As #1 Fork= 1 To 100Input #1, a(k) Next k Close #1 End Sub Private Sub Command2_Click() *考生应完成的程序*Intmax=a(l) Intmin=a(l) For i=l to 100 If intmax=a(i) then Intmin=a(i) End if Next i If listl.listindex=O thenTextl.text=intmax - intmin Elseif listl.listindex=l thenTe