国家二级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版点下载