在1上画二个文本框,名称分别为T1、T2,初始情况都没.doc

（基础题1）【考点分析】本题考点有：文本框的Name、Text属性。【解题思路】通过属性出口设置文本框的名称，并将其Text属性均设为空。通过将文本框1的Text值赋给文本框2的Text，实现在T1中输入字符立即显示在T2中的功能。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.198。步骤2：编写程序代码。参考答案Private Sub T1_Change() T2.Text = T1.TextEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。（基础题2）【考点分析】本题考点有：命令按钮的的Name、Caption属性，文本框的Name属性和Left属性。【解题思路】要将文本框水平移动到窗体的最左边，即将文本框的Left属性值设为0。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.199。表3.199控件命令按钮文本框属性NameCaptionName设置值C1移动Text1步骤2：编写程序代码。参考答案Private Sub C1_Click() Text1.Left = 0End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（1）【考点分析】本题考点有：文本框的Text属性，列表框的ListIndex属性和AddItem、RemoveItem、Click方法。【解题思路】将文本框的内容添加到列表框中通过列表框的AddItem方法实现，从列表框中删除某项通过列表框的RemoveItem方法实现。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click() L1.AddItem Text1.TextEnd SubPrivate Sub L1_Click() L1.RemoveItem L1.ListIndexEnd Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（2）【考点分析】本题考点有：单选按钮的Name、Caption、Value属性，文本框的Name、Text属性，命令按钮的Name、Caption属性，If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过将单选按钮的Value属性值赋给文本框来实现选择不同的单选按钮在文本框中出现不同的结果。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.1200。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer) Open App.Path & out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Text1.TextEnd Sub程序结束参考答案 If Op1.Value Then Text1.Text = 需要1小时 ElseIf Op2.Value Then Text1.Text = 需要10小时 ElseIf Op3.Value Then Text1.Text = 需要15小时 End If步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【考点分析】本题考点有：变量初值定义，If判断语句，For选择语句，Function ( )函数， Fix( )函数以及文件操作。【解题思路】循环遍历数组a，通过调用Function 过程判断是否为水仙花数，通过If语句判断出水仙数，将得到的水仙数累加，然后求平均数。【解题思路】。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dim a(100) As IntegerPrivate Sub Command1_Click() Dim k As Integer Open App.Path & in5.dat For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Close #1End SubPrivate Sub Command2_Click()考生应编写的内容End SubFunction isnarc(p As Integer) x = Fix(p / 100) y = Fix(p - x * 100) / 10) z = p - x * 100 - y * 10 If p = x 3 + y 3 + z 3 Then isnarc = True Else isnarc = False End IfEnd FunctionPrivate Sub Form_Unload(Cancel As Integer) Open App.Path & out5.dat For Output As #1 Print #1, Text1.Text Close #1End Sub程序结束参考答案 Dim s As Long, n As Integer For i = 1