1、国家二级 VB机试（上机操作）模拟试卷 447及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Picture1的图片框 (PictureBox)，高、宽均为 1000。在图片桁内再添加一个有边框的名称为 Imagel的图像框 (Image)。并通过属性窗口把考生文件夹下的图标文件 Point11(香蕉图标 )装入图像框 Imagel中，如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为Form1的窗体上添加 一个名称为 Command1、标题为 “保存文件 ”的命令按钮，冉
2、添加一个名称为 CommonDialogl的通用对话框。 要求： 运行时单击 “保存文件 ”命令按钮，则以 “保存文件 ”方式打开该通用对话框，如图所示。 通过属性窗口设置适当的属忡，使得程序运行时对话框的标题为 “保存文件 ”，且默认文件名为out2。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。 保存时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为sjt2 frm。 二、简单应用题 2 (1)在名称为 Form1的窗体上添加一个名称为 L1的标签，标题为 “口令 ”；添加两个文本框，名称分别为 Text1、 Text2，初始内容为空；冉添加三个
3、命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “复制口令 ”。在程序开始运行时，向 Texll中输入的所有字符，都显示为 “*”，单击 “显示口令 ”按钮后，在 Text1中显示所有字符，再单击 “隐藏口令 ”按钮后， Text1中的字符不变，但显示的都是 “?”，单击 “复制口令 ”后，把 Text1中的实际内容复制剑 Text2中，如图所示。 要求： 在属性窗口中，将窗体 的标题改为 “口令窗口 ”； 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。注意：存盘时，工程文件名保存为 sjt3 vbp，窗体文件名保存为
4、 sjt3 frm。(2)在名称为 Form1的窗体上添加一个名称为 P1的图片框，并利用属性窗口把学生文件夹中的图标文件 Open ico放到图片框中；再添加一个通用对活框控件，名称为 CD1，利用属性窗口设置相应属性，即打开对话框时：标题为 “打丌文件 ”，文件类型为 “Word文档 ”，初始文件夹为 C盘根文件夹。再编写适当的事件过程，使得程序在运行 时，单击 P1图片框，可以打开上述对话框。程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt4 vbp。窗体文件名保存为 sjt4 frm。程序中不得使用任何变量。三、综合应用题 3 在窗体上建立三个菜单
5、 (名称分别为 Read、 Calc和 Sawe标题分别为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”)，然后再添加一个文本框，名称为 Text1， MultiLine属性设置为 True， ScrollBars属性设置为 2(如网所示 )。程序运行后，如果执行 “读入数据 ”命令则读入考生文件 夹下 datainl txt文件中的 100个整数，放入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击 “存盘 ”按钮，则把所求得的和存入考生文件夹下的 dataout txt文
6、件中。在考生文件夹下有一个工程文件 sjt5 vbp，窗体文件中的 ReadData过程可以把 datainl txt文件中的 100个整数读入 Arr数组中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中 (整数值 通过计算求得，文件名为 dataout txt) 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为 sjt5 vbp窗体文件名仍保存为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 447答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 l：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表
7、3 45。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，按照题目要求建立控件及属性，如表 3 46所示。步骤 2：打开代码编 辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() CommonDialogl ShowSave显示 “保存文件 “对话框 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过图片框的 Name、 width、 Height属性设置图片框的名称、宽度和高度，图像框的 BorderStyle属性设置为 1，表示图像框有边框，图像框的Name属性
8、设置图像框的名称，通过 Picture属性加载考生文件夹下的图标文件。 (2)通过命令按钮： Name和 Caption属性设置命令按钮的名称和标题，通过通用对话框的 Name、 FileName和 DialogTitle属性设置通用对话框名称、默认文件名和对话框标题，在 Command1_Click事件过程中，运用通用对话框的 ShowSave语句弹出 “保存文件 ”对话框。 二、简单应用题 2 【正确答案】 (1)步骤 l：新建一个窗体，按照题目要求建立控件并设置相应的属性，程序中用到的控件及其属性见表 3 26和表 3 27。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参 考答
9、案 Private Sub Cl_Click()显示口令 Text1 PasswordChar=“ 清空 Pass-wordChar的设置使密码显示 End Sub Private Sub C2_Click()隐藏口令 Text1 PasswordChar=”?”将 Pass-wordChar设置为 ?则密码显示 ? End Sub Private Sub C3_Click()复制口令 Text2 Text=Text1 Text End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，按照题目要求建立控件，程序中用到的控件及其属性见表 3 28。步骤
10、 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 PriVate sub P1_Slick() CDl ShowOpen显示 “打开文件 “对话框 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)PasswordChar属性用于屏蔽文本框中的内容，如果要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空。 (2)通用对话框的 Action属性用于设置被打开对话框的类型。当通用对话框显示为 “打开 ”或 “另存为 ”类型时，其 FileName属性用于返回或设置所选文件的路径和文件名。 Filter(过滤器 )属性用于指定
11、在对话框的文件列表中显示文件的类型。 通用对话框的 InitDir属性用于为 “打开 ”或 “另存为 ”对话框指定初始的目录，如果此属性没有指定，则使用当前目录。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体 Form1中绘制一个文本框，其相关属性及其值见表 3 19和表3 20。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 需要考生编写的内容 Dim sum As integer 考生编写程序结束 需要考生编写的内容 Private Sub Calc_Click() Text1 Text=“ Fo
12、r i=2 To 100 Step 2从 2开始循环，以 2为步长的下标都是偶数 Text1 Text=Text1 Text&Arr(i)&SpaCO(5) sum=sum+Arr(i)对下标为偶数的值求和 Next i Print sum End Sub Private Sub Read Click() ReadData调用ReadData子过程 End Sub Private Sub Save Click()调用 Save Click函数 WriteData“dataout txt“， sum End Sub 考生编写程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 根据题意在 “读入数据 ”命令的 Click事件过程中，通过调用ReadData过程将数据从 datain1 txt文件读入到数组 Arr(窗体变量 )中；在 “计算并输出 ”命令的 Click事件过程中，在 For循环语句 (循环变量 i的初值为 2，终值为 100，步长为 2)中依次将数组 Arr中下标为偶数的元素显示在文本框中，并将其值累加到变量 sum；在 “存盘 ”命令的 Click事件过程中，通过调用 WriteData过程将 sum的值写入数据文件 dataout txt中。
