上机考试真题

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时，表示未选中，当Value=1时表示选中，当ValHe=2时，显示为灰色选中。

解题步骤：第一步：建立界面并设置控件属性。

程序中用到的控件及属性设置如下表：第二步：调试并运行程序。

第三步：按题目要求保存程序。

(2)在名称为Forml的窗体上画一个名称为Picturel的图片框，其宽和高分别为1700、1900。

请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件picl．bmp，如图所示。

单击窗体则图片框中的图形消失。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

图1-2注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

（2）、评析：主要考查了PictureBox控件的使用方法，在PictureBox控件中可用Height、Width来指定控件的大小，同时可以用形如这样的语句在程序中动态地为控件设置图片：控件名．Picture=LoadPicture(“文件名”)。

要清空图片，可以让文件名为空，也可以使Picture=Nothing。

解题步骤：第一步：建立界面，在窗体上放一个图片框，设军Name属性为Picturel，Width属性为1700，Height属性为1900。

第二步：编写程序代码。

参考代码：Option ExplicitPrivate Sub Form_click()Set Picturel．Picture==NothingPrivate Sub Picturel_ClickflPicturel．Picture=LoadPicture(“picl．bmp”)End Sub第三步：调试并运行程序。

第四步：按题目要求保存程序。

2．简单应用(2小题，每题20分，计40分)注意：下面出现的“考生文件夹”均为c：＼wexam＼000000(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm。

在窗体上有一个命令按钮，其名称为Commandl，标题为“移动”；有一个文本框，名称为Textl，可以多行显示；此外还有一个列表框，其名称为Listl。

程序运行后，会在列表框中显示几行文字，如图1所示。

如果单击命令按钮，则把列表框中的文字移到文本框中，如图2所示。

该程序不完整，请把它补充完整(程序中的vbCrLf表示回车换行符)。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。

最后用原来的文件名保存工程文件和窗体文件。

图2-l 图2-2(1)、解析：本题主要考的ListBox控件，可以通过List属性来获得列表项目，可以使用Clear方法来把列表框清空。

解题步骤：第一步：编写程序代码。

源程序提供的代码：Private Sub Commandl_Click()’Fori=0 To?’s=s & ? & vbCrLfNext i’Listl．?’Textl．Text=?End SubPrivate Sub Form_Load()Listl．Addltem“枯藤老树昏鸦，”Listl．Addltem “小桥流水人家，”Listl．Addltem“古道西风瘦马。

”Listl．Addltem“夕阳西下，”Listl．Addltem“断肠人在天涯。

”End Sub参考代码：Private Sub Commandl_Click()For i=0 TO Listl．ListCount-1s=s & Listl．List(i) & vbCrLfNext iListl．ClearTextl．Text=sEnd SubPrivate Sub Form Load()Listl．Addltem“枯藤老树昏鸦，”Listl．Addltem“小桥流水人家，”Listl．AddItem“古道西风瘦马。

”Listl．AddItem“夕阳西下，”Listl．Addltem“断肠人在天涯。

”End Sub第二步：调试并运行程序。

第三步：按题目要求保存程序。

(2)在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm。

在窗体上有一个标签(名称为Labell)、一个计时器(名称为Timerl)和二个命令按钮(名称分别为Commandl和Command2)，如图3所示。

程序运行后，其初始界面如图4所示。

此时如果单击“开始”命令按钮，则可使标签每隔0．2秒闪烁一次；如果单击“停止”命令按钮，则标签停止闪烁。

该程序不完整，请把它补充完整。

要求：去掉程序中的注释符，把程序中的?。

改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。

最后用原来的文件名保存工程文件和窗体文件。

图2-3 图2-4(2)、评析：本题主要考的是Timer控件的使用，在Timer中可用Enable来控制计时器的开启与关闭，同时可在其Timer事件中设置触发事件的时间间隔，而时间间隔可以通过Interval属性来设置。

解题步骤：第一步：编写程序代码。

源程序提供的代码：Private Sub Form_Load()’Timerl．Enabled=?’Timerl．Interval=?Labell．Caption=“注意!”Commandl．Caption=“开始”Command2．Caption=“停止”End SubPrivate Sub Commandl_Click()’Timerl．Enabled=?End SubPrivate Sub Command2_Click()’Timerl．Enabled=?End SubPrivate Sub Timerl_Timer()Label1．Visible=Not Label 1．VisibleEnd Sub参考代码：Private Sub Form_Load()Timerl．Enabled=FalseTimerl．Interval=200Labell．Caption=“注意!”Commandl．Caption=“开始”Command2．Caption=“停止”End SubPrivate Sub Command 1 Click()Timerl．Enabled=TrueEnd SubPrivate Sub Command2_Click()Timerl．Enabled=FalseEnd SubPrivate Sub Timerl_Timer()Label I．Visible=Not Label1．VisibleEnd Sub第二步：调试并运行程序。

第三步：按题目要求保存程序。

3．综合应用(1小题，计30分)注意：下面出现的“考生文件夹”均为c：＼wexam＼000000在名称为Forml的窗体上画三个命令按钮(名称分别为Commandl、Command2和Command3，标题分别为“显示”、“统计”和“保存”)，然后画一个文本框(名称为Textl，MultiLine 属性设置为True，ScrollBars属性设置为2)。

程序运行后，如果单击“显示”命令按钮，则读入in5．txt文件中的文本，并在文本框中显示出来；如果单击“统计”命令按钮，则统计文本框中ASCII码大于等于70，小于等于100的字符的个数，并把结果在文本框中显示出来，如图所示(注意，图中所显示的统计次数是随便写的，不是实际的统计结果)；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5．txt文件中。

图3-1注意：结束程序运行前必须用“保存”命令按钮把统计结果存入考生文件夹下的out5．txt文件中，否则没有成绩。

存盘时必须存放在考生文件夹下，工程文件名为sjt5．vbp，窗体文件名为sjt5．frm。

3、综合应用评析：本题主要考查了分支语句的使用，字符串统计算法。

文本框用Text属性来显示计算结果；命令按钮的标题由Caption属性来设置，单击命令按钮触发Click事件。

解题步骤：第一步：建立界面并设置控件属性。

程序用到的控件及属性设置如下表所示：第二步：编写程序代码：参考代码：Option ExplicitDim c As IntegerPrivate Sub Commandl_Click()Open“in5．Txt”For Input As#lTextl．Text=Input(LOF(1)，#1)Close#1End SubPrivate Sub Command2_C1ick()Dim I As Integerc=OFor i=1 To Len(Textl．Text)If Asc(Mid(Textl.Text,I,1))>=70 And Asc(Mid(Textl.Text;I,1))<=lOO Then c=c+lEnd IfNextiTextl．Text=cEnd SubPrivate Sub Command3_Click()Open“out5．Txt”For Output As#1Print#1,cClose#1End Sub第三步：调试并运行程序，本题一定要点击“保存”按钮来保存计算出的结果。

第四步：按题目要求保存程序。

Visual Basic语言程序设计二级上机考试真题(二)(考试时间90分钟，满分100分)1．基本操作(2小题，每小题15分，共计30分)注意：下面出现的“考生文件夹”均为c：＼wexam＼000000请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea，编写适当的事件过程。