1、VB机试模拟试卷 161及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “练习 ”的窗体上画一个名称为 Framel、标题为 “效果 ”的框架。框架内含有三个复选框，其名称分别为 Chkl、 Chk2和 Chk3，标题分别为 “倾斜 ”、“加粗 ”和 “下划线 ”。运行后的窗体如图 1-23l所示。要求：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画 一个名称为 Labell的标签，其初始内容
2、为空，且能根据指定的标题内容自动调整标签的大小；再画两两个命令按钮，标题分别是 “日期 ”和“时间 ”，名称分别为 Commandl、 Command2。请编写两个命令按钮的 Click事件过程，使得单击 “日期 ”按钮时，标签内显示系统当前日期；单击 “时间 ”按钮时，标签内显示系统当前时间，如图 1-232所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，在 Forml的窗体中有一个文本框、两个
3、命令按钮和一个计时器。程序的功能是在运行时，单击 “开始计数 ”按钮，就开始计数，每隔 1秒，文本框中的数加 l；单击 “停止计数 ”按钮，则停止计数 (如图 1-218所示 )。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。 (2)已知出租车行驶不超过 4千米时一律收费 10元。超过 4千米时分段处理，具体处理方 式为； 15千米以内每千米加收 1 2元， 15千米以上每千米收 1 8元。在考生文件夹卞有一个工程文件 8jt4 vbp。程序的功能是；单击 “输入 ”按钮，将弹
4、出一个输入对话框，接收出租车行驶的里程数；单击 “计算 ”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为 Textl的文本框内。在窗体文件中已经给出了全部控件 (如图 1-219所示 )，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5,vbp。其窗体中有一个名称为 Textl的文本框数组，下标从 0开始。程序运行时，单击 “产生随机数 ”按钮，就会产生 10个 3位数的随机数，并放入 Textl数组中，如
5、图 1-25(a)所示；单击 “重排数据 ”按钮，将把Textl中的奇数移到前面，偶数移到后面，如图 1-25(b)所示。文件中已经给出了所有控件和部分程序。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。提示：在 “重排数据 ”按钮的事件过程中有对其算法的文字描述，请仔细阅读。 VB机试模拟试卷 161答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题第 l小题 审题分析】本题只需按题目在窗体中画出控件，并设置相关属性即可。 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，
6、如表 2-135在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE工程，如表 2136在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口 编写以下事件过程。 参考代码： PriVate Sub Command1_Click() Labell Caption=Date End Sub PriVate Sub Command2_Click() Label1 Caption=Time End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题只需按题目在窗体中画出控件，并设
7、置相关属性即可。 第 2小题 Date函数用于获取当前系统日期， Time函数用于获取当前系统时间。 AutoSize属性用来确定是否根据 Caption属性指定的标题自动调整标签的大小，可以设置为 True或 False。 本题只需在 “日期 ”按钮的单击事件过程中，通过调用 Date函数在标签中显示当前系统日期；在 “时间 ”按钮的单击事件过程中，通过调用 Time函数在标签中显示当前系统时间。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开本题工程文件 sis vbp，去掉程序中的注 释符 “”，将问号 “?”改为正确的内容。 参考代码： Sele
8、ct Case Index Case 0 Textl Text=Textl Text+1 步骤 2：按要求将文件保存至考生文件夹中。 【主要考点】计时器。 第 2小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case s f=10 f=10+ (s-4) *1 2 Case Else f=10+ (15-4) *1 2+ (s-15) *1 8 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 可借助计时器来完成有规律性时间间隔执行的任务。本题
9、计时器工作时，为使文本框中的数每隔 1秒加 l，需将计时器的 Interval属性值设置为 1000毫秒，在命令按钮数组的单击事件过程中通过判断触发事件的元素下标来执行启动计时器或者关闭计时器，在计时器的 Timer事件过程中通过语句Textl Text=Textl Text+l实现加 1。 第 2小题 多分支控制结构也称为 Select Case语句或 Case语句，它和 If语句差不多，都是对一个条件的结果判断后再进行操作，它们的区别是前者只对单个条件来判断，后者则可以对多个条件来判断。 Select Case语句的格式如下： SelectCase变量或表达式 Case表达式列表 l 语句
10、块 1 Case表达式列表 2 语句块 2 Case Else 【语句块 n+1】 End Select 本题原程序通过使用 Select Case语句对输入的数据 (已赋值给变量 s)进行检验，若不超过 4，则按 f=10计算；若在 15以内，则按 f=10+(s-4)*1 2计算：若在 15以上，则按 f=10+(15-4)*1 2+(s-15)*1 8计算。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： j=9 temp=Textl
11、(j) While(ij) If Textl(j)Nod 2=1 Then 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 本题原程序中，变量 i和 j均用做 txtRnd文本框数组的索引号 (即Index属性值 )，根据算法中的第 1条，可知 i=0、 j=9、 temp=Textl(i)，其中 “暂存最后一个数 ”的目的是为空出一个位置放第一个偶数。根据算法中的第 3条，检查第 j个数是否为奇数的条件表达式为： Textl (i)Mod 2=1。算法中的第 2条和第 3条交替运行，将实现一后 (偶数 )一前 (奇数 )重排数据的目的。根据算法中韵第 4条，可知在 i向后移、 j向前移过程中，当闩时则停止这种移动 (故 While循环的条件表达式为 ij)。将先前暂存的数 (temp)放到当前空缺位置，以实现算法中的第 5条。
