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