1、国家二级 VB机试（上机操作）模拟试卷 362及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1、标题为“列表框练习“的窗体上画一个名称为 List1的列表框，表项内容依次输入XXX、ddd、mmm 和 aaa，且以宋体 14号字显示表项内容，如图 3102(a)所示。最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图 3102(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，工程文件名为 sjtlvbp。 (2)在名称为 Form1的窗体上，画一个名称为 Label1的
2、标签，其标题为“计算机等级考试”，字体为宋体，字号为 12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为 Command1、Command2，标题分别为“缩小”和“还原”的命令按钮(如图 3103 所示)。 要求：编写适当的事件过程，使得单击“缩小”按钮，Label1 中所显示的标题内容自动减小两个字号；单击“还原”按钮，labell 所显示的标题内容的大小自动恢复到 12号。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2frm，工程文件名为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分
3、数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。窗体上已有部分控件。在窗体上画一个名称为 Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图 3-26所示。运行程序时，将在文本框 Text1中显示一段英文短文。 要求：向文本框 Text2中输入一个字符串(例如 enjoy)，然后单击“查找”命令按钮，则判断输入的字符串是否存在于 Text1显示的文本中。如果存在，则显示它在Text1中首次出现的位置(Text1 中第 1个字符的位置为 1)；否则用消息框显示“没有找到!”。 注意：按照题目要求在窗体上添加控件，并设置有关属性。去掉程序中的注释符
4、，把程序中的“?”改为正确的内容。考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组 users中，注册用户数(最多 10个)放在全局变量 n中(均已在标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，
5、若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数 finduser的功能是：在 users数组中搜索用户名(即参数 ch)，找到则返回该用户名在 users中的位置，否则返回 0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把 Form2、Form3 窗体文件中的“?”改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 362答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1、
6、标题为“列表框练习“的窗体上画一个名称为 List1的列表框，表项内容依次输入XXX、ddd、mmm 和 aaa，且以宋体 14号字显示表项内容，如图 3102(a)所示。最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图 3102(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，工程文件名为 sjtlvbp。 (2)在名称为 Form1的窗体上，画一个名称为 Label1的标签，其标题为“计算机等级考试”，字体为宋体，字号为 12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为 Command1、Command2，标题分别为“缩小”
7、和“还原”的命令按钮(如图 3103 所示)。 要求：编写适当的事件过程，使得单击“缩小”按钮，Label1 中所显示的标题内容自动减小两个字号；单击“还原”按钮，labell 所显示的标题内容的大小自动恢复到 12号。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2frm，工程文件名为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，如表 4-62在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”
8、工程，如表 463 在窗体中画出控件并设置其相关属性。 )解析：解析：(1)本题只需新建窗体和控件，然后设置相关属性即可。 (2)程序运行时要改变标签的标题的字体大小，可通过修改其 FontSize属性值来实现。二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。窗体上已有部分控件。在窗体上画一个名称为 Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图 3-26所示。运行程序时，将在文本框 Text1中显示一段英文短文。 要求：向文本框 Text2中输入一个字符串(例如 enjoy)，然后单击“查找”命令按钮，则判断
9、输入的字符串是否存在于 Text1显示的文本中。如果存在，则显示它在Text1中首次出现的位置(Text1 中第 1个字符的位置为 1)；否则用消息框显示“没有找到!”。 注意：按照题目要求在窗体上添加控件，并设置有关属性。去掉程序中的注释符，把程序中的“?”改为正确的内容。考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在窗体中加入一个文本框。按步骤 2：在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： 表 417 设置其相关属性
10、。 )解析：解析：(1)题目要求实现字符串的查找，分析代码可知，变量 strl和 str2分别保存 Text1和Text2文本框的内容，“If Mid(strl，i，n)=RTrim(str2)Then”是比较 strl里面的 i位置开始的 n个字符是否和 str2一样，因此循环搜索是在 strl里面搜索 str2。第一个“?”处是计算 n的值，从 If判断语句里面可知 n的值应和 str2的长度一样；第二个“?”处是补充循环的结束条件，通过循环不断从strl往后找 str2，因此循环结束条件是 strl的长度；第三个“?”是显示找到 str2字符串的位置 i；第四个“?”处是判断没有找到字符
11、串 str2弹出提示对话框，如果循环结束都没有找到 str2，此时循环变量 i会大于 strl的长度。 (2)题目要求点击不同的菜单项的时候对控件的属性进行设置。第一个“?”处是判断 showPic的标题是否是“显示图片”，如果是则改成“清空图片”，否则改成“显示图片”；第二个“?”处是清空图片，使用 LoadPicture函数，传入空参数；第三个“?”处是隐藏图片框，即把Visible属性设置为 False；第四个“?”处是补充打开方式，从 data4dat 读取文件，显示是以 Input方式打开；最后一个“?”处是把从文件读出的内容 s显示在文本框上。三、综合应用题(总题数：1，分数：2.
12、00)3.在考生文件夹下有一个工程文件 sjt5vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组 users中，注册用户数(最多 10个)放在全局变量 n中(均已在标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数 finduser的功能是：在 users数组中搜索用户名(即参数 ch)，找到
13、则返回该用户名在 users中的位置，否则返回 0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把 Form2、Form3 窗体文件中的“?”改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。（分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： -注册窗体 Form2- n=n+1 Else If finduser(Trim$(Text1)0 Then Form1Label1Caption=“注册成功!“ -登录窗体
14、Form3- If k=0 Then Else If Trim$(Text2)0)，若该用户存在则弹出提示信息，否则进一步检查前后两次输入的密码是否一致，若前后不一致则弹出提示信息，否则通过调用过程 writeusers将该用户名及密码写入数组 user。s 中，并在“启动”窗体的标签(Form1Label1)中显示“注册成功”。每调用一次过程 writeusers，全局变量 n将记录新增一个用户，即 n=n+1。 在“登录”窗体的“登录”按钮的单击事件过程中，通过调用标准模块中的 finduser函数，检查输入用户是否存在于 users数组中，若不存在(条件表达式为：k=0)则弹出提示信息，否则进一步检查该用户的密码输入是否正确(条件表达式为：Trim$(Text2)users(k，2)，若不正确则弹出提示信息，否则在“启动“窗体的标签(Form1Label1)中显示“登录成功”。
