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