1、国家二级 VB机试（上机操作）模拟试卷 320及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 L1，标题为“业余爱好”的标签，再添加一个名称为 Ch1的复选框数组，含 3个复选框，它们的 Index属性分别为 0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态如下表所示。 程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名保存为sjt1frm。 (2)在名称为 Form1的窗体上添加一个名称为 Text1的文本
2、框；再建立一个下拉菜单，菜单标题为“操作”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和 Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，在程序运行时，单击“输入整数”按钮，输入一个
3、整数，并在窗体上显示此整数的所有不同因子和因子个数。图 1是输入 53后的结果，图 2是输入 100后的结果。已经给出了全部控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4vbp。在其窗体中“待选城市”下的 List1列表框中有若干个城市名称。程序运行时，选中 List1中若干个列表项(如图 1所示)，单击“选中”按钮则把选中的项目移到 List2中，单击“显示”，则在 Text1文本框中显示这些选中的城市(如图 2所示)。
4、已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 Sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后单击窗体，将把文件 dataint
5、xt 中的数据输入二维数组 Mat中，按5行 5列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 320答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 L1，标
6、题为“业余爱好”的标签，再添加一个名称为 Ch1的复选框数组，含 3个复选框，它们的 Index属性分别为 0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态如下表所示。 程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名保存为sjt1frm。 (2)在名称为 Form1的窗体上添加一个名称为 Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和 Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，
7、文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：建立界面，按照题目要求建立一个名称为L1，Caption 属性为“业余爱好”的标签和 1个名称为 ch1的复选框数组，包含 3个复选框，并设置其相应属性，如图 324 所示。 设置其他控件相关属性，程序中用到的控件及属性见表 324。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (
8、2) 【操作步骤】 步骤 1：新建一个“标准EXE”工程，在窗体中绘制一个文本框，在属性设置窗口中将其 Name属性值设置为 Text1。打开菜单编辑器，按表 325 设置建立菜单项。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图 1是输入 53后的结果，图 2是输入 100后的结果。已经给出了全部控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用
9、原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4vbp。在其窗体中“待选城市”下的 List1列表框中有若干个城市名称。程序运行时，选中 List1中若干个列表项(如图 1所示)，单击“选中”按钮则把选中的项目移到 List2中，单击“显示”，则在 Text1文本框中显示这些选中的城市(如图 2所示)。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步
10、骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 Private Sub Command1_Click() Dim n As Integer ClS清空窗体 n=InputBox(”请输入一个整数”)In-putBox 返回值赋给 n Print “因子数=“；fun(n)调用fun函数并打印结果 End Sub Function fun(m AS Integer) Dim S AS Integer S=0 For k=1 To Abs(m)2 If m Mod k=n Then当整除余数为 0时则一定是它的因子 s=s+1 Print k E
11、nd If Next k fun =a返回因子总数 End Function 程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 Private Sub Command1_Click() Dim k For k=List1ListCount 一 1 To 0 step-1 k从最大到 0，则步长应为一 1 If List1Selected(k)=True Then List2 AddItem List1.List(k)添加项到 List2中 List1Remo
12、veItem k 通过下标删除 List1中的项目 End If Next k End Sub Private Sub Command2 Click() Dim k Text1=”已经选中的城市有：” For k=0 To LiSt2ListCount 一 1 Step 1 Text1=Text1.Text“&List2 List(k) 将 List2中的项目连接在Text1中的内容之后 Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 Sjt5vbp，相应的窗体文件为 sjt
13、5frm，此外还有一个名为dataintxt 的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后单击窗体，将把文件 dataintxt 中的数据输入二维数组 Mat中，按5行 5列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的
14、其他部分。最后将修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Option Base 1 Private Sub Form_Click() ConSt N=5 Cnn St M=5 Dim Mat(N,M)As Integer定义二维数 组 Dim i，j，t Open AppPath“”dataintxt” For Input As #1 对文件进行读操作 For i=1 To N For j=1 To M Input #1,Mat(i,j)将数据
15、读入数组 Mat中 Next j Next i Close #1 Print Print”初始矩阵为：” Print For i=1 To N For j=1 To M Print Tab(5*j)；Mat(i，j)； Next j Print Next i For i=1 To N完成第二列和第四列的交换 t=Mat(i，2) Mat(i，2)=Mat(i，4) Mat(1,4)=t将 t的内容赋给 Mat(i，4)，完成交换 Next i Print Print”交换第二列和第四列后的矩阵为：” Print For i=1 To N For j=1 To M Print Tab(5*j)；Mat(i，j)；将转换后的结果打印在窗体上 Next j Print Next i End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
