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