1、国家二级 VB机试（上机操作）模拟试卷 319及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Picture1的图片框 (PictureBox)，高、宽均为 1000。在图片框内再添加一个有边框的名称为 Imagel的图像框 (Image)。并通过属性窗口把考生文件夹下的图标文件 Pointl1(香蕉图标 )装入图像框 Image1中，如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一 个名称为 Command1、标题为 “保存文件 ”的命令按钮，再
2、添加一个名称为 CommonDialog1的通用对话框。 要求： 运行时单击 “保存文件 ”命令按钮，则以 “保存文件 ”方式打开该通用对话框，如图所示。 通过属性窗口设置适当的属性，使得程序运行时对话框的标题为 “保存文件 ”，且默认文件名为out2. 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。 保存时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为sjt2 frm。 二、简单应用题 2 (1)在名称为 Form1的窗体上添加一个名称为 L1的标签，标题为 “口令 ”；添加两个文本框，名称分别为 Text1、 Text2，初始内容为空；再添加三个
3、命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “复制口令 ”。在程序开始运行时，向 Text1中输入的所有字符，都显示为 “*”，单击 “显示口令 ”按钮后，在 Text1中显示所有字符，再单击 “隐藏口令 ”按钮后， Text1中的字符不变，但显示的都是 “?”，单击 “复制口令 ”后，把 Text1中的实际内容复制到 Text2中，如图所示。 要求： 在属性窗口中，将窗体的 标题改为 “口令窗口 ”： 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。 注意：存盘时，工程文件名保存为 sjt3 vbp，窗体文件名保存
4、为 sjt3 frm。(2)在名称为 Form1的窗体上添加一个名称为 P1的图片框，并利用属性窗口把考生文件夹中的图标文件 Open ico放到图片框中；再添加一个通用对话框控件，名称为 CD1，利用属性窗口设置相应属性，即打开对话框时：标题为 “打开文件 ”，文件类型为 “Word文档 ”，初始文件夹为 C盘根文件夹。再编写适当的事件过程，使得程序在运行 时，单击 P1图片框，可以打开上述对话框。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt4 vbp，窗体文件名保存为 sjt4 frm。程序中不得使用任何变量。三、综合应用题 3 在考生文件夹下有
5、一个工程文件 sjt5 vbp，在其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正 确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 319答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 3 45。步骤 2：调试并运行程序，关闭程
6、序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件及属性，如表 3 46所示。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl_Click() CommonDialogl ShowSave显示 ”保存文件 ”对话框 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置相应的属性，程序中用到的控件及其属性见表 3 26和表 3 27。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Pr
7、ivate Sub Cl Click()显示口令 Textl PasswordChar=”清空 PasswordChar的设置使密码显示 End Sub Private Sub C2 Click()隐藏口令 Text1 PasswordChar=”?”将 PasswordChar设置为 ?则密码显示 ? End Sub Private Sub C3 Click()复制口令 Text2 Text=Text1 Text End Sub 步骤 3：调试并 运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件，程序中用到的控件及其属性见表 3 28。
8、步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 PriVate sub P1_Slick() CDl ShowOpen显示 ”打开文件 ”对话框 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改 为正确的内容。 Dim stepy As Integer 纵向移动增量 Dim stepx As Integer 横向移动增量 Const LEFT BUTTON=1 Private Sub Form_MouseDown(Button As
9、Integer t Shift As Integer F X As Single , Y As Single) Dim x0 As Integer， y0 As Integer， a As Single， radius As Integer radius=Shape1 Width 2 圆的半径 If Button=LEFT BUTTON Then 单击鼠标左键移动 x0=Shape1 Left+radius圆心的 x坐标 y0=Shape1 Top+radius圆心的 y坐标 If X=x0 Then垂直移动 stepy=Sgn(yy0)*50 stepx=0 Else倾斜移动 a=(yy0)
10、 (xx0) 斜率 stepx=Sgn(Xx0)*50 stepx=a*stepx 通过 stepx确定 stepy的值 If Abs(stepy) Abs (stepx)Then stepy=Sgn(yy0)* 50 stepx=stepy a End If End If Timer1.Enabled=True单击鼠标左键则触发 Timer事件 Else Timer1.Enabled=False单击鼠标右键则停 止 Timer事件 End If End Sub Private Sub Timer1 Timer() Shape1 Move Shape1 Left+stepx， Shape1 Top+stepy移动 shape1 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
