在Form1,标题为“电影制作”上画1个名称为Cmb1、初始内容为空的下拉式组合框.docVIP

基础题 1 【考点分析】本题考点有：窗体的Caption属性，组合框的Name、Text、List属性。 【解题思路】 通过窗体对象的Caption属性来设置标题，通过组合框的Name和Text属性来设置组合框的名称和初始内容为空，通过其List属性设置列表项。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立组合框控件并设置窗体及组合框属性，如图所示。 步骤2：测试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第54套第一大题的第一小题来进行同类知识点的练习。 基础题（2）【考点分析】 本题考点有：命令按钮的Caption属性及Click事件，形状控件的Shape、Width、Height、 BorderWidth、BorderColor、FillColor、FillStyle及Left属性。 【解题思路】通过命令按钮的Caption属性来设置标题。通过形状控件的Shape、BorderWidth、BorderColor、FillColor及FillStyle属性分别来设置形状、边框宽度、边框颜色、填充颜色及填充样式。编写适当的程序，在分别单击命令按钮触发Click事件中加入让椭圆的Left属性值增加100或减少100的语句。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立形状控件及两个命令按钮，并设置相关属性，如图所示。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click Shape1.Left Shape1.Left - 100 当用户单击左移按钮时，椭圆形状向左移动100 End Sub Private Sub Command2_Click Shape1.Left Shape1.Left + 100 当用户单击右移按钮时，椭圆形状向右移动100 End Sub 步骤3：测试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第86套第一大题的第二小题来进行同类知识点的练习。 简答题 1 【考点分析】本题考点有：形状控件的Left、Top及BackColor属性，时钟控件的Interval、Enabled属性，MouseDown事件以及If判断语句。 【解题思路】时钟控件的Interval属性设置触发事件时间间隔。通过MouseDown事件中的Button判断单击鼠标左键还是右键，通过MouseDown事件中的X，Y指定鼠标光标当前位置的坐标。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案（阴影部分是需要考生填入的内容） Private Sub Form_Load Timer1.Enabled True Timer1.Interval 500 每隔半秒对应的Interval的值为500 End Sub Private Sub Form_MouseDown Button As Integer, Shift As Integer, X As Single, Y As Single If Button 1 Then Button 1，单击左键 Shape1.Left X X，鼠标光标位置的横坐标值 Shape1.Top Y Y，鼠标光标位置的纵坐标值 End If If Button 2 Then Button 2，单击右键 Timer1.Enabled False End If End Sub Private Sub Timer1_Timer If Shape1.BackColor HFF Then 程序运行时每隔半秒，方框颜色交替变成黄色和红色 Shape1.BackColor HFFFF Else Shape1.BackColor HFF End If End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题 2 【考点分析】本题考点有：文本框的Text属性，命令按钮的Click事件以及字符串操作的函数，Trim（）、Len（）、InStr（）、Left（）、Mid（）等。 【解题思路】通过InStr（）函数找到单词之间间隔的第一个空格在输入字符串中的位置，通过Left（）函数分离出每个单词。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案（阴影部分是需要考生填入的内容） Private Sub Command1_Click Dim m As Integer, n As Integer n存放最长单词的长度 Dim s As String, word_s As String