1、国家二级 VB 机试（上机操作）-试卷 104 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 Text1 的文本框，其高、宽分别为 400、2000。运行后的窗体如图 278 所示。请在属性框中设置适当的属性满足以下要求： Text1 的字体为“黑体”字号为“四号”； 窗体的标题为“输入”，不显示最大化按钮和最小化按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名为sitlvbp，窗体文件名为 sit1fr
2、m。 (2)在名称为 Forml 的窗体上画一个名称为 Imagel 的图像椎，利用属性窗口装入考生目录下的图像文件 piclbmp，并设置适当属性使其中的图像可以适应图像框大小：再画两个命令按钮，名称分别为 command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100：每单击“向下移动”按钮一次，图像框向下移动 100。运行时的窗体如图 279 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有工程文件 sjt3vbp。程序运行时的窗体如图 21
3、85(a)所示。输入商品名称后，选中一种付款方式，则“成交”按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则把相应信息显示在下面的图片框中，如图 2185(b)所示。若不选任何“服务”，则显示结果如图 2185(c)所示。单击“放弃”按钮，则恢复到图(a)状态。 程序已经给出但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)在考生文件夹下有工程文件 sjt4vbp，其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数 n(例如 30)，单击命令按钮，则在
4、列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于 n 的数。如图 2186(a)所示。若再输入一个更大的整数(如 100)，单击命令按钮，则按上述规律继续追加数字。如图 2186(b)所示。 程序已经给出但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“肩动
5、”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组 users中，注册用户数(最多 10 个)放在全局变量 n 中(均已存标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用，、名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数 finduser 的功能是：在 users 数组中搜索用户名(即参数 ch)，找剑则返回该用户名在 users 中的位置，否则返回 0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符
6、，把 Form2、Form3 窗体文件中的?改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 104 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 Text1 的文本框，其高、宽分别为 400、2000。运行后的窗体如图 278 所示。请在属性框中设置适当的属性满足以下要求： Text1 的字体为“黑体”字号为“四号”；
7、 窗体的标题为“输入”，不显示最大化按钮和最小化按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名为sitlvbp，窗体文件名为 sit1frm。 (2)在名称为 Forml 的窗体上画一个名称为 Imagel 的图像椎，利用属性窗口装入考生目录下的图像文件 piclbmp，并设置适当属性使其中的图像可以适应图像框大小：再画两个命令按钮，名称分别为 command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100：每单击“向下移动”按钮一次，图像框向下移动 100。运行时的窗体如图 279 所示
8、。 （分数：2.00）_正确答案：(正确答案：第 l 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程。 步骤 2：按要求画出控件，并在属性窗口中设置其相天属性，属性及值如表 345 所示。 步骤 4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开“字体”对话框，在其中设置“字体”为“黑体”，“字号”为“四号”。 步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。 步骤 6：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Forml 中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 346
9、 所示。 步骤 2：双击“向右移动”命令按钮，打开代码编辑窗口，在按钮的 Click 事件过程中输入如图 32 所示代码。 步骤 3：双击“向下移动”命令按钮，打开代码编辑窗口，在按钮的 Click 事件过程中输入如图 33 所示代码。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有工程文件 sjt3vbp。程序运行时的窗体如图 2185(a)所示。输入商品名称后，选中一种付款方式，则“成交”按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则把相应信息显示在下面的图片框中，如图 2185(b)所示。若不选任何“服务”，则显示结果如图 2185(c)所示
10、。单击“放弃”按钮，则恢复到图(a)状态。 程序已经给出但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)在考生文件夹下有工程文件 sjt4vbp，其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数 n(例如 30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于 n 的数。如图 2186(a)所示。若再输入一个更大的整数(如 100)，单击命令按钮，则按上述规律继续追加数字。如图
11、 2186(b)所示。 程序已经给出但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit3vbp，打斗代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If Checkl(k)Value=1 Then TextlText=” CommandlEnabled=True 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开
12、考生文件夹下的本题工程文件 sit4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： a=Val(List1List(ListlListCount 一 2) a=b List1AddItem c 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“肩动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组 users中，注册用户数(最多 10 个)放在全局变量 n 中(均已存标准模块中
13、定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用，、名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数 finduser 的功能是：在 users 数组中搜索用户名(即参数 ch)，找剑则返回该用户名在 users 中的位置，否则返回 0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把 Form2、Form3 窗体文件中的?改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： 一注册窗体 Form2 一 n=n+1 ElseIf finduser(Trim$(Textl) 0 Then FormlLabe11Caption=“注册成功!” 一登录窗体Form3 一 If k=0 Then ElseIf Trim$(Text2) users(k， 2) Then 步骤 2：按要求将文件保存至考生文件夹中。)解析：
