1、国家二级 VB 机试（上机操作）-试卷 44 及答案解析(总分：10.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.在名称为 Form1、标题为“欢迎”的窗体上画 1 个名称为 Label1 的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图所示。程序执行时，窗体的最大化按钮不可用(如图所示)，请设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 （分数：2.00）_2.在名称为 Form1 的窗体上，画 1 个名称为 Label1
2、 的标签，其标题为“横坐标 X”，且能根据标题内容自动调整标签的大小；再画 1 个名称为 Text1 的文本框，其中的文字显示为空白；再画 1 个名称为Picture1 的图片框，大小适中即可。要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框 Text1 中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.在考生文件夹下有一个工程文件 sjt3vb
3、p。程序的功能是：1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为 jpg 的文件。2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中。3)“下一张”命令按钮的功能：选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第 1 个图片文件开始)。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经
4、存在的控件和程序，最后将程序按原文件名存盘。 （分数：2.00）_4.在考生文件夹下有一个工程文件 sjt4vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图 1 所示。 若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图 2 所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)5.在考生文件夹下有一个工程文件 sjt5vbp。程序运行时，单击“显示
5、数据”按钮，则将考生文件夹下in5dat 文件的内容读入一维数组 a 中，并按下标顺序将数组 a 各元素的值显示在 List1 列表框中；单击“移动”按钮，则将数组 a 中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在 List2 列表框中。单击“保存”按钮。则保存移动后的结果。要求：“显示数据”和“保存”按钮的 Click 事件过程已经给出，请编写“移动”按钮的 Click 事件过程实现上述功能。程序窗体界面如图所示。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击“移动”按钮，并单击“保存”按钮保存结果，否则无成绩。最后程序按原文件名
6、存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 44 答案解析(总分：10.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.在名称为 Form1、标题为“欢迎”的窗体上画 1 个名称为 Label1 的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图所示。程序执行时，窗体的最大化按钮不可用(如图所示)，请设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 1
7、：新建一个窗体，在属性窗口中设置窗体的属性，按照表43 所示在属性窗口中设置相应属性，其运行效果如图 43 所示。 步骤 2：在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表 44 所示在属性窗口中设置相应属性，其运行效果如图44 所示。 )解析：2.在名称为 Form1 的窗体上，画 1 个名称为 Label1 的标签，其标题为“横坐标 X”，且能根据标题内容自动调整标签的大小；再画 1 个名称为 Text1 的文本框，其中的文字显示为空白；再画 1 个名称为Picture1 的图片框，大小适中即可。要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框
8、Text1 中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 1：新建一个窗体，在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表 45 所示在属性窗口中设置相应属性，其运行效果如图 45 所示。 步骤 2：在窗体上添加一个文本框控件，在属性窗口中设置文本框的属性，按照表 46 所示在属性窗口中设置相应属性，其运行效果如图 46 所示。 步骤 3：在窗体上添加一个图片框控件，
9、适当调整大小，其运行效果如图 47 所示。 )解析：二、简单应用题(总题数：2，分数：4.00)3.在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为 jpg 的文件。2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中。3)“下一张”命令按钮的功能：选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第 1 个图片文件开始)。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的
10、窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1_Click() If File1ListIndex=-1 Or File1ListIndex=File1LisCount-1Then File1LiStIndex=0 El
11、se If File1ListIndex=0 Then File1ListIndex=File1 ListIndex+1 End If End If ShowInfor End Sub Private Sub File1_DblClick() Call ShowInfor End Sub Private Sub ShowInfor() Label1Caption=AppPath+“”+ File1FileName Image1Picture=LoadPicture(Label1Caption) End Sub Private Sub Form_Load() File1Path=AppPath
12、File1 Pattern=“*jig“ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：4.在考生文件夹下有一个工程文件 sjt4vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图 1 所示。 若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图 2 所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 l：打开本题工程文件。 步
13、骤 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=“Then Exit Sub End If times=0 ostr=Text1Text POS=InStr(1，ostr，fstr) DoWhile pos0 Text1Se
14、lStart= pos Text1SelLength= Len(fstr) times= times+1 Text2Text=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：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)5.在考生文件夹下有一个工程文件 sjt5vbp。程序运行时，单击“显示数据”按钮，则将考生文件夹下
15、in5dat 文件的内容读入一维数组 a 中，并按下标顺序将数组 a 各元素的值显示在 List1 列表框中；单击“移动”按钮，则将数组 a 中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在 List2 列表框中。单击“保存”按钮。则保存移动后的结果。要求：“显示数据”和“保存”按钮的 Click 事件过程已经给出，请编写“移动”按钮的 Click 事件过程实现上述功能。程序窗体界面如图所示。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击“移动”按钮，并单击“保存”按钮保存结果，否则无成绩。最后程序按原文件名存盘。 （分数：2.00）_
16、正确答案：(正确答案：操作步骤 步骤 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 List2AddItem(a(maxindex) For imaxindex Then List2AddItem(a(i) End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
