在Form1上画一个Check1的复选框数组(Index属性从0开始)含三个复选框.doc

基础题（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.SelTextEnd SubPrivate 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) / 1000End SubPrivate Sub Form_Unload(Cancel As Integer) Call mysubEnd SubSub mysub() Open out3.txt For Output As #1 Print #1, Combo1.Text, Text1.Text, Text2.Text Close #1End Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（2）【考点分析】本题考点有：计时器的Enabled属性、Timer事件，单选按钮的Value属性，文本框的Text属性和Int( )函数，CInt( )函数以及If判断语句。【解题思路】当单击计时按钮时，将计时器的Enabled属性设为True值，时钟开始计时。CInt( )函数作用是把自变量的小数部分四舍五入，转换为整数；Int( )函数用于求不大于自变量的最大整数。【操作步骤】步骤1：打开本题工程文件步骤2：分析并编写程序代码。程序提供代码Dim numPrivate Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() num = num + 1 If num 6 Then a = 1 End If Select Case a Case 1 P1.Picture = LoadPicture(黄灯.ico) Case 2, 3 P1.Picture = LoadPicture(红灯.ico) Case 4, 5, 6 P1.Picture = LoadPicture(绿灯.ico) If b Then Timer2.Enabled = True End SelectEnd SubPrivate Sub Timer2_Timer() If (a P1.Left And P2.Left P1.Left + P1.Width) Or P2.Left = 100 Then Timer2.Enabled =