在Form1上画两个文本框(Text1和Text2)内容分别为“文本框1、2”Text1隐藏,Text2显示,.doc

基础题（1）【考点分析】本题考点有：文本框的Name、Text、Visible属性。窗体的Click和DblClick事件。 【解题思路】根据题意建立文本框并设置其属性。窗体的Click事件中，将Text1的Visible属性设为False，Text2的Visible属性设为True；窗体的DblClick事件中，将Text1的Visible属性设为True，Text2的Visible属性设为False。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.257。 表3.257 步骤2：编写程序代码。 参考答案 Private Sub Form_Click() Text1.Visible = False Text2.Visible = True End Sub Private Sub Form_DblClick() Text1.Visible = True Text2.Visible = False End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2） 【考点分析】本题考点有：文本框的Name、Text属性，水平滚动条的Name、SmallChange、LargeChange、Min、Max、Value属性，窗体的Click事件。 【解题思路】根据题意建立控件并设置其相应的属性。在Form_Click事件中，将文本框的Text属性值赋给水平滚动条的Value属性。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.258。 表3.258 步骤2：编写程序代码。 参考答案 Private Sub Form_Click() HS1.Value = Text1 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（1） 【考点分析】本题考点有：文本框的Text属性，数组的定义，Array( )函数，连接符， Str( )函数，If判断语句和For循环语句。 【解题思路】单击命令按钮，首先通过Array( )函数初始化数组。用If语句判断数组中的正数和负数，用For循环将正数累加到pos变量中，将负数累加到neg变量中。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72) pos = 0 neg = 0 For k = 1 To 10 If Arr(k) 0 Then pos = pos + Arr(k) Else neg = neg + Arr(k) End If Next k Text1.Text = 正数之和为： Str(pos) Text2.Text = 负数之和为： Str(neg) End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（2） 【考点分析】本题考点有：命令按钮的Caption、Enabled属性，计时器的Interval、Enabled属性，标签的Caption、AutoSize、FontBold、FontSize，If判断语句。 【解题思路】按钮禁用只需将其Enabled属性设为False即可，按钮标题的改变通过其Caption属性来设置。在Command1_Click事件中，计时器的Enabled属性为True；在Command2_Click事件中，计时器的Enabled属性为False。 【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_Load() Command1.Caption = 开始 Command2.Caption = 停止 Timer1.Interval = 100 Timer1.Enabled = False Label1.Caption = 国 Label1.AutoSize = True Label1.FontBold = True End Sub Private Sub Command1_Click() Comma