在Form1、标题为“滚动条”的窗体上画一个名称为HScroll的水平滚动条.doc

基础题（1）【考点分析】本题考点有：水平滚动条的Name、Min、Max属性，标签的Name、Caption属性。 【解题思路】水平滚动条最大刻度值和最小刻度值分别由Max、Min属性设置；标签显示由Caption属性设置。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.43。 表3.243 控件 窗体 标签1 标签2 滚动条 属性 Caption Name Caption Name Caption Name Min Max 设置值 滚动条 Label1 1 Label2 100 HScroll1 1 100 步骤2：按题目要求保存工程和窗体。 基础题（2）【考点分析】本题考点有：命令按钮的Name、Caption属性，形状控件的Name、Shape、Height、Width、BorderColor属性。 【解题思路】根据题意添加控件并通过属性窗口设置相应属性。圆边线的颜色由BorderColor属性设置，其中红色的代码为"&HFF&"，绿色的代码为"&HC000&"。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.244。 表3.244 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Shape1.BorderColor = &HFF& End Sub Private Sub Command2_Click() Shape1.BorderColor = &HC000& End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（1）【考点分析】本题考点有：文本框的Text属性单选按钮的Name、Caption、Value属性，Mid( )函数，If判断语句和For循环语句。 【解题思路】选择不同的单选按钮，将得到不同的Max和Min值，通过Mid( )函数对变量s中的内容进行逐个判断，将满足条件的字母个数加1，最后将统计的结果显示在文本框中。 【操作步骤】 步骤1：打开本题工程文件，建立单选按钮并设置其属性。程序中用到的控件及属性见表3.245。 表3.245 步骤2：分析并编写程序代码。 程序提供代码 Dim s As String Private Sub Command1_Click() Open App.Path & "\in3.dat" For Input As #1 s = Input$(LOF(1), #1) Close #1 End Sub Private Sub Command2_Click() '考生编写的内容 End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out3.dat" For Output As #1 Print #1, Option1.Value, Option2.Value, Option3.Value, Text1.Text Close #1 End Sub 程序结束 参考答案 If Option1.Value = True Then Min = "A": Max = "Z" If Option2.Value = True Then Min = "a": Max = "z" If Option3.Value = True Then Min = " ": Max = " " num = 0 For i = 1 To Len(s) If Mid(s, i, 1) >= Min And Mid(s, i, 1) <= Max Then num = num + 1 End If Next i Text1 = num 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（2）【考点分析】本题考点有：图片框的Visible、Left、Top属性，计时器的Enabled，命令按钮控件数组，Select Case语句。 【解题思路】单击"开始"按钮，红灯图片不可见，绿灯图片可见，计时器开始计时，汽车就开始运动；单击"停止"按钮，红灯图片可见，绿灯图片不可见，计时器停