国家二级VB机试(上机操作)模拟试卷569(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷569(题后含答案及解析)
题型有：1.jpg /> 要求：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

(2)在名称为Forml的窗体上添加一个名称为Label1的标签，使其初始内容为空，且能根据其标题内容自动调整标签的大小；再添加两个命令按钮，标题分别为“日期”和“时间”，名称分别为Command1、Command2。

请编写两个命令按钮的Click事件过程，使得单击“13期”按钮时，标签内显示系统当前13期；单击“时间”按钮时，标签内显示系统当前时间。

如图所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sit2．frm。

正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件，程序中用到的控件及属性见表4．52。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

(2)【操作步骤】步骤1：建立界面，添加相应控件并设置控件的属性。

程序中用到的控件及属性见表4．53。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub Commandl_Click( ) Labell=Date’用于返回系统当前日期End Sub Private Sub command2_Click( ) Label1=Time’用于返回系统当前时间End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析：(1)窗体的Caption属性用来设置窗体的标题，框架的Name和Caption 属性用来设置框架的名称和标题，复选框的Name和Caption属性用来设置复选框的名称和标题。

(2)通过标签的Name和Caption属性设置标签的名称和标题，AutoSize属性实现标题内容的自动调整，通过命令按钮的Name和Caption 属性设置命令按钮名称和标题，Date( )函数用于返回系统日期，Time( )函数用于返回系统时间。

简单应用题
2．(1)在名称为Forml的窗体上添加一个名称为L1的标签，标题为“口令”；添加两个文本框，名称分别为Text1、Text2，初始内容为空；再添加三个命令按钮，名称分别为C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”。

在程序开始运行时，向Text1中输入的所有字符，都显示为“*”，单击“显示口令”按钮后，在Text1中显示所有字符，再单击“隐藏口令”按钮后，Text1中的字符不变，但显示的都是“?”，单击“复制口令”后，把Text1中的实际内容复制到Text2中，如图所示。

要求：①在属性窗口中，将窗体的标题改为“口令窗口”：②建立适当的事件过程，完成上述功能。

每个过程巾只允许写一条语句，且不能使用变量。

注意：存盘时，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm (2)在名称为Forml的窗体上添加一个名称为P1的图片框，并利用属性窗口把考生文件夹中的图标文件Open．ico 放到图片框中；再添加一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打开对话框时：标题为”打开文件”，文件类型为“’Word文档”，初始文件夹为C盘根文件夹。

再编写适当的事件过程，使得程序在运行时，单
击P1图片框，可以打开上述对话框。

程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt4．vbp，窗体文件名保存为sjt4．frm。

程序中不得使用任何变量。

正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置相应的属性，程序中用到的控件及其属性见表4．26和表4．27。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub C1_Click( )。

显示口令Text1．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：新建一个窗体，按照题目要求建立控件，程序中用到的控件及其属性见表4．28。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub P1_Click( ) CD1．ShowOpen’显示”打开文件”对话框End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析：(1)PasswordChar属性用于屏蔽文本框中的内容，如果要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。

(2)通用对话框的Action属性用于设置被打开对话框的类型。

当通用对话框显示为“打开”或“另存为”类型时，其FileName属性用于返回或设置所选文件的路径和文件名。

Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。

通用对话框的InitDir属性用于为“打开”或“另存为”对话框指定初始的目录，如果此属性没有指定，则使用当前目录。

综合应用题
3．在考生文件夹下有一个工程文件sjt5．vbp。

在窗体文件中已经给出了全部控件及部分程序。

程序运行时，在文本框Text1中输入一个大于2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示)。

要求编写“分解为”命令按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。

过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。

注意：不得修改原有程序和控件的属性。

至少正确运行一次程序，且程序运行时在文本框中输入23456，单击“分解为”按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。

正确答案：【操作步骤】步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。

参考答案For i=1 To Val(Text1．Text)’i从1开始，第一个找到的肯定就是满足条件的最小素数If IsPrime(i)And IsPrime(Val(Text1．Text)-i)Then’判定两个数是否都满足素数条件Label1=i Label2=Val(Text1．Text)-i Exit For End If Next i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析：Function IsPrime( )函数用来判断一个数是否为素数，在处理循环变量的上限时，为了节约循环的次数，设置为Sqr(x)为x的平方根，如果x能被循环变量的值整除，lsPrime( )函数的返回值为False，x就不是素数。

在Commandl_Click事件过程中，通过调用函数判断是否为素数，只要出现一组数据满足条件，就停止For循环，这样可以保证是最小的素数。