在1上画两个文本框(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 = TrueEnd SubPrivate Sub Form_DblClick() Text1.Visible = True Text2.Visible = FalseEnd 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 = Text1End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（1）【考点分析】本题考点有：文本框的Text属性，数组的定义，Array( )函数，&连接符， Str( )函数，If判断语句和For循环语句。【解题思路】单击命令按钮，首先通过Array( )函数初始化数组。用If语句判断数组中的正数和负数，用For循环将正数累加到pos变量中，将负数累加到neg变量中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Private 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 = TrueEnd SubPrivate Sub Command1_Click() Command1.Caption = 继续 Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If Label1.FontSize = 100 Then Label1.FontSize = Label1.FontSize * 1.1 Else Label1.FontSize = 8 End IfEnd Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【考点分析】本题考点有：文件操作，窗体变量的定义，+连接符，LCase( )函数，Len( )函数，Mid( )函数，If判断语句和For循环语句。 【解题思路】Len( )函数用于统计文本的长度。For循环中，用Mid( )函数获得单个字符，并用LCase( )函数将其都转化为小写字母，然后分别统计三个字母出现的次数，并显示在文本框Text2中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private str1 As StringPrivate intR, intT, intD As IntegerPrivate tmpStr As StringPrivate Sub Command1_Click() Open in5.txt For Input As 1 Line Input #1, str1 Close #1 Text1.Text = str1End SubPrivate Sub Command2_Click()请考生编写统计字母R、T、D出现的次数（忽略大小写）的事件过程必须把R、T、D的统计结果分别保存在窗体变量intR,、intT、 intD中,否则没有成绩End SubPrivate Sub Command3_Click() Open out5.txt For Output As #1 Write #1, intR, intT, intD Close #1End Sub程序结束参考答案 intR = 0 intT = 0 intD = 0 For i = 1 To Len(str1) ch = LCase(Mid(str1, i, 1) If ch = r Then in