计算机江苏省2级资料计算机江苏省2级资料.docVIP

39. (1) 【解题思路】列表框的MultiSelect属性用来设置一次可以选择的表项数。该属性有3种取值： 0－None每次只能选择一项，如果选择另一项则会取消对前一项的选择； 1－Simple可以同时选择多个项，后续的选择不会取消前面的选择，可以用鼠标或空格键选择； 2－Extended可以选择指定范围内的表项。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.136。 表3.136 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【解题思路】命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。Cmd1 Click 事件过程中运用LoadPicture函数装入图片，用LoadPicture()，清除用图像框中的图片。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.137。 表3.137 步骤2：编写程序代码。 参考答案 Private Sub Cmd1_Click() Image1.Picture = LoadPicture(App.Path \图片.jpg) End Sub Private Sub Cmd2_Click() Image1.Picture = LoadPicture() End Sub 40. (1) 【解题思路】AutoSize属性值可决定控件(标签和图片框)是否自动改变大小以显示其全部内容，当值为True时表示自动改变控件大小以显示全部内容；为False(默认值)时表示保持控件大小不变，超出控件区域的内容被裁剪掉。BorderStyle属性用于设置标签的边框样式，值为0表示无边框，值为1表示有边框。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.138。 表3.138 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【解题思路】本题主要考查控件的画法、水平滚动条(HScrollBar)相关属性的设置以及命令按钮简单事件编程的掌握情况。 滚动条的Max、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围。LargeChange属性用于设置当单击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。滚动条滑块位置改变时触发其Change事件。在窗体上输出内容使用Print方法。 【操作步骤】 步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.139 表3.139 控件 水平滚动条 命令按钮 属性 Name Name Caption 设置值 HScroll1 Command1 Command1 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() HScroll1.Max = Form1.Width HScroll1.Min = 0 HScroll1.LargeChange = 50 HScroll1.SmallChange = 10 End Sub Private Sub HScroll1_Change() Print HScroll1.Value End Sub 42. (1) 【解题思路】根据题意，首先通过滚动条的Name、Max、Min、Value、Width、Height属性设置滚动条的属性值，然后通过标签的Name、Caption属性设置标签的名称和标题。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.144。 表3.144 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【解题思路】在Form Load事件过程中，Timer1的Enabled属性设置为True，计时器变为可用，在Timer1 Timer计时器的事件过程，通过形状控件的Top值每隔0.5秒加100，实现每隔0.5秒形状控件向下移动100。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.145。 表3.145 步骤2：编写程序代码。 参考答案 Private Sub Form_Load() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Shap