1、VB机试模拟试卷 172及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 visualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Shapel的圆角矩形，高、宽分别为 1000、 2000。请利用属性窗口设置适当的属性满足以下要求： 圆角矩形中填满绿色 (颜色值为&HOOOOFF00&或 &HFF00&)： 窗体的标题为 “圆角矩形 ”。运行后的窗体如图 1-17l所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在考生文件夹下有一个工程文件sjt2 vbp。
2、窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Textl中的通话时间计算通话费，并将其显示在 Text2中。程序运行时，单击 “通话开始 ”按钮，则在 Textl中累加通话时间 (每秒加 1)，单击 “通话结束 ”按钮，则停止通话时间的累加；单击 “计算通话费 ”按钮，则调用过程 subl。要求： 在窗体上画一个计时器 (如图 1-172所示 )，并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事件过程。注意：要求程序中不得使 用变量，每个事件过程中只能写一条语句， “计算通话费 ”按钮的事件过程中只允许调用过程subl。不得修改已经存
3、在的内容和控件属性，最后把文件按原文件名存盘。二、简单应用题（ 40分） 2 有一个工程文件 ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示： “已有此项 ”，之后清除输入的内容。界面如图20所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。 三、综合应用题（ 30分） 3 新建一个工程，在窗体中创建上下两个文本框，分 9U为 Textl和 Text2。要求实现的功能是：在 Text1中输入字符串， Text2中显示全
4、部转换为大写字母的相应字符串。程序运行情况如图 8所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc4.vbp，窗体文件名为 ylc4.frm。VB机试模拟试卷 172答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1:新建一个 “标准 EXE”工程，如表 2-98在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开本题工程文件 sjt2 vbp，在窗体中画一个名为 Timerl， Interval属性为 1000， Enabled属性为 Fals
5、e的计时器。 步骤2：打开代码编辑窗口，编写三个命令按钮的 Click事件过程以及计时器的 Timer事件过程。 参考代码： Private Sub Commandl_Click() Timerl Enabled=True End Sub Private Sub Command2_Click() Timerl Enabled=False End Sub Private Sub Command3_C1ick() subl End Sub Private Sub Timerl_Timer() Textl=Textl+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第
6、1小题 当形状控件的 Shape属性值是 4时显示为圆角矩形；形状控件的填充色通过FillColor属性设置，填充色样式通过 FillStyle属性设置。 第 2小题 Enabled(可用 )属性用于设置控件或菜单项在程序运行时是否可用，值为 True表示可用，值为 False表示不可用。 本题需要在命令按钮的单击事件过程中控制计时器是否可用，在计时器的 Timer事件中令文本框的值每秒增 l。 二、简单应用题（ 40分） 2 【正确答案】 1操作步骤 (1)在 Visual Basic集成环境中选择 “文件 ”“ 打开工程 ”命令，在对话框中选择 ylc6.vbp工程文件，单击 “确定 ”按
7、钮打开。 (2)选择工具中的 ComboBox控件，在窗体中画命名为 Comboll的组合控件。在属性窗口分别设置它们的名称、 Text属性为空。 (3)在属性编辑框中设置 Comboll组合控件的 List属性，其初始数据为 “语文 ”、“数学 ”、 “英语 ”、 “物理 ”、 “化学 ”、 “生物 ”、 “历史 ”、 “政治 ”和 “地理 ”。 (4)在工具箱中选择命令按钮控件，在窗体上拖动创建并命名为 Command1，标题为 “确定 ”。 2行为编码 在代码框选择 Command1对象和 Click事件，代码如下： Private Sub Command1_Click() For i=
8、0 To Combol. ListCount-1 If Combol.List(i)=Combol.Text Then 清除输入内容 Combol.Text=“ “ MsgBok(“已有此项 “) End If Next i End Sub 3存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 ylc6.vbp，窗体文件名为ylc6.frm。 【试题解析】 (1)这 是一道简单的应用题，主要考查 ComboBox控件的相关特性、数据的初始化、项目的多少、程序设计中循环结构的编程，以及程序中提示信息对话框的使用。 (2)代码中使用组合控件的 ListCount属性，得到控件数据的个数，
9、使用 Comboll的 List属性得到 Comboll内某项字符中的值。在 For.Next循环中将输入的字符串与 Comboll内的字符串逐个比较。如果输入的字符串在控件中已存在，则使用MsgBox信息捉示框显示提示信息。 三、综合应用题（ 30分） 3 【正确答案】 Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择 “标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择标签控件，在窗体中要求位置画出两个标签，其 Caption属性分别为 “初始字符 ”和 “转换后 ”。 (3)在工具箱中选择文本框控件，在窗体中画出两个文本框： Text1和 Text2，并且在属性窗口中设置 Text属性为空。双击文本框 Text1弹出代码编写窗口，添加如下代码： Private Sub Text1_Change() Text2.Text=UCase(Text1.Text) End Sub (4)按 F5键运行程序。如图 8所示。 (5)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 ylc4.vbp，窗体文件命名为 ylc4.frm。 【试题解析】 (4)第 4小题使用了字符转换函数 UCase，其作用是将所有小写字符转换为大写。
