在Form1上画1个Check1的复选框数组(Index属性从0开始)含3个复选框.docVIP

基础题（1）【考点分析】本题考点有：复选框的Caption、Value属性，复选框数组的Index属性。 【解题思路】复选框数组的Index属性从0开始，分别为0、1、2；复选框的标题可由Caption属性设置；复选框的选中、未选和灰色状态通过设置其Value属性值来实现。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.162。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2） 【考点分析】本题考点有：文本框的Name属性和SelText属性，命令按钮的Name、Caption属性和Click事件。 【解题思路】文本框的名称由Name属性决定，命令按钮的名称和标题分别由其Name、Caption属性来设置。用鼠标拖曳的方法选择几个字符，用到了文本框的SelText属性。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.163。 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Text2 = Text1.SelText End Sub Private Sub Command2_Click() Text1.SelText = End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（1）【考点分析】本题考点有：文本框的Alignment属性，列表框的List属性，窗体的Unload事件，Call语句，Sin( )函数，Val( )，Cos( )函数，Int( )函数，CInt( )函数，Select Case语句以及模块的应用。 【解题思路】通过属性窗口将文本框1和文本框2的Alignment属性均设为1。利用表达式Int(a * 1000) / 1000对所求得的正、余弦值保留3位小数。 CInt( )函数作用是把自变量的小数部分四舍五入，转换为整数；Int( )函数用于求不大于自变量的最大整数。Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值。 【解题思路】。 【操作步骤】 步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.164。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Const PI = 3.14159 Select Case Combo1.Text Case sin: a = Sin(CInt(Text1.Text) * PI / 180) Case cos: a = Cos(CInt(Text1.Text) * PI / 180) End Select Text2 = Int(a * 1000) / 1000 End Sub Private Sub Form_Unload(Cancel As Integer) Call mysub End Sub Sub mysub() Open out3.txt For Output As #1 Print #1, Combo1.Text, Text1.Text, Text2.Text Close #1 End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（2）【考点分析】本题考点有：计时器的Enabled属性、Timer事件，单选按钮的Value属性，文本框的Text属性和Int( )函数，CInt( )函数以及If判断语句。 【解题思路】当单击计时按钮时，将计时器的Enabled属性设为True值，时钟开始计时。CInt( )函数作用是把自变量的小数部分四舍五入，转换为整数；Int( )函数用于求不大于自变量的最大整数。 【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Dim num Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() num = num + 1 If num 60 Then If Option1.Value = True Then Text2.Text = num Else If (num / 10 = CInt(Int(num / 10))) Then Text2.Text = Text2.Text + 10 End If End If