1、二级 VISUAL+BASIC 机试-125 及答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上画一个名称为 Picture1 的图片框(PictureBox)，高、宽均为 1000。在图片框内再画一个有边框的名称为 Image1 的图像框(Image)。并通过属性窗口把考生目录下的图标文件Point11(香蕉图标)装入图像框 Image1 中，如图 1 所示。*注意：存盘时必须存放在考生文件夹下，工程文件
2、名为 sjt1.vbp，窗体文件名为 sjt1.frm。（分数：15.00）_(2).在名称为 Form1 的窗体上有一个名称为 Command1、标题为“保存文件”的命令按钮，再画一个名称为 CommonDialog1 的通用对话框。要求：通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为 out2。运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框。如图 2 所示。*注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：15.00）_
3、二、简单应用题(总题数：1，分数：40.00)完成下列问题：（分数：40.00）(1).在考生目录下有一个工程文件 sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为 Label1 的标签，和其他一些控件(如图 3 所示)。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图 4 所示)；若用鼠标右键单击圆的边线，则指针恢复到起始位置(如图 3 所示)；若鼠标左键和右键单击其他位置，则在标签上显示“鼠标位置不对”。*文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，在程序中的横线处填写正确的内容。程序中函数 oncircl
4、e()的作用是判断鼠标单击位置是否在圆的边线上(判断结果略有误差)，“是”则返回 True，“否”则返回 False。符号常量 x0、y0 是圆心距窗体左上角的距离；符号常量radius 是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。题目提供的源程序Const y0&=1110, x0&=1100, radius&=750Private Function oncircle(X As Single, Y As Single) As Booleanprecision=55000If Abs(X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radi
5、us*radius)precision Thenoncircle=TrueElseoncircle=FalseEnd IfEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Const LEFT_BUTTON=1If oncircle(X,Y)ThenLinel.X1=x0Line1.Y1=y0If Button=LEFT_BUTTON ThenLine1.X2=XLine1.Y2= (1) ElseLine1.X2=Line1. (2) Lin
6、e1.Y2=y0- (3) End IfLabel1.Caption=“Else(4) =“鼠标位置不对“End IfEnd Sub（分数：20.00）_(2).在考生目录下有一个工程文件 sjt4.vbp，窗体如图 5 所示。其功能是单击“输入数据”按钮，则可输入一个整数 n(要求：8=n=12)；单击“计算”按钮，则计算 1!+2!+3!+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的 out4.dat 文件中。*文件中已经给出了所有控件和程序，但程序不完整，在程序中的横线处填写正确的内容，并编写“计算”按钮的 Click 事件过程。注意：不得修改
7、已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。题目提供的源程序Dim n As IntegerPrivate Sub Command1_Click()n=Val(InputBox(“请输入整数(8-12)“, “输入“)If n (1) Or n8 ThenMsgBox(“数据错误,请重新输入“)Command2.Enabled=FalseCommand3.Enabled=FalseElseCommand2.Enabled=TrueCommand3.Enabled=TrueEnd IfEnd SubPrivate S
8、ub Command2_Click()Dim s As Long, k As Integer考生应编写的程序End SubFunction f(n As Integer) As Longs= (2) For k=2 To ns=s*kNextf= (3) End FunctionPrivate Sub Command3_Click()Open App.Path & “/out4.dat“ For Output As #1Print #1, n, Text1Close #1End Sub（分数：20.00）_三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5
9、.vbp，其中含 3 个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上的按钮时将弹出对应窗体以进行注册和登录。注册信息放在全局数组 users 中，注册用户数(最多 10 个)放在全局变量 n 中(均已在标准模块中定义)。注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应的错误信息。标准模块中函数 finduser()的功能是：在 users 数组中搜索用户名(即参数 ch)，找到则返回该用户名在us
10、ers 中的位置，否则返回 0。已经给出了所有控件和程序，但程序不完整，在 Form2、Form3 窗体文件中的横线处填写正确的内容。注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。题目提供的源程序1标准模块源程序Option Base 1Public users(10,2) As StringPublic n As IntegerPublic Function finduser(ch As String) As IntegerFor k=1 To 10If users(k,1)=ch Thenfinduser=kExit FunctionEnd IfNext kfindus
11、er=0End Function2Form1 源程序Private Sub Command1_Click()Form2.Text1=“Form2.Text2=“Form2.Text3=“Label1.Caption=“Form2.ShowEnd SubPrivate Sub Command2_Click()Form3.Text2=“Label1.Caption=“Form3.ShowEnd Sub3Form2 源程序Private Sub Command1_Click()Text1=“Text2=“Text3=“End SubSub writeusers()n=n+ (1) users(n,1
12、)=Text1users(n,2)=Text2End SubPrivate Sub Command2_Click()If Text1=“ ThenMsgBox(“必须输入用户名!“)Text1.SetFocusElseIf finduser(Trim $ (Text1) (2) ThenMsgBox(“此用户名已经存在!“)ElseIf Text2Text3 ThenMsgBox(“口令验证错误!“)Elsewriteusers(3) =“注册成功!“Form2.HideEnd IfEnd Sub4Form3 源程序Private Sub Command1_Click()k=finduser(
13、Trim $ (Text1)If k= (4) ThenMsgBox(“没有注册!“)ElseIf Trim $(Text2) users( (5) ) ThenMsgBox(“口令错误!“)ElseForm1.Label1.Caption=“登录成功!“Form3.HideEnd IfEnd Sub（分数：30.00）_二级 VISUAL+BASIC 机试-125 答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1
14、的窗体上画一个名称为 Picture1 的图片框(PictureBox)，高、宽均为 1000。在图片框内再画一个有边框的名称为 Image1 的图像框(Image)。并通过属性窗口把考生目录下的图标文件Point11(香蕉图标)装入图像框 Image1 中，如图 1 所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。（分数：15.00）_正确答案：(操作步骤第 1 步：建立一个新的标准 EXE 工程，保持窗体所有属性不变。第 2 步：添加一个图片框控件，将其 Width 和 Height 都设置为 1000。第 3 步：在图片框上画一
15、个图像框控件，将其 BorderStyle 属性设置为 1-Fixed Single；保持图像框为选中状态，单击其 Picture 属性，再单击“选取文件”按钮，在弹出的“加载图片”对话框中选中考生目录下的图标文件 Point11.ICO，再单击“打开”按钮。第 4 步：调试、运行并保存程序。)解析：解析 本题主要考查图片框(PictureBox)和图像框(Image)控件的使用。PictureBox 是一个容器型控件，可以在 PictureBox 控件上面加上其他控件。这些控件随 PictureBox 移动而移动，其 Top 和Left 属性是相对 PictureBox 而言，与窗体无关。在
16、 PictureBox 控件上绘制其他控件时，鼠标的起始位置必须在图片框范围内。PictureBox 和 Image 控件都可以显示图片，图片内容由 Picture 属性决定。(2).在名称为 Form1 的窗体上有一个名称为 Command1、标题为“保存文件”的命令按钮，再画一个名称为 CommonDialog1 的通用对话框。要求：通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为 out2。运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框。如图 2 所示。*注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考
17、生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：15.00）_正确答案：(操作步骤第 1 步：建立一个新的标准 EXE 工程，保持窗体所有属性不变。第 2 步：在窗体上添加一个命令按钮控件，将其 Caption 属性设置为“保存文件”。第 3 步：添加外部控件。右键单击工具箱，并在弹出的快捷菜单上选择“部件”菜单，在弹出的“部件”对话框中找到 Microsoft Common Dialog Control 6.0(SP6.0)选项，并在其前面的复选框上单击打上勾号，再单击对话框中的“确定”按钮。此时，工具箱上会添加上一个通用对话框(CommonDialog)
18、控件按钮，在窗体上建立一个通用对话框。第 4 步：设置通用对话框的属性，如表 1 所示。表 1 属性名 属性值FileName Out2 DialogTitle 保存文件第 5 步：编写代码。编写命令按钮的 Click 事件过程。Private Sub Command1_Click()CommonDialog1.ShowSaveEnd Sub第 6 步：调试并运行程序。最后按题目要求保存工程。)解析：解析 本题需要用到外部控件 Microsoft Common Dialog Control，使用外部控件前需要先加载外部控件到工具箱中。二、简单应用题(总题数：1，分数：40.00)完成下列问题：
19、（分数：40.00）(1).在考生目录下有一个工程文件 sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为 Label1 的标签，和其他一些控件(如图 3 所示)。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图 4 所示)；若用鼠标右键单击圆的边线，则指针恢复到起始位置(如图 3 所示)；若鼠标左键和右键单击其他位置，则在标签上显示“鼠标位置不对”。*文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，在程序中的横线处填写正确的内容。程序中函数 oncircle()的作用是判断鼠标单击位置是否在圆的边线上(判断结果略有
20、误差)，“是”则返回 True，“否”则返回 False。符号常量 x0、y0 是圆心距窗体左上角的距离；符号常量radius 是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。题目提供的源程序Const y0&=1110, x0&=1100, radius&=750Private Function oncircle(X As Single, Y As Single) As Booleanprecision=55000If Abs(X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius)precision Thenoncirc
21、le=TrueElseoncircle=FalseEnd IfEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Const LEFT_BUTTON=1If oncircle(X,Y)ThenLinel.X1=x0Line1.Y1=y0If Button=LEFT_BUTTON ThenLine1.X2=XLine1.Y2= (1) ElseLine1.X2=Line1. (2) Line1.Y2=y0- (3) End IfLabel1.Cap
22、tion=“Else(4) =“鼠标位置不对“End IfEnd Sub（分数：20.00）_正确答案：(操作步骤第 1 步：打开工程文件 sjt3.vbp。第 2 步：修改源程序。第 3 步：调试、运行并保存程序。1Y 2X1 3radius 4Label1)解析：解析 在 Form_MouseDown 事件过程中，先用函数 oncircle()来判断鼠标单击的位置(X，Y)是否在圆的边界上：若鼠标单击的位置不在边界上，则在标签上显示“鼠标位置不对”，所以4处应填Label1 或 Label1.Caption；若鼠标单击的位置在边界上，再根据单击的是鼠标左键还是右键来决定直线的显示位置。直线
23、 Line1 由它的端点坐标(X1，Y1)和(X2，Y2)控制位置。(2).在考生目录下有一个工程文件 sjt4.vbp，窗体如图 5 所示。其功能是单击“输入数据”按钮，则可输入一个整数 n(要求：8=n=12)；单击“计算”按钮，则计算 1!+2!+3!+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的 out4.dat 文件中。*文件中已经给出了所有控件和程序，但程序不完整，在程序中的横线处填写正确的内容，并编写“计算”按钮的 Click 事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成
24、绩。最后把修改后的文件按原文件名存盘。题目提供的源程序Dim n As IntegerPrivate Sub Command1_Click()n=Val(InputBox(“请输入整数(8-12)“, “输入“)If n (1) Or n8 ThenMsgBox(“数据错误,请重新输入“)Command2.Enabled=FalseCommand3.Enabled=FalseElseCommand2.Enabled=TrueCommand3.Enabled=TrueEnd IfEnd SubPrivate Sub Command2_Click()Dim s As Long, k As Inte
25、ger考生应编写的程序End SubFunction f(n As Integer) As Longs= (2) For k=2 To ns=s*kNextf= (3) End FunctionPrivate Sub Command3_Click()Open App.Path & “/out4.dat“ For Output As #1Print #1, n, Text1Close #1End Sub（分数：20.00）_正确答案：(操作步骤第 1 步：打开工程文件 sjt4.vbp。第 2 步：分析并编写程序。Command2_Click()事件过程参考程序如下：Private Sub Co
26、mmand2_Click()Dim s As Long, k As Integer考生应编写的程序s=0For k=1 To ns=s+f(k)Next kText1=sEnd Sud第 3 步：调试、运行并保存程序。112 21 3s)解析：解析 程序在 Command1_Click 过程中通过 Val()和 InputBox()函数取得输入的值 n，如果 n 不在要求的范围内，则弹出提示对话框，并使 Command2 和 Command3 不可用。第1个横线位置的表达式应表示出数值不在范围内的条件“大于 12 或者小于 8”，故第1个横线处填 12。函数 f()的作用是求自然数 n 的阶乘
27、，算法是：设置变量 s，初值为 1；通过循环把 k 值连乘到 s 上；最后把阶乘值 s 赋值给函数名 f 作为函数的返回值。Command2_Click()事件过程中可运用循环语句的累加实现表达式的求和运算。Command3_Click()事件过程的作用是实现数据的存盘处理。三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5.vbp，其中含 3 个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上的按钮时将弹出对应窗体以进行注册和登录。注册信息放在全局数组 users 中，注册用户数(最多 10 个)放在全局变量 n 中(均已在
28、标准模块中定义)。注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应的错误信息。标准模块中函数 finduser()的功能是：在 users 数组中搜索用户名(即参数 ch)，找到则返回该用户名在users 中的位置，否则返回 0。已经给出了所有控件和程序，但程序不完整，在 Form2、Form3 窗体文件中的横线处填写正确的内容。注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。题目提供的源程序1标准模块源程序Op
29、tion Base 1Public users(10,2) As StringPublic n As IntegerPublic Function finduser(ch As String) As IntegerFor k=1 To 10If users(k,1)=ch Thenfinduser=kExit FunctionEnd IfNext kfinduser=0End Function2Form1 源程序Private Sub Command1_Click()Form2.Text1=“Form2.Text2=“Form2.Text3=“Label1.Caption=“Form2.Sho
30、wEnd SubPrivate Sub Command2_Click()Form3.Text2=“Label1.Caption=“Form3.ShowEnd Sub3Form2 源程序Private Sub Command1_Click()Text1=“Text2=“Text3=“End SubSub writeusers()n=n+ (1) users(n,1)=Text1users(n,2)=Text2End SubPrivate Sub Command2_Click()If Text1=“ ThenMsgBox(“必须输入用户名!“)Text1.SetFocusElseIf findus
31、er(Trim $ (Text1) (2) ThenMsgBox(“此用户名已经存在!“)ElseIf Text2Text3 ThenMsgBox(“口令验证错误!“)Elsewriteusers(3) =“注册成功!“Form2.HideEnd IfEnd Sub4Form3 源程序Private Sub Command1_Click()k=finduser(Trim $ (Text1)If k= (4) ThenMsgBox(“没有注册!“)ElseIf Trim $(Text2) users( (5) ) ThenMsgBox(“口令错误!“)ElseForm1.Label1.Caption=“登录成功!“Form3.HideEnd IfEnd Sub（分数：30.00）_正确答案：(操作步骤第 1 步：打开工程文件。第 2 步：分析并编写程序。第 3 步：保存工程。11 20 3Form1.Label1 40 5n,2)解析：解析 本题窗体和模块较多，首先要理清思路，了解每一个窗体的功能。窗体 1 是启动界面，可以选择登录或注册；窗体 2 是注册窗口，实现用户的注册；窗体 3 是登录窗口，实现用户的登录；标准模块中函数的功能是在数组中寻找用户名，并返回其所在的位置。
