一、基本操作题

　　请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

　　(1)在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在List1中添加“Item1”…“Item6”，并设置MultiSelect属性为2(要求在控件属性中设置实现)。

　　再放置一个名称为Command1、标题为“导出”的命令按钮。程序运行后，如果单击“导出”按钮，将List1中选中的内容(至少三项)复制到List2中，并将对应的项从List1中删除。如果选择的项数少于3项，用消息框提示“请选择至少3项”，如图3-1所示。

　　注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。

　　(2)在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用小写显示。如图3-2所示。

　　注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。

　　二、简单应用题

　　(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的。在窗体上有一个标签数组，名称为Label1，该数组有4个控件元素，标题分别是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图3-3所示。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。

　　注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。

　　(2)在考生文件夹下有工程文件sj4.vbp，窗体文件sj4.frm，该程序是不完整的。在窗体上有一个名为Text1的文本框，有两个命令按钮，名称分别是Command1和Command2、标题分别是“读人数据”和“计算保存”，如网3-4所示。要求程序运行后，单击Command1按钮，将文本文件in4.txt中的所有数字读到数组a中，并在文本框内显示出来。随后Command1按钮变为无效。然后单击Command2按钮，求出数组a中的各元素的立方并赋值回相应的元素，例如a(1)=2，则新a(1)=a(1)*a(1)*a(1)=8。把计算后的数组的值全部写入考生文件夹下的文本文件out4.txt中，并在文本框中显示出来，最后Command2按钮也变为无效。

　　注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。

　　三、综合应用题

　　在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm，该程序是不完整的。在名称为Form1、标题为“支持率”的窗体上，有4个Picture控件、4个Label控件和5个Command控件。具体描述如下：

　　Pic1和Pic2分别为Person1和Person2的红色，Pic3和Pic4为绿色;Pic1和Pic3重叠，Pic2和Pic4重叠。单击Command1和Command3按钮时，Labe2和label4减少。当Labe2或Label4的值为0时，相对应的Command1和Command3按钮失效(变灰);按Command2和Command4时，Label2和Label4增加;Command5是关闭程序。程序启动时两者均为绿色，两人当中票数高的是红色，另一个是绿色，如图3-5所示。如果两者的票数一样高，则两者都为红色。

　　注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。

　　上机考试试题答案与解析

　　一、基本操作题

　　(1)向列表框中添加项目可以用AddItem方法添加，也可以在属性窗口中进行。列表框的Text属性为最后一次选中的表项的文本。

　　根据题意，新建“标准EXE”工程，将两个列表框控件和一个命令按钮添加到窗体中，列表框的名称分别为List1和List2，在List1的List属性中添加“Item1”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，命令按钮的名称为Command1、Caption属性为“导出”，在List1中选中的项，通过for循环进行复制并删除。补充后的具体代码如下：

   

　　(2)在Text控件中输入文本时会触发Change事件，要将大写字母转换成小写字母要通过Lcase函数来实现。根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Text1、Text属性为空，设置结束后双击Text1，进入代码窗口，编写如下代码：

 

　　二、简单应用题

　　(1)本题主要考查控件数组的创建及属性设置。控件数组是由一组相同类型的控件组成，建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)。鼠标的形状由其MousePointer属性设置，该属性值为3时对应文本编辑时的鼠标形状、为11时对应程序运行时的鼠标形状、为5时对应移动窗体时的鼠标形状、为7时对应双向箭头的鼠标形状。根据题意，在窗体中添加一个含有4个控件数组的标签控件，将其Caption属性分别设置为“文本编辑”、“程序运行”、“移动窗体”和“双向箭头”，并编写如下代码：

   

　　(2)根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Text1，命令按钮的名称分别为Command1和Command2，Caption属性分别为“读人数据”和“计算保存”，由于不知道读取数据的个数，所以要用到动态数组，动态数组的用法如下：

   

　　三、综合应用题

　　控件是否可用由其Enabled属性决定，当该属性值为True时可用，为False时不可用(灰色);控件是否可见由其Visible属性决定，该值为True时，控件可见，为False时控件不可见。

　　根据题意，将4个图片控件、4个标签和5个命令按钮添加到窗体中，图片控件的名称分别为Pic1、Pic2、Pic3和Pic4，背景色分别为红色，红色，绿色和绿色，标签的Caption属性分别为“Person1”、“Person2”、“0”和“0”，名称分别为Label1、Label2、Label3和Label4，命令按钮的名称分别为Command1、Command2、Command3、Command4和Command5，Caption属性分别为“减1票”、“加1票”、“减1票”、“加1票”和“关闭”。双击Command1进入代码编写窗口，补充后的具体代码如下：