在Form1建立一个如下表所示的下拉菜单,其“设置”菜单项为灰色.docVIP

基础题（1）【考点分析】本题考点有：菜单编辑器的使用（标题、名称、内所符号和有效性）。 【解题思路】用菜单编辑器建立菜单。在建立设置菜单时去掉设置前面的对勾。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.251。 表3.251 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2）【考点分析】本题考点有：水平滚动条的Name、Max、Min、TabIndex、Value属性，单选按钮的Name、Caption属性。 【解题思路】将水平滚动条的TabIndex属性值设为0，使得程序在刚开始运行时，焦点在滚动条上。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.252。 表3.252 步骤2：编写程序代码。 参考答案 Private Sub Option1_Click() HScroll1.Value = 100 End Sub Private Sub Option2_Click() HScroll1.Value = 0 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（1） 【考点分析】本题考点有：列表框的ListIndex 属性，数组的定义和应用，If判断语句和For循环语句。 【解题思路】单击计算按钮，首先将数组的第一项a(1)分别赋给最大值Max和最小值Min，通过For循环，如果数组中有比Min小的数就将该数赋给Min值；如果数组中有比Max大的数就将该数赋给Max值。然后将得到的Max和Min按照列表框的内容进行相应的运算，并将运算的结果在文本框1中显示出来。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer Private Sub Command1_Click() Dim k As Integer Open in3.dat For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Close #1 End Sub Private Sub Command2_Click() 需要由考生完成的内容 End Sub Private Sub Form_Unload(Cancel As Integer) Open out3.dat For Output As #1 Print #1, List1.ListIndex, Text1.Text Close #1 End Sub 程序结束 参考答案 Min = a(1) Max = a(1) For i = 1 To 100 If a(i) Min Then Min = a(i) If a(i) Max Then Max = a(i) Next i If List1.ListIndex = 0 Then Text1 = Max - Min If List1.ListIndex = 1 Then Text1 = Max + Min If List1.ListIndex = 2 Then Text1 = Max * Min 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（2）【考点分析】本题考点有：标签数组，标签的Caption属性、Visible属性，形状控件数组，形状控件的Height、Top、Visible属性，直线控件的坐标属性，Val( )函数，InputBox( )函数，If判断语句和For循环语句。 【解题思路】单击输入5个数据按钮，通过For循环，将InputBox( )函数输入的数据对应作为标签数组的标题，并使标签可见。单击画直方图，通过形状控件的Height、Top设置相应矩形的高度，并使形状控件数组可见。 【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Dim s(5) As Integer Private Sub Command1_Click() For k = 1 To 5 s(k) = Val(InputBox(input)) Label1(k - 1).Caption = s(k) Label1(k - 1).Move Line2.X1 - Label1(k - 1).Width, Line1.Y1 - s(k) Label