1、国家二级 VB机试（上机操作）模拟试卷 142及答案与解析 一、基本操作题 1 在名称为 Form1、标题为 “欢迎 ”的窗体上画 1个名称为 Label1的标签，其标题内容为 “欢迎使用本系统 ”，标题文字字体和字号分别为 “宋体 ”、 “三号 ”，标签大小能根据标题内容自动调整，效果如图所示。程序执行时，窗体的最大化按钮不可用(如图所示 )，请设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上，画 1个名称为 Label1的标签，其标题 为 “横坐标 X”，且能根据标题内容自动调整标签的大小；
2、再画 1个名称为 Text1的文本框，其中的文字显示为空白；再画 1个名称为 Picture1的图片框，大小适中即可。要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为 jpg的文件。 2)双击文件列表框中某个图片
3、文件名时，能在图像框中显示出该张图片，并将该图片文件的信息 (包括路径及文件名 )显示到标签中。 3)“下一张 ”命令按钮的功能：选中并显示上次选中文件的下一个图片文件 (如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第 1个图片文件开始 )。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件 过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。程序的功
4、能是：程序运行时，文本框中显示一篇英文短文，单击 “查找 ”按钮时可输入查找内容，如图 1所示。若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示 (即呈选中状态 )，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图 2所示，若单击提示对话框的 “是 ”按钮，则继续向后查找；若单击 “否 ”按钮，则终止查找。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sj
5、t5 vbp。程序运行时，单击 “显示数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入一维数组 a中，并按下标顺序将数组 a各元素的值显示在 List1列表框中；单击 “移动 ”按钮，则将数组 a中的最大值移动到数组的最前面，其他数据的排列顺序不 变，并将移动后的结果显示在 List2列表框中。单击 “保存 ”按钮。则保存移动后的结果。要求： “显示数据 ”和 “保存 ”按钮的Click事件过程已经给出，请编写 “移动 ”按钮的 Click事件过程实现上述功能。程序窗体界面如图所示。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击 “移动 ”按钮，并单击
6、 “保存 ”按钮保存结果，否则无成绩。最后程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 142答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：新建一个窗体，在属性 窗口中设置窗体的属性，按照表 4 3所示在属性窗口中设置相应属性，其运行效果如图 4 3所示。步骤 2：在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表 4 4所示在属性窗口中设置相应属性，其运行效果如图 4 4所示。 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1：新建一个窗体，在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表 4
7、 5所示在属性窗口中设置相应属性，其运行效果如图 4 5所示。 步骤 2：在窗体上添加一个文本框控件，在属性窗口中设置文本框 的属性，按照表 4 6所示在属性窗口中设置相应属性，其运行效果如图 4 6所示。步骤 3：在窗体上添加一个图片框控件，适当调整大小，其运行效果如图 4 7所示。步骤 4：双击 “左击 ”按钮，打开代码编辑窗口，在代码编辑窗口中添加Picture1_MouseMove事件，并编写以下代码。编写程序代码。参考代码 (画下划线部分是需填入的内容 )Private Sub Picture1_MouseMove(Button AsInteger， Shift As Integer
8、 X As Single， Y As Single)TExt1 TeXt=XEnd sub步骤 5：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() IfFile1 ListIndex=-1Or File1 ListIndex=File1 Lis Count-1Then File1 LiStIndex=0 Else If File1 ListInd
9、ex =0 Then File1 ListIndex=File1 ListIndex+1 End If End If ShowInfor End Sub Private Sub File1_DblClick() Call ShowInfor End Sub Private Sub ShowInfor() Label1 Caption=App Path+“”+File1 FileName Image1 Picture=LoadPicture(Label1 Caption) End Sub Private Sub Form_Load() File1 Path=App Path File1 Patt
10、ern=“* jig“ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 l：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填 入的内容 ) Private Sub Command1_Click() Dim fstr As String， ostr As String Dim times As Integer， pos As Integer Dim ans As Integer fstr=InputBox(“输入待查内容 “， “查找 “) If fstr=“T
11、hen Exit Sub End If times=0 ostr=Text1 Text POS=InStr(1， ostr， fstr) DoWhile pos 0 Text1 SelStart=pos Text1 SelLength=Len(fstr) times=times+1 Text2 Text=timeS ans=MsgBox(“找到了，是否继续查找 ?“， vbYesNo) If ans=vbYes Then pos=pos+Len(fstr) pos=InStr(pos， ostr， fstr) Else Exit Do End It Loop End Sub 步骤 3：调试并运
12、行程序，关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Dim i， max， maxindex As Integer max=a(1) For i=2 To UBound(a) If a(i) max Then max=a(i) maxindex=i End If Next i List2 AddItem(a(maxindex) For i maxindex Then List2 AddItem(a(i) End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
