2015年计算机二级考试《VB》机考操作试题(2)
基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)
1在名称为Forml的窗体上添加一个名称为Com-mandl的命令按钮，其标题为“移动本按钮”，如图所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动l00。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjr2.vbp，窗体文件名保存为sjr2.frm。
【考点分析】本题考点有：命令按钮的Caption、Name和Left属性。
【解题思路】在VisualBasic中，通过代码使命令按钮向左移动100，需要用到按钮的Left属性，使其值在每单击一次按钮时减去100。
【操作步骤】
步骤1：新建一个窗体，按照要求建立控件并设置相应属性如表3.14所示。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案：
Private Sub Command1_Click()
Command1.Left=Command1.Left-100
EndSub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
2在名称为Forml的窗体上从上到下添加两个文本框，名称分别为Textl、Text2;再添加一个命令按钮，名称为Commandl，标题为“选中字符数是”。程序运行时，在Textl中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2.vbp.窗体文件名保存为sit2.frm。
【考点分析】本题考点有：文本框的SelLength、Name和Caption属性以及命令按钮的Name和Caption属性。
【解题思路】SelLength属性用于返回/设置选定的字符数，通过文本框的Name和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。
【操作步骤】
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3.44。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案：
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】SelLengtb属性与SelStart和SelText属性容易混淆，SelStart属性是返回/设置选定文本的起始点，SelText属性是返回/设置当前选定文本的字符串。
简单应用题
3在考生文件夹下有一个工程文件sit3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Textl中显示“我开汽车去”，如图所示。
注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
【考点分析】本题考点有：单选按钮数组的Name、Caption和Index属性，文本框的Name属性，SelectCase选择语句，“+”字符连接。
【解题思路】通过Name属性设置对象名称;通过Caption属性设置对象的标题;设置两个字符型变量a、b，a："我坐"，b="我开"，用于SelectCase选择语句的字符串连接;通过对单选按钮数组Index属性的查询，实现单击单选按钮完成字符串连接和文本框显示操作的功能。
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立单选按钮数组，如图3.9所示。
步骤2：按照题目要求建立其他控件并设置其属性，见表3.4。
步骤3：打开代码编辑窗口，去掉程序中的注释符“´”，将问号改为正确的内容。
参考答案(横线部分是需考生填入的内容)
Private Sub Op1_click (Index As Integer)
Dima As String，b As String，C As String
a="我坐"
b="我开"
Select Case____Index______
´通过Index值决定响应哪一个控件数组
CaSe O
Text1.Text=a+Me.Op1(O).Caption+"去"
CaSe 1
Text1.Text=____a______+Me.Opl(1).Caption+"去"
´当Index值为1时，选择"我坐"
CaSe 2
Text1.Text=b+Me.Op1(2).Caption+"去"
End Select
EndSub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在窗体上复制一个控件时，如果需要创建控件数组，则在提示框中单击“是”即可，如果不需要，则直接单击“否”。
4在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框，图片框中有—个蓝色圆，名称为Shapel，如图所示。
当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
提示：程序中的符号常量blue_color表示蓝色的值，red_color表示红色的值。
注意：不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。
【考点分析】本题考点有：形状控件的Height、Width、Left、Top和FillColor属性，时钟控件的Enabled属性以及If判断语句。
【解题思路】通过Shapel的Left属性判断图片是否充满图片框或恢复到了初始大小，从而进行图片颜色红蓝的转换以及圆形的放大或缩小。通过形状控件的Height、Width、Left和Top属性来实现圆形的大小变化。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“´”，
将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
综合操作题
5在窗体上建立三个菜单(名称分别为Read、Cale和Save，标题分别为“读人数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Text1，MuhiLine属性设置为True，ScrollBars属性设置为2(如图所示)。程序运行后，如果执行“读人数据”命令，则读入考生文件夹下datain1.txt文件中的100个整数，放人一个数组中，数组的下界为1;如果单击“计算并输出”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来;如果单击“存盘”按钮，则把所求得的和存入考牛文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datainl.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sit5.vbp，窗体文件名仍保存为sjt5.frm。
【考点分析】本题考点有：文本框的Name、MultiLine、SerollBars和Text属性，文件操作，菜单编辑器的使用(名称、标题、内缩符号)，Art()函数以及Space()函数。
【解题思路】根据题意在“读人数据”命令的Click事件过程中，通过调用ReadData过程将数据从datainl.txt文件读入到数组Arr(窗体变量)中;在“计算并输出”命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Art中下标为偶数的元素显示在文本框中，并将其值累加到变量sum;在“存盘”命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件dataout.txt中。
【操作步骤】
步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性及其值见表3.19和表3.20。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案：
´需要考生编写的内容
Dim Sum As integer
考生编写程序结束
´需要考生编写的内容
Private Sub Calc_Click()
Text1.Text=""
For i=2 To 100 Step2’从2开始循环，以2为步长的下标都是偶数
Text1.Text;=Text1.Text&Art(i)&
Space(5)
Sum=Sum+Arr(i)。对下标为偶数的值求和
Next i
Print sum
End Sub
Private Sub Read_Click()
ReadData'调用ReadData子过程
End Sub
Private Sub Save_Click()´调用Save_Click函数
WriteData"dataout.txt"，sum
End Sub
´考生编写程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】调用WriteData过程时需传递参数dataout.txt和sum，变量sum应为窗体变量。