机考试不用愁全国计算机二VB机考试题库及答案word本.doc

第一、Const y0& = 1110, x0& = 1100, radius& = 750Private Function oncircle(X As Single, Y As Single) As Boolean precision = 55000 If Abs(X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) precision Then oncircle = True Else oncircle = False End IfEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Const LEFT_BUTTON = 1 If oncircle(X, Y) Then Line1.X1 = x0 Line1.Y1 = y0 If Button = LEFT_BUTTON Then Line1.X2 = X Line1.Y2 = ? * Y * Else Line1.X2 = Line1.? * X1 * Line1.Y2 = y0 - ? * radius * End If Label1.Caption = Else ? = 鼠标位置不对 * label1.caption * End IfEnd Sub（2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（要求：8=n ? Or n ? Then * 0 * MsgBox (此用户名已经存在!) ElseIf Text2 Text3 Then MsgBox (口令验证错误!) Else writeusers ? = 注册成功！ * form1.label1.caption * Form2.Hide End IfEnd SubForm3Private Sub Command1_Click() k = finduser(Trim$(Text1) If k = ? Then * 0 * MsgBox (没有注册！) ElseIf Trim$(Text2) users( ? ) Then * n,2 * MsgBox (口令错误！) Else Form1.Label1.Caption = 登录成功！ Form3.Hide End IfEnd Sub第02套 简单应用题（新模8）（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为加粗、斜体、下划线，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。M1_click( ) Text1.fontBold=trueM2_click( ) Text1.fontItalic=trueM3_click( ) Text1.fontUnderline=trueText1_MouseDown( ) If button=2 then Popupmenu format（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（密码框中显示*字符），然后单击提交按钮则弹出确认对话框（即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击确认按钮则程序结束，单击重输按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求：1）把Form1的标题改为注册，把Form2的标题改为确认； 2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）； 3）去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。Private Sub C1_Click() Dim k As Integer Form2. ? * show * Form2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3 Form2.Print Form1.Frame1. ? ; ：; *caption* For k = 0 To 1 If Form1.Op1( ? ).Value Then * k * Form2.Print Form1.Op1(k).Caption End If Next kEnd SubPrivate Sub Form_Load() Text2. ? = * * passwordchar *End Sub第02套 综合应用题（新模8）在考生目录下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为口令和允许次数；一个命令按钮C1，标题为确定；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，显示*），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Text1中输入口令后，单击确定，如果输入的是123456则在Text1中显示口令正确；如果输入其他内容，单击确定后，弹出如图所示的错误提示对话框，并且Text2中的数字减1.最多可输入3次口令，若3次都输入错误，则禁止再次输入。Private Sub C1_Click() If ? = 123456 Then * text1.text * Text1.Text = 口令正确 Text1.? = * passwordchar * Else Text2.Text = Text2.Text - 1 If Text2.Text ? Then * 0 * MsgBox 第 & (3 - Text2.Text) & 次口令错误，请重新输入 Else MsgBox 3次输入错误，请退出 Text1.Enabled = ? * false * End If End IfEnd Sub第03套 简单应用题（新模18）（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：1）单击读数据按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中；2）单击计算按钮，则对这100个整数中的所有水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如：15313+53+33，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Text1中。窗体中给出了所有控件（如图所示），以及读数据按钮的Click事件过程，请为计算按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。Dim a(100) As IntegerPrivate Sub Command1_Click() Dim k As Integer Open App.Path & in3.dat For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Close #1End SubPrivate Sub Command2_Click()*考生应完成的程序*Dim k ,c1, c2, c3, avg, num as integerAvg=0Num=0For k=1 to 100 C1=int(a(k)/100) C2=int(a(k)-c1*100)/10) C3=a(k) mod 10 If a(k)=c13+c23+c33 then Avg=avg+a(k) End ifNext kAvg=int(avg / num)Text1.text=avg* End Sub *Private Sub Form_Unload(Cancel As Integer) Open App.Path & out3.dat For Output As #1 Print #1, Text1.Text Close #1End Sub（2）已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击输入按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击计算按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。Dim s As IntegerPrivate Sub Command1_Click() s = Val(InputBox(输入里程数（单位：公里）)End SubPrivate Sub Command2_Click() If s 0 Then Select Case ? * s * Case Is = 4 ? * f=10 * Case Is 0 and kn(k) then K=i End ifNext iText1.text=chr(asc(“a”)+k-1)Text2.text=n(k)* End Sub *Private Sub Form_Unload(Cancel As Integer) Open App.Path & out5.dat For Output As #1 Print #1, Text1.Text, Text2.Text Close #1End Sub第04套 简单应用题（新模60）（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮。程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。Private Sub C1_Click() For i = ? To ? * 0 to 2 * If ? = True Then * op1(i).value * Print 我是 + Op1(i).? * caption * End If NextEnd Sub（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。窗体上有一个名称为command1的命令按钮和一个名称为Timer1的计时器。请在窗体上画一个标签（名称为Label1，标题为“请输入一个正整数”），再画一个文本框（名称为Text1，初始内容为空白）。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可以使文本框中的数字每隔0.3秒减1（倒计数）；当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确的运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If Val(?) = 0 Then * text1.text * Text1.Text = Timer1.? = False * enabled * Text1.? * text=val(text1.text)-1 * Else Text1.Text = Str(Val(Text1.Text) - 1) End IfEnd Sub第04套 综合应用题（新模60）在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt，文件中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为： Name 字符串 8 Tel 字符串 10 Post Long窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”命令按钮，则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中（每条记录占一行，数据项的顺序是姓名、电话、邮编、见图，可使用符号常量vbCrLf表示回车换行）；若单击“保存”按钮则把文本框中的内容存入out5.txt文件中。要求：1）编写“读入并显示记录”按钮的Click过程。 2）在文本框中把所有字母改为大写字母（可以手工修改） 3）单击“保存”按钮把修改后的文本框内容存盘，否则无成绩！（过程已给出，不能修改）。最后以原文件名将程序存放在考生文件夹下。Private Type PalInfo Name As String * 8 Tel As String * 10 Post As LongEnd TypeDim pal As PalInfoPrivate Sub Command2_Click() ch$ = For k = 1 To Len(Text1.Text) C$ = Mid$(Text1.Text, k, 1) If C$ = 0 And C$ = a And C$ = A And C$ 0 Then For k = 1 To 15 If Left(a(k), ? ) = Text1.Text Then * n * c = c + + ? * a(k) * End If Next k If c = Then Text2.Text = 未找到！ Else Text2.Text = ? * c * End If Else Text2.Text = 未输入查找内容！ End IfEnd Sub第07套 综合应用题（新模70）在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作。在名称为Form1的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题分别为“读入数据”、“计算”和“存盘”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目已提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三个数组中（即：把第一个数组的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素。这里的n为1、2、。、20），最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 提供给考生的程序Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerSub ReadData1() Open App.Path & & datain1.txt For Input As #1 For i = 1 To 20 Input #1, Arr1(i) Next i Close #1End SubSub ReadData2() Open App.Path & & datain2.txt For Input As #1 For i = 1 To 20 Input #1, Arr2(i) Next i Close #1End SubSub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #1 Print #1, Num Close #1End Sub* 考生编写的程序如下：*Private Sub C1_Click()Call readdata1Call readdata2End Sub 定义一个声明语句： dim num as integerPrivate Sub C2_Click() Dim arr3(20) as integer For i=1 to 20 Arr3(i)=arr1(i) arr2(i) Next i Num=0 For i=1 to 20 Num=num+arr3(i) Next i Print numEnd SubPrivate Sub C3_Click()Call writedata(“dataout.txt” , num )* End Sub *第08套 简单应用题（新模77）（1）在考生文件夹下有一个工程文件sjt3.vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1）单击“读入数据”按钮，可把考生目录下的文件in3.dat中的100个整数读到数组a中。 2）从名称为List1的列表框中选中一项（如图所示）。 3）单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。 4）单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。Dim a(100) As IntegerPrivate Sub Command1_Click() Dim k As Integer Open in3.dat For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Close #1End SubPrivate Sub Command2_Click()* 考生应完成的程序* Intmax=a(1) Intmin=a(1) For i=1 to 100 If intmax=a(i) then Intmin=a(i) End if Next i If list1.listindex=0 then Text1.text=intmax intmin Elseif list1.listindex=1 then Text1.text=intmax+intmin Elseif list1.listindex=2 then Text1.text=intmax * intmin End if* End sub *Private Sub Form_Unload(Cancel As Integer) Open out3.dat For Output As #1 Print #1, List1.ListIndex, Text1.Text Close #1End Sub（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中的横线（横坐标）的名称为Line1，竖线（纵坐标）的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape1，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图1所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数（最好在1002000之间），并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图2所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序的其他部分和各控件属性。最后把修改后的文件按原文件名存盘。Dim s(5) As IntegerPrivate Sub Command1_Click() For k = ? To 5 * 1 * s(k) = Val(InputBox(input) Label1(k - 1).Caption = s(k) Label1(k - 1).Move Line2.X1 - Label1(k - 1).Width, Line1.Y1 - s(k) Label1(k - 1).Visible = ? * true * Next kEnd SubPrivate Sub Command2_Click() Dim a As Integer For k = 1 To 5 Shape1(k - 1).Height = s( ? ) * k * ? = Line1.Y1 * a * Shape1(k - 1).Top = a - Shape1(k - 1).Height Shape1(k - 1).Visible