1、二级 VISUAL+BASIC 机试-82 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 C：/wexam/25160002。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上画一个名称为 Command1 的命令按钮，标题为“打开文件”，再画一个名称为 CD1 的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性并编写代码：设置适当属性，使对话框的标题为“打开文件”；设置适当属性，使对话框的“文件类型”
2、下拉式组合框中有二行：“文本文件”、“所有文件”，如图 23-1 所示，默认的类型是“所有文件”；编写代码，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。(2) 在名称为 Form1 的窗体上画一个命令按钮，名称为 Command1，标题为“移动本按钮”，如图 23-2 所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次， 按钮向左移动 100。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为
3、 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 C：/wexam/25160002。(1) 在名称为 Form1 的窗体上画一个名称为 Label1，标题为“添加项目：”的标签；画一个名称为 Text1 的文本框，没有初始内容；画一个名称为 Combo1 的下拉式组合框，并通过属性窗口输入若干项目 (不少于 3 个，内容任意)；再画两个命令按钮，名称分别为 Command1 和 Command2，标题分别为“添加”和“统计”。在运行时，向 Text1 中输入字符，单击“添加”按钮
4、后，则 Text1 中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图 23-3 所示。请编写两个命令按钮的 Click 事件过程。注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为 sjt3.frm。(2) 在考生文件夹下有一个工程文件 sjt4.vbp，其窗体如图 23-4 所示。该程序用来对在上面文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字 n，
5、把明文中的每个字母改为它后面的第 n 个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 C：/wexam/25160002。在考生文件夹下有一个工程文件 sjt5.vbp，窗体上二有两个文本框，名称分别为 Text1 和 Text2，都可以多行显示。还有 3 个命令按钮，名称分别为
6、C1、C2 和 C3，标题分别为“取数”、“排序”和“存盘”。“取数”按钮的功能是把考生文件夹下的 in5.dat 文件中的 50 个整数读到数组中，并在 Text1 中显示出来；“排序”按钮的功能是对这 50 个数按升序排序，并显示在 Text2 中；“存盘”按钮的功能是把排好序的 50 个数存到考生文件夹下的 out5.dat 文件中。程序运行界面如图 23-5 所示。在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的 Click 事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后
7、的文件按原文件名存盘。（分数：30.00）_二级 VISUAL+BASIC 机试-82 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 C：/wexam/25160002。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上画一个名称为 Command1 的命令按钮，标题为“打开文件”，再画一个名称为 CD1 的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性并编写代码：设置适当属性，使对话框的标题为“打开文
8、件”；设置适当属性，使对话框的“文件类型”下拉式组合框中有二行：“文本文件”、“所有文件”，如图 23-1 所示，默认的类型是“所有文件”；编写代码，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。(2) 在名称为 Form1 的窗体上画一个命令按钮，名称为 Command1，标题为“移动本按钮”，如图 23-2 所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次， 按钮向左移动 100。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：
9、存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_正确答案：(解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。在 Visual Basic 中，命令按钮的名称由 Caption 属性设置。通用对话框的属性可以在属性窗口中直接设置。将 CommonDialog 的 Name 属性设置为 CD1，文件类型在 CommonDialog 的 Filter 属性中设置，其格式为：文件说明|文件类型本题应在 Filter 属性中设置为：文本文件|*.txt|所有文件|*.*。解题步骤：第一步：建立界面并设置控件属性。程序中用到的
10、控件及属性设置见表 23-1。表 23-1控 件 属 性 设 置 值按钮 Caption 打开文件通用对话框(名称)DialogTitleFilter CD1打开文件文本文件|*.txt|所有文件|*.*|第二步：编写程序代码。参考代码：Option ExplicitPrivate Sub Command1_Click()CD1.ShowOpenEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。在 Visual Basic 中，按钮的标题由 Caption 属性设置。要使命令按钮向左移动，须用到按钮的 Left属性
11、，使其值再每单击一次按钮时减去 100。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表 23-2。表 23-2控 件 属 性 设 置 值按钮 (名称) Caption Command1 移动本按钮第二步：编写程序代码。参考代码：Option ExplicitPrivate Sub Command1_Click()Command1.Left=Command1.Left-100End Sub第三步：调试并运行程序。第四步：按题目要求存盘。答案考生文件夹)解析：二、2 简单应用题(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 C：/wexam/251
12、60002。(1) 在名称为 Form1 的窗体上画一个名称为 Label1，标题为“添加项目：”的标签；画一个名称为 Text1 的文本框，没有初始内容；画一个名称为 Combo1 的下拉式组合框，并通过属性窗口输入若干项目 (不少于 3 个，内容任意)；再画两个命令按钮，名称分别为 Command1 和 Command2，标题分别为“添加”和“统计”。在运行时，向 Text1 中输入字符，单击“添加”按钮后，则 Text1 中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图 23-3 所示。请编写两个命令按钮的 Click 事件过程。注
13、意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为 sjt3.frm。(2) 在考生文件夹下有一个工程文件 sjt4.vbp，其窗体如图 23-4 所示。该程序用来对在上面文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字 n，把明文中的每个字母改为它后面的第 n 个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把
14、程序中的?改为正确的内容。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。（分数：40.00）_正确答案：(解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮和标签的标题在属性窗口的 Caption 属性设置。要使 Text1 的文本框没有初始内容，就在属性窗口中的 Text 属性设为空。要在下拉式组合框中输入内容，通过下拉式组合框在属性窗口的 List 属性设置。AddItem 方法用来项组合框中添加一个表项，其给是为：组合框.Additem 列表项索引ListCount 属性返回组合框中列表项的综合。解题步骤：第一步：建立界面并设置控件属性。
15、程序中用到的控件及属性设置见表 23-3。表 23-3控 件 属 性 设 置 值标签 Caption 添加项目：文本框 Text下拉式组合框 List中国美国英国按钮 Caption 添加按钮 Caption 统计第二步：编写程序代码。参考代码：Option ExplicitPrivate Sub Command1_Click()Combo1.Addltem Text1End SubPrivate Sub Command2_Click()Me.Print Combo1.ListCountEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 首先要确定移动的位数，移动的位数
16、是通过单选框来选择的，移动的值是由单选框的Caption 属性确定的，然后要确定循环的次数，循环的次数是由输入字母的个数确定的。对字符串，需要对字符进行逐个处理。使用 Mid 函数取出字符串中的字符，利用 Ase 函数返回字符的代码，利用 String函数将字符代码转换成字符。Mid 函数的格式为：Mid(字符串，p，n)Mid 函数从第 p 个字符开始，向后截取 n 个字符，p 和 n 都是算术表达式。Mid 函数的第三个变量可以省略，这样将第 p 个字符开始先后截取到字符串的结尾。解题步骤：第一步：分析题目提供的代码。Private Sub Command1_Click()Dim n As
17、 Integer, k As Integer, m As IntegerDim c As String, a As StringFor k=0 To 2If Op1(k) .Value Thenn=Val (Op1 (k) . ? )End IfNext km=Len(Text1.Text)a=“For k=1 To ?c=Mid$(Text1.Text, ?, 1)c=String(1, Asc(c) + n)If c“z“ Or c“Z“ And c“a“ Thenc=String(1, ?)End Ifa=a+cNext kText2.Text=aEnd Sub第二步：修改程序代码。参考
18、代码：Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As StringFor k=0 To 2If Op1(k) .Value Thenn=Val(Op1(k) .Caption)End IfNext km=Len(Text1.Text)a=“For k=1 To mc=Mid$(Text1.Text, k, 1)c=String(1, Asc(c) + n)If c“z“ Or c“Z“ And c“a“ Thenc=String(i, Asc(c)-26)
19、End Ifa=a+cNext kText2.Text=aEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。)解析：三、3 综合应用题(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 C：/wexam/25160002。在考生文件夹下有一个工程文件 sjt5.vbp，窗体上二有两个文本框，名称分别为 Text1 和 Text2，都可以多行显示。还有 3 个命令按钮，名称分别为 C1、C2 和 C3，标题分别为“取数”、“排序”和“存盘”。“取数”按钮的功能是把考生文件夹下的 in5.dat 文件中的 50 个整数读到数组中，并在 Text1 中显示出来；“排序
20、”按钮的功能是对这 50 个数按升序排序，并显示在 Text2 中；“存盘”按钮的功能是把排好序的 50 个数存到考生文件夹下的 out5.dat 文件中。程序运行界面如图 23-5 所示。在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的 Click 事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。（分数：30.00）_正确答案：(解析 首先理清程序提供代码的思路，然后修改程序并编写代码。从程序提供的代码中可以看出，整型数组 a 的使用范围是本窗体中的所有事件
21、过程，用来存放从文件中读取的数据。在排序中，使用双重循环，外循环每踞环一次，确定内循环循环的次数，内循环就是把本次循环中最大的数，放在数组的最后面，这样就可以实现对这 50 个数的升序排序。解题步骤：第一步：分析题目提供的代码。Dim a(50) As IntegerPrivate Sub C1_Click()Dim k As Integer，ch As StringOpen “in5.dat“ For Input AS #1ch=“ “For k=1 To 50Input #1, ?ch=ch+Str(a(k) ) +“ “Next kClose #1Text1.Text= ?End Sub
22、Private Sub C3_Click()Open “out5.dat“ For Output As #1Print #1, Text2.TextClose #1End Sub第二步：编写程序代码。参考代码：Dim a(50) As IntegerPrivate Sub C1_Click()Dim k As Integer, ch As StringOpen “in5.dat“ For Input As #1ch=“For k=1 To 50Input #1, a(k)ch=ch+Str(a(k) ) +“ “Next kClose #1Text1.Text=chEnd SubPrivate
23、 Sub C2_Click()Dim t As Integer, i As Integer, j As IntegerDim ch As Stringch=“For i=50 To 2 Step -1For j=1 To 49If a(j)a(j+1) Thent=a (j+1)a(j+1)=a(j)a(j)=tEnd IfNext jNext iFor j=1 To 50ch=ch+Str(a(j) ) +“ “Next jText2.Text=chEnd SubPrivate Sub C3_Click()Open “out5.dat“ For Output As #1Print #1, Text2.TextClose #1End Sub第三步：调试并运行程序。第四步：按题目要求存盘。)解析：
