1、国家二级 VB 机试（上机操作）-试卷 136 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Picturel 的图片框(PictureBox)，高、宽均为 1000。在图片框内再画一个有边框的名称为Imagel 的图像框(Jmage)。并通过属性窗口把考生目录下的图标文件 POINTll(香蕉图标)装入图像框Imagel 中，如图 3116 所示。 注意：存盘时必须存放在考生文件灾下，工程文件名为sitlvbp
2、，窗体文件名为 sjtlfrm。(2)在名称为 Forml 的窗体上画一个名称为 Command1、标题为“保存文件”的命令按钮，再画一个名称为 CommonDialogl 的通用对话框。要求：通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为 out2；运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。如图 3117 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sit3vbp，窗体上有一个圆和一条直线(直线的名称为 Linel)构成一个钟表的图案；有两个命令按钮，名称分别为 Co
3、mmand1、Command2，标题分别为“开始”、“停止”；还有一个名为 Timer1 的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即Lfinel)开始顺时针旋转(每秒转 6，一分钟转一圈)；单击“停止”按钮，则指针停止旋转。运行时的窗体如图 380 所示。 请设置计时器的适当属性，使得每秒激活计时器的 Timer 事件一次，并编写两个按钮的 Click 事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp，
4、窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Textl 中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 381 所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 362 所示)和部分程序。程序运行时，请按以下顺序操作：1)单击“读入文件”按钮，把考生目录下的文件 in5dat 中的内容读入内存并显
5、示在上面的文本框(Text1)中；2)单击“加密”按钮，则可对 Textl 中的内容进行加密并显示在下面的文本框(Text2)中。3)单击“存结果”按钮则把 Text2 中的内容存到 out5dat 文件中。加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符(若为“Z”则变为“A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符(若为“A”则变为“Z”)，不是字母则不变。大小写字母都遵循此规则。例如：若原有的字符是：AbbaZGHaMnnKYzx 则加密后的字符是：BaczAFGb-NmoiXaw已经给出“存结果”按钮的 Click 事件过程和函数 islett
6、er，函数 isletter(aAsString)判断变量 a 中是否为一个字母，若是则返回 True，否则返回 False，可以直接调用。请编写“读入文件”按钮和“加密”按钮的 Click 事件过程，以实现上述功能。(in5dat 文件中只含英文单词和空格，不分段落和行)注意：考生不得修改已经存在的程序，必须用“存结果”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 136 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic
7、 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Picturel 的图片框(PictureBox)，高、宽均为 1000。在图片框内再画一个有边框的名称为Imagel 的图像框(Jmage)。并通过属性窗口把考生目录下的图标文件 POINTll(香蕉图标)装入图像框Imagel 中，如图 3116 所示。 注意：存盘时必须存放在考生文件灾下，工程文件名为sitlvbp，窗体文件名为 sjtlfrm。(2)在名称为 Forml 的窗体上画一个名称为 Command1、标题为“保存文件”的命令按钮，再画一个名称为 CommonDialogl 的通用对话框。要求：通过
8、属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为 out2；运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。如图 3117 所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，选择【工程】【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoftCommon Dialog Control60”项目，单击“确定“按钮。 步骤 2： 在窗
9、体 Forml 上画一个通用对话框和一个命令按钮并设置相关属性。 步骤 3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。 Private Sub Commandl Click() CommonDialoglAction=2 或 CommonDialoglshowSave End Sub 步骤 4：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sit3vbp，窗体上有一个圆和一条直线(直线的名称为 Linel)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为“开始”、“
10、停止”；还有一个名为 Timer1 的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即Lfinel)开始顺时针旋转(每秒转 6，一分钟转一圈)；单击“停止”按钮，则指针停止旋转。运行时的窗体如图 380 所示。 请设置计时器的适当属性，使得每秒激活计时器的 Timer 事件一次，并编写两个按钮的 Click 事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时
11、，在 Textl 中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 381 所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在属性设置窗口，设置计时器的 Interval 属性值为 1000，Enabled 属性值为 False。 步骤 2：在代码编辑窗口，编写“开始”和“停止”按钮的单击事件过程。 参考代码： Priva
12、te Sub Commandl Click() Timer1Enabled=True End Sub Private Sub Command2 Click() TimerlEnabled=False End Sub 步骤3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： a=Mid$(Text1Text，k，1) ch=ch+Lease(a) Text2=Ch 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数
13、：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 362 所示)和部分程序。程序运行时，请按以下顺序操作：1)单击“读入文件”按钮，把考生目录下的文件 in5dat 中的内容读入内存并显示在上面的文本框(Text1)中；2)单击“加密”按钮，则可对 Textl 中的内容进行加密并显示在下面的文本框(Text2)中。3)单击“存结果”按钮则把 Text2 中的内容存到 out5dat 文件中。加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符(若为“Z”则变为“A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符(若为“A”则变
14、为“Z”)，不是字母则不变。大小写字母都遵循此规则。例如：若原有的字符是：AbbaZGHaMnnKYzx 则加密后的字符是：BaczAFGb-NmoiXaw已经给出“存结果”按钮的 Click 事件过程和函数 isletter，函数 isletter(aAsString)判断变量 a 中是否为一个字母，若是则返回 True，否则返回 False，可以直接调用。请编写“读入文件”按钮和“加密”按钮的 Click 事件过程，以实现上述功能。(in5dat 文件中只含英文单词和空格，不分段落和行)注意：考生不得修改已经存在的程序，必须用“存结果”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存
15、盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5vbp，在代码编辑窗口指定位置编写以下代码： 参考代码： Private Sub Commandl Click() Open“in5dat”For Input As 1 Line Input#1，S Close#1 Text1Text=s End Sub Private Sub Command2 C1ick() Dim i As Intecjer Dim ss As String ss=“” For i=1 To Len(s) If isletter(Mid(s，i，1)=True
16、Then If i MOd 2=0 Then If Mid(s，i，1)=“a”Then ss= ss “Z” Else Tf Mid(s，i，1)=“A”Then SS= SS “Z” Else ss=ssChr(Asc(Mid(s，i，1)一 1) End If Else If Mid(S，i，1)=”Z”Then ss= ss “A” E1sel-f Mid(s， i， 1) = “Z”Then ss=ss & “a” Else ss=ss&Chr(Asc(Mid(s，i，1)+1) End If End If Else ss=ssMid(s，i，1) End If Next Text2Text=ss End Sub 步骤 2：按键运行程序，先单击“读入文件”按钮，接着单击“加密”按钮，然后单击“存结果”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
