【vb精品源码栏目提醒】:网学会员为广大网友收集整理了,上机考试真题 - 计算机等级,希望对大家有所帮助!
Visual Basic 语言程序设计二级上机考试真题一 考试时间 90 分钟,满分 100 分1.基本操作2 小题,每小题 15 分,共计 30 分注意:下面出现的“考生文件夹”均为 c:\wexam\000000请根据以下各小题的要求设计 Visual Basic 应用程序包括界面和代码。
1在名称为 Forml 的窗体上画一个名称为 Framel,标题为“目的地”的框架,在框架中添加三个复选框,名称分别为 Checkl、Check2、Check3,其标题分别是“上海”、 “广州”、“巴黎”,其中“上海”为选中状态, “巴黎”为灰色状态,如图所示。
“广州”为未选状态,请画控件并设置相应属性。
图 l-1注意:存盘时必须存放在考生文件夹下,工程文件名为 sjtl.vbp,窗体文件名为 sjtl.frm。
1、评析:本题主要考查了 CheckBox 控件的使用方法,在 CheckBox 中可通过 Value 的值来设置其是否选中,当 Value 为 0 时,表示未选中,当 Value1 时表示选中,当 ValHe2时,显示为灰色选中。
解题步骤:第一步:建立界面并设置控件属性。
程序中用到的控件及属性设置如下表: 控件 属性 设置值 框架 Name Framel Caption 目的地 复选框 Name Checkl Caption 上海 场lue 1-Checked 复选框 Name ChecI2 Caption 广州 复选框 Name Check3 CaptiOn 巴黎 Value 2-Graved第二步:调试并运行程序。
第三步:按题目要求保存程序。
2在名称为 Forml 的窗体上画一个名称为 Picturel 的图片框,其宽和高分别为 1700、1900。
请编写适当事件过程,使得在运行时,单击图片框,则装入考生目录下的图形文件 picl. bmp,如图所示。
单击窗体则图片框中的图形消失。
要求程序中不得使用变量,每个事件过程中只能写一条语句。
图 1-2注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt2.vbp,窗体文件名为 sjt2.frm。
(2)、评析:主要考查了 PictureBox 控件的使用方法,在 PictureBox 控件中可用 Height、Width 来指定控件的大小,同时可以用形如这样的语句在程序中动态地为控件设置图片:控件名.PictureLoadPicture“文件名”。
要清空图片,可以让文件名为空,也可以使PictureNothing。
解题步骤:第一步: 建立界面,在窗体上放一个图片框,设军 Name 属性为 Picturel,Width 属性为 1700,Height 属性为 1900。
第二步:编写程序代码。
参考代码: Option Explicit Private Sub Form_click Set Picturel.PictureNothing Private Sub Picturel_Clickfl Picturel.PictureLoadPicture“picl.bmp” End Sub第三步:调试并运行程序。
第四步:按题目要求保存程序。
2.简单应用2 小题,每题 20 分,计 40 分注意:下面出现的“考生文件夹”均为 c:\wexam\0000001在考生文件夹下有一个工程文件 sjt3.vbp,相应的窗体文件为 sjt3.frm。
在窗体上有一个命令按钮,其名称为 Commandl,标题为“移动”;有一个文本框,名称为 Textl,可以多行显示;此外还有一个列表框,其名称为 Listl。
程序运行后,会在列表框中显示几行文字,如图 1 所示。
如果单击命令按钮,则把列表框中的文字移到文本框中,如图 2 所示。
该程序不完整,请把它补充完整程序中的 vbCrLf 表示回车换行符。
要求:去掉程序中的注释符,把程序中的改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。
最后用原来的文件名保存工程文件和窗体文件。
图 2-l 图 2-21、解析:本题主要考的 ListBox 控件,可以通过 List 属性来获得列表项目,可以使用Clear 方法来把列表框清空。
解题步骤:第一步:编写程序代码。
源程序提供的代码: Private Sub Commandl_Click ’Fori0 To ’ss amp amp vbCrLf Next i ’Listl. ’Textl.Text End Sub Private Sub Form_Load Listl.Addltem“枯藤老树昏鸦,” Listl.Addltem “小桥流水人家,” Listl.Addltem“古道西风瘦马。
” Listl.Addltem“夕阳西下,” Listl.Addltem“断肠人在天涯。
” End Sub参考代码: Private Sub Commandl_Click For i0 TO Listl.ListCount-1 ss amp List