1、VB机试模拟试卷 150及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，其名称为 T1，宽度和高度分别为 1400、 400;再画两个命令按钮，其名称分别为 Cl和 C2，标题分别为 “显示 ”和 “扩大 ”，编写适当的事件过程。程序运行后，如果单击 Cl命令按钮，则在文本框中显示 “等级考试 ”，如图 l-18l(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的 3倍，如图 l-18l(b)所示。注意；要求程序中
2、不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个命令按钮，其名称为 C1，标题为 “转换 ”；然后再画两个文本框，其名称分别为 Textl和 Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在 Textl中输入一行英文字符串，如果单击转换按钮，则 Textl文本框中的字母都变为小写，而 Text2中的字母都变为大写。例如，在 Textl中输入 visualbasicprogramming，则单击转换按钮后，结果如图 1-182所示。注意：不得使用任何变量。存盘时必须存放在考生文件
3、夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，含有名称分别为 Forml、 Form2的两个窗体。其中 Forml上有两个控件 (图像框和计时器 )和一个菜单项 “操作 ”，含有三个菜单命令，如图 1-163(a)所示。 Form2上有一个名称为 Commandl、标题为 “返回 ”的命令按钮，如图 1-163(b)所示 。要求当单击 “窗体 2”菜单命令时，隐藏Forml，显示 Form2。单击 “动画 ”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新
4、移动。单击 “退出 ”菜单命令时，结束程序运行。请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp。其窗体上已有部分控件，请按照如图 1-164所示添加框架和单选按钮。要求：画两个框架，名称分别为 Framel、 Frame2，在 Framel中添加 一个名为Optionl的单选按钮数组，含两个单选钮，标题分别为 “古典音乐 ”、 “流行音乐 ”，在名称为 Frame2中添加两个单选按钮，名称分别为 Option2、 Option3，标题分别为 “篮球 ”、 “羽毛球 ”。刚
5、运行程序时， “古典音乐 ”和 “篮球 ”单选按钮为选中状态。单击 “选择 ”按钮，将把选中的单选按钮的标题显示在标签 Label2中，如图 1-164所示。如果 “音乐 ”或 “体育 ”未被选中，相应的单选按钮不可选。要求：按照题目要求添加控件，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件 属性。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sjt5 vbp，用来计算勾股定理整数组合的个数，勾股定理中三个数的关系是： a2+b22=c2，例如 3、 4、 5就是一个满足条件的整数组合 (注意： a、 b、
6、 c分别为 4、 3、 5与分别为 3、 4、 5被视为同一个组合，不应该重复计算 )。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Labd1中。 注意：不得修改原有程序控件的属性，在结束程序运行之前，必须至少正确运行一次程序，将统计的结果 显示在标签中，否则无成绩，最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 150答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-102在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。
7、参考代码： Private Sub C1_Click() T1=“等级考试 “ End Sub Private Sub C2_Click() T1 Height=2*Me T1 Height T1 Width=2*T1 Width T1 FontSize=3*Forml T1 FontSize End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 2-103在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub C1_Click() Textl
8、 Text=LCase(Textl Text) Text2 Text=UCase(Textl Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 文本框 (Text)通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本。 控件的 Height和 Width属性用于设置控件在屏幕上的大小 (即 高和宽 )。 字体大小通过 FontSize属性设置，一般格式为： FontSize=点数 。 要在单击 “扩大 ”按钮时，使文本框在高、宽方向上各增加一倍，只需在 “扩大 ”按钮的 Click事件中编写设置文本框
9、的 Height和 Width属性值为原来 2倍的语句。要使文本框中的字体大小扩大到原来的 3倍，需编写设置文本框的 FontSize属性值为原来 3倍的语句。 第 2小题 UCasc()函数用于将字符串中小写字母转换为大写字母，原本大写或非字母字符保持不变。 LCase()函数用于将字符串中大写字母 转换为小写字母，原本小写或非字母字符保持不变。 本题原程序是在命令按钮的单击事件过程中，将文本框 Textl中的字符用 UCase函数转换为大写并显示在 Toxt2中，同时用 LCase函数转换为小写并显示在 Textl中。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】
10、 步骤 1：打开考生文件中的本题工程文件sjt3 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case Index Timerl Enabled=True If Picturel Left+Picturel Width=Width Then Picturel Left=0 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp，在窗体上画两个框架、一个含两个元素的单选按钮数组，两个单选按钮，如表 2-93设置它们的属性。步骤 2：打开代码编辑窗口，修改 “
11、选择 ”按钮的 Click事件过程，代码如下。 参考代码： If Optionl(0) Value=True Then If Option2=True Then Label2 Caption=s 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题原程序在菜单项数组的单击事件过程中，通过 Select Case语句对按钮数组的索引号 (即 Index参数，第一个 ?处应为 Index)进行检查，若索引号为 1则显示Form2，隐藏 Forml；若索引号为 2则令计时器开始启动，第两个 ?处应为 True；若索引号为 3则结束程序。 计时器启动时，每次 Timer事件都是使
12、小汽车向右移动，一旦超出了窗体的右边界 (判断条件为 Picturel Left+Pictttrel Width=Width)，则令图片框的 Left属性为 0，以便移到窗体左侧。 第 2小题 当转换其他的数值类型为 Boolean值时， 0会转换成 False，而其他的值则会转换成 True。当转换 Boolean值为其他的数据类型时， False会转换成 0，而 True会转换成 1。 本题在 “确定 ”按钮的 Click事件过程中，先检查是否选中 “音乐 ”复选框，若选中则继续检查是否选中 “古典音乐 ”单选按钮，若选中则字符串变量 s的值就为 “古典音乐 ”，否则 S的值就为 “现代音
13、乐 ”。接着检查是否选中 “体育 ”复选框，若选中则继续检查是否选中 “乒乓球 ”单选按钮，若选中则字符串变量 S的值后连接 “乒乓球 ”，否则 s的值后连接 “羽毛球 ”。最后在标签中显示 S的值。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt5 vibp，在代码编辑窗口编写 “计算 ”按钮的单击事件过程。 参考代码： n=0 For i=1 To 60 For j=1 To 60 For k=1 To 60 x=k*k If(x=i*i+j*j)And j i Then Print i； j； k n=n+1 End If Next k Next j Next i Label1 Caption=n 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 本题可以使用一个三重循环来判断满足勾股定理的组合，由外至内依次使用循环变量 i、 j、 k，其变化范围均为 l60。在内循环中。首先判断 k*k是否等于 i i+j j，若等 于则证明满足勾股定理；由于满足勾股定理的两个数都是成对出现，为了不重复计算，还需要加上限定比如 ji。当找到满足条件的一对i、 j、 k的时候，输出这三个数，并且令计数器加 l。
