《上机考试不用愁全国计算机二级VB上机考试题库及答案本.docx》由会员分享，可在线阅读，更多相关《上机考试不用愁全国计算机二级VB上机考试题库及答案本.docx（161页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第一、Const y0& = 1110, x0& =1100, radius& = 750Private Function oncircle(X As Single, Y As Single) As Booleanprecision = 5500()If Abs(X - xO) * (X - xO) + (yO - Y) * (yO - Y) - radius * radius) precision Then oncircle = TrueElseoncircle = FalseEnd IfEnd FunctionPrivate Sub Form_MouseDown(Button As Int
2、eger, Shift As Integer, X As Single, Y As Single)Const LEFT_BUTTON = 1If oncircle(X, Y) ThenLine 1.XI = xOLinel.Yl =y0If Button = LEFT BUTTON ThenLinel.X2 = XLinel.Y2 = ?ElseLinel.X2 = Linel.?Linel.Y2 = y0-?End IfLabel 1 .Caption =Else?二 鼠标位置不对”End If* y * X * radius * label 1 .caption *End Sub(2)在考
3、生目录下有一个工程文件m4.vbp,窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n (要求：8=n ? Or n ? Then* 0 *MsgBox (”此用户名已经存在广)Elself Text2 o Text3 Then MsgBox (口令验证错误!”)Else writeusers ?=注册成功！ ”* form 1.label 1.caption *Form2.HideEnd If End Sub Form3 Private Sub Command l_Click()k = finduser(Trim$(Texl 1)fkThen* q *MsgBox (没有注册！
4、”)Elself Trim$(Text2) users( ? ) Then* n,2 *MsgBox ( 口令错误！)ElseForm l.Labell.Caption =登录成功！” Form3.HideEnd If End Sub 第02套简单应用题(新模8)(1)在名称为Forml的窗体上画一个名称为Texll的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为加 粗、斜体、下划线，名称分别为Ml、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单， 选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。注意：存盘时必须存放在考生文件
5、夹下，工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。 Ml_click()Text 1 .fontBold=trueM2_click()Text 1 .fontltalic=trueM3_click()Textl .fontUnderline=trueText 1 _MouseDown()If button=2 then Popupmcnu format(2)在考生文件夹下有一个工程文件sjl4.vbp,含有Forml和Form2两个窗体，Forml为启动窗体。两个窗体上的控件如图1所示。程序 运行后，在Forml窗体的文本框中输入有关信息(密码框中显示字符)，然后单击提交按钮则
6、弹出确认对话框(即Form2 窗体)，并在对话框中显示输入的信息，如图2所示。单击确认按钮则程序结束，单击重输按钮，则对话框消失，回到Forml窗 体。在给出的窗体文件中已经给出了程序，但不完整。 要求：1)把Forml的标题改为注册，把Form2的标题改为确认；2)设置适当的属性，使Form2标题栏上的所有按钮消失(如图2所示)； 3)去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。 Private Sub Cl_Click()Dim k As IntegerForm2. ?* shoY
7、v *Form2.Print Form 1.LI.Caption; Form 1.Text 1 Form2.Print Form I .L2.Caption; Form 1 .Text2 Form2.Print Form 1 .L3.Caption; Forml.Text3 Form2.Print Form I .Frame 1. ? ; M；For k = OTo 1 If Form 1.Op 1（ ? ）. Value ThenForm2.Print Form 1 .Op 1 （k）.Caption End If Next k End Sub Private Sub Form_Load（）
8、 Text2. ?=End Sub 第02套综合应用题（新模8）在考生目录下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为口令和允许次数；一个命令按钮C1,标题为 确定；两个文本框名称分别为Textl和Text2。其中Textl用来输入口令（输入时，显示*）,无初始内容；Text2的初始内容为3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Textl中输入口令后, 单击确定，如果输入的是123456则在Textl中显示口令正确；如果输入其他内容，单击确定后，弹出如图所示的错误提示对话框，并且Text2中的数字
9、减1.最多可输入3次口令，若3次都输入错误，则禁止再次 输入。Private Sub Cl_Click()* texl 1 text * passwordchar * q *If? = M 123456 ThenTextl.Text = 口令正确”Textl.? = ,MElseText2.Text = Text2.Text - IIf Text2.Text ? ThenMsgBox 第& (3 - Text2.Text) & 次口令错误，请重新输入 ElseMsgBox 3次输入错误，请退出”Textl.Enabled = ?* false *End IfEnd IfEnd Sub第03套简
10、单应用题（新模18）（1）在考生文件夹下有一个工程文件sjt3.vbp,其功能是：1）单击读数据按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中;2）单击计算按钮，则对这100个整数中的所有水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。 如：153=1A3+53+3人3,所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Textl中。窗体中给出了所有控 件（如图所示），以及读数据按钮的Click事件过程，请为计算按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行
11、计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。Dim a( 100) As IntegerPrivate Sub Command l_Click()Dim k As IntegerOpen App.Path & Hin3.datM For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()，*考生应完成的程序*Dim k ,cl, c2, c3, avg, num as integerAvg=ONum=OFor k=l to 10
12、0Cl=int(a(k)/100)C2=int(a(k)-cl *100)/10)C3=a(k) mod 10If a(k)=c 1 A3+c2A3+c3A3 thenAvg=avg+a(k)End ifNext kAvg=int(avg / num) Textl .text=avg* End Sub *Private Sub Form_Unload(Cancel As Integer)Open App.Path & Hout3.dat, For Output As #1Print #I, Textl .TextClose #1End Sub(2)已知出租车行驶不超过4公里时一律收费10元。超
13、过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里 以上每公里收1.8元。在考生文件夹下有一个工程文件sjM.vbp。程序的功能是：单击输入按钮，将弹出一个输入对话框，接收出租车 行驶的里程数：单击计算按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Texll的文本框内。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。Dim s As IntegerPrivate Sub Command 1 _Click()s = Val(lnputBox(输入里程数(单位：公里)”)End SubPrivate
14、Sub Command2_Click()Ifs0Then,Select Case ?* s *Case Is = 4,9* f=0 *Case Is 0 and kn(k) then K=iEnd if Next i Text 1 .text=chr(asc(*ta,)+k-1) Text2.text=n(k) * End Sub *Private Sub Form_Unload(Cancel As Integer)Open App.Path & Hout5.datn For Output As #1 Print #1, Text I.Text, Text2.Text Close #1 End
15、 Sub 第04套简单应用题(新模60)(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮。程 序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上 显示“我是小学生”.要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。 最后把修改后的文件以原来的文件名存盘。Private Sub Cl_Click() For i = o To ?* 0 to 2 *If? = True Then
16、* op l(i). value *Print我是+ Opl(i).? * caption *End IfNextEnd SubJoel我是j ,学生Foradr中学生r大学生（2）在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。窗体上有一个名称为command 1的命令按钮和一个名称为Timeri 的计时器。请在窗体上画一个标签（名称为Labell,标题为“请输入一个正整数”），再画一个文本框（名称为Textl,初始内容为空白）。 已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按可车键，则可以使文本框中的数字每隔0.3秒减1 （倒 计
17、数）；当减到。时，倒计数停止，清空文本框，并把焦点移到文本框中。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确的运行，但不能修改程序中的其他部分。最后把修改后的文件按 原文件名存盘。Private Sub Command 1 _Click() Timerl.Enabled = TrueEnd Sub* text text * enabled * text=val(text 1 .text)-1 *Private Sub Timerl_Timer(), IfVal(?) = OThen Textl.Text = H Timerl.? = False Textl.?ElseTex
18、t 1.Text = Str(Val(Textl.Text) - 1)End IfEnd Sub第04套 综合应用题（新模60）在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：Name字符串8Tel字符串10PostLong窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”命令按钮，则从考生文件夹下的in5.lxl文件中读入所有 记录并显示在文本框中（每条记录占一行，数据项的顺序是姓名、电话、邮编、见图，可使用符号常量vbCrLf表示回车换行）；若单击 “保存”按
19、钮则把文本框中的内容存入out5.lxt文件中。要求：1）编写“读入并显示记录”按钮的Click过程。 2）在文本框中把所有字母改为大写字母（可以手工修改）3）单击“保存”按钮把修改后的文本框内容存盘，否则无成绩！（过程已给出，不能修改）。最后以原文件名将程序存放在考生文件夹下。Private Type Pal InfoName As String * 8Tel As String 10Post As LongEnd TypeDim pal As Pal InfoPrivate Sub Command2_Click()ch$ 二 ”For k = 1 To Len(Textl.Text)C$
20、= Mid$(Textl.Text, k, 1)IfC$ = H0 And C$ = aM And C$ = A And C$ 0 ThenFor k = 1 To 15 If Left(a(k), ? ) = Textl.Text Then c = c + M + ?End If Next k Ifc = M ThenText2.Text =未找到！ Else Text2.Text = ? End If ElseTexl2.Text = ”未输入查找内容！” End If End Sub 第07套 综合应用题(新模70) 在考生文件夹下有一个工程文件尔5.vbp,请先装入该工程文件，然后完成
21、以下操作。 在名称为Forml的窗体上画三个命令按钮，其名称分别为Cl、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图所示)。 程序运行后，如果单击“读入数据”按钮，则调用题目已提供的ReadDatal和ReadDala2过程读入datainl.txt和dalain2.txt文件中的各20 个整数，分别放入Arrl和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三 个数组中(即：把第一个数组的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素。这里的n为1、* Tex Text * n *.Forml
22、-Inlxl刘陈沈张刘陈马李郝朱陈郝张张刘芬红枚定一庆华丽强静纹玫雨定三定阳查找内容查找结果陈红陈庆 阳陈纹取数2. o o o o o 20),最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成 绩。最后把修改后的文件以原来的文件名存盘。 ,提供给考生的程序 Option Base 1 Dim Arrl(20) As Intege
23、r Dim Arr2(20) As Integer Sub ReadDatal()Open App.Path & datain 1 .txt* For Input As #1For i = 1 To 20Input #1, Arrl(i) Next i Close#!End SubSub ReadData2()Open App.Path & datain2.txtH For Input As #1For i = 1 To 20Input #l,Arr2(i) Next i Close #1 End Sub Sub WriteData(Filename As String, Num As Int
24、eger)Open App.Path & & Filename For Output As #1 Print #1, Num Close #1 End Sub *考生编写的程序如下：* Private Sub Cl_Click()Call readdata 1Call readdata2 End Sub 4定义一个声明语句：dim num as integer Private Sub C2_Click()Dim arr3(20) as integerFor i=l to 20Arr3(i)=arrl(i)arr2(i)Next i Num=0For i=l to 20Num=num+arr3(
25、i)Next iPrint num End Sub Private Sub C3_Click() Call writedata(Mdataout.txtM, num ) * End Sub * 第()8套 简单应用题(新模77)(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序.程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把考生目录下的文件in3.dat中的100个整数读到数组a中。2）从名称为Lisll的列表框中选中一项（如图所示）。3）单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。4）单击窗体右上角的关闭按钮结束程序。“读入数据”
26、按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。Dim a(100) As IntegerPrivate Sub Command l_Click()Dim k As IntegerOpen ,in3.dat For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()，*考生应完成的程序*Intmax=a(l)Intmin=a(l)For i=l to 100If intmax=a(i) thenIntmin=a(i)End ifNext iIf listl .listindex=O thenTextl.text=intmax - intminElseif list 1 .listindex= 1 thenText 1 .text=intmax+intminElseif list