在Form1画1个Label1的标签数组含3个标签控件下标从0开始.doc

基础题(1)【考点分析】本题考点有：标签的Caption属性，控件数组的建立方法。 【解题思路】控件数组的建立方法有两种：一种在设计时建立，首先，在窗体上画出某控件，并进行属性设置。然后选中该控件进行复制和粘贴操作，系统提示是否建立控件数组，选择是即可。另外一种是运行时添加控件数组。通过标签对象的Caption属性来设置标签显示内容。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立标签控件数组并设置相关属性，如图所示。 步骤2：测试并运行程序，关闭程序后按题目要求存盘。 基础题(2)【考点分析】本题考点有：标签控件的Caption属性，MouseMove事件。 【解题思路】 通过MouseMove事件中的X指定鼠标光标当前位置的横坐标，通过标签的Caption属性设置初始内容为空，在程序运行过程中，利用该属性显示当前鼠标光标位置的横坐标值。 【操作步骤】步骤1：新建一个窗体，按照题目要求建立一个标签控件并设置相关属性，如图所示。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Caption = X 标签中显示当前鼠标光标位置的横坐标值 End Sub 步骤3：测试并运行程序，关闭程序后按题目要求存盘。 简答题(1【考点分析】本题考点有：文本框的Text属性，标签的Caption属性，命令按钮的Click事件，Val（）函数，自定义函数及调用，if语句及for语句。 【解题思路】通过Val（）函数得到输入N值，利用N与2相除求得余数是否为0来判断N是奇数还是偶数。自定义函数f来计算N！，通过for循环调用函数f来求出题目要求的和。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案（阴影部分是需要考生填入的内容） Private Sub Command1_Click() Dim sum As Long n = Val(Text1.Text) 将文本框中文本转换为数值 sum = 0 If n Mod 2 = 0 Then 判断奇数还是偶数 m = n + 1 Else m = n End If For i = 1 To m Step 2 sum = sum + f(i) 调用f来求得题目要求的和 Next Label2.Caption = sum End Sub Private Function f(ByVal x As Integer) As Long 定义f，求N！ y = 1 For i = 1 To x y = y * i Next f = y End Function 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题(2)【考点分析】本题考点有：自定义数组及初始化，单选按钮控件数组，自定义函数及调用，if语句，for语句，IIf（）函数以及闰年如何判断。 【解题思路】首先判断年份是否为闰年，然后计算到要显示月历的月份之前共有多少天，再计算出要显示月历的月份的第1天是星期几，最后输出月历。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案（阴影部分是需要考生填入的内容） Option Base 1 month_days 数组下界为1 Private Sub Command1_Click() Dim days%, month%, year%, day1_1%, n% Static month_days As Variant month_days = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) For k = 0 To 6 If Option1(k).Value = True Then day1_1 = k End If Next k days = 0 month = Text2 year = Text1 month_days(2) = IIf(leap_year(year), 29, 28) 调用leap_year函数判断闰年 IIF( 逻辑表达式 , 表达式1 , 表达