为Form1、标题为“文本框练习”的窗体上添加1个名称为Text1的文本框.doc

基本题 (1) 【解题思路】MaxLength属性设置文本框中输入的字符串长度是否有限制。默认值为0，表示该单行文本框中字符串的长度只受操作系统内存的限制；若设置为大于0的数，则表示能够输入的最大字符数目。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.162。 表3.162步骤2：调试并运行程序，关闭程序后按题目要求存盘。基本题 (2) 【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过程中，通过设置标签的FontSize属性值实现标签内容字体的放大和还原。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.163和表3.164。 表3.163 表3.164步骤2：编写程序代码。参考答案Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 2End SubPrivate Sub Command2_Click() Label1.FontSize = 12End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题 (1) 【解题思路】在Cmd Click 事件过程中，通过Select Case语句判断选择命令按钮数组的Index属性值，Case 0表示单击开始按钮，计时器Timer1和暂停按钮的Enabled属性为True，状态变为可用，且如果Cmd(0)的Caption属性是开始按钮，那么Cmd(0)的Caption属性变为继续，且Cmd(0)为不可用，单击继续按钮，则Timer1接着开始工作，继续按钮变为不可用，暂停按钮变为可用。同理Case 1表示单击暂停按钮，则Timer1停止工作，暂停按钮变为不可用，继续按钮变为可用；Case 2表示单击结果按钮，则结束程序运行。Timer1 Timer 事件过程通过If判断语句，实现秒向分钟，分钟向小时的转换，并在三个文本框中显示出来。【操作步骤】步骤1：打开本题工程文件，画1个计时器timer1，设置计时器Interval属性为1000，Enabled属性设置为False。步骤2：分析并编写程序代码。程序提供代码Dim t(3) As IntegerPrivate Sub Cmd_Click(Index As Integer) Select Case ? Case 0 Timer1.Enabled = ? Cmd(1)Enabled = True If Cmd(0)Caption = 开始 Then Cmd(0)Caption = 继续 End If Cmd(0)Enabled = ? Case 1 Timer1.Enabled = False Cmd(0)Enabled = True Cmd(1)Enabled = False Case 2 EndEnd SelectEnd SubPrivate Sub Timer1_Timer()t(3) = t(3) + 1 If t(3) = ? Thent(3) = 0t(2) = t(2) + 1If t(2) = 60 Thent(2) = 0t(1) = t(1) + 1End IfEnd IfFor i = 1 To 3 Text( ? )Text = t(i)NextEnd Sub程序结束参考答案第1个？处填入：Index第2个？处填入：True第3个？处填入：False第4个？处填入：60第5个？处填入：i - 1步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题 (2)【解题思路】在Command1 Click事件过程中，把考生文件夹下in4.dat文件的内容读入20行5列的二维数据a中，同时运用Str函数，Space函数以及连接符将其显示在Text1文本框中。在Command2 Click事件过程中，通过循环嵌套先求出每一行的最大值max，再对最大值进行累加求和，得出每一行最大值的和sum，然后通过Int函数对二维数组中每行最大数的平均值截尾取整，并将最终结果显示在Text2文本框内。【操作步骤】步骤1：打开本题工程文件，添加一个标题为所有行中最大数的平均值的标签Label1，再添加一个初始内容为空的文本框Text2。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim a(20, 5) As IntegerPrivate Sub Command1_Click()Open App.Path & in4.dat For Input As #1For i = 1 To 20For j = 1 To 5Input #1, a(i, j)Text1 = Text1 + Str(a(i, j) + Space(2)Next jNext iClose #1End Sub程序结束参考答案Private Sub Command2_Click()Dim sum As LongDim max As Integer For i = 1 To 20 max = a(i, 1) For j = 1 To 5 If a(i, j) max Then max = a(i, j) End If Next j sum = sum + maxNext iText2 = Int(sum / 20)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】单击读数据按钮将考生文件夹下in4.dat文件的内容显示在Text1文本框中。在Command2 Click事件过程中，运用Len()函数判断文本框中是否有字符，如果Len(s)0那么弹出MsgBox对话框请先使用读数据功能！。InStr()函数用于从字符串的头开始查找字符串中是否含有某一字符，如果找不到返回0。LCase函数把大写字母转化为小写字母使统计不区分大小写字母，运用InStr()函数判断，单词中是否同时含有t、h、e三个字母，并通过变量m对单词的个数进行累加，将统计结果显示在Text2文本框内。【操作步骤】步骤1：打开本题工程文件，添加1个名称为Label1、标题为同时含有字母t、h、e的单词数为的标签；再添加1个名称为Text2，初始内容为空的文本框。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim s As StringPrivate Sub Command1_Click() Open App.Path & in5.dat For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = sEnd SubPrivate Sub Command2_Click() If Len(s) = ? Then MsgBox 请先使用读数据功能！ Else t = For i = 1 To Len(s)c = Mid(s, i, 1)If ? Thent = t + cElse ? = LCase(t)If InStr(x, t) 0 And InStr(x, h) 0 And InStr(x, e) 0 Then m = ?End Ift = End If Next i Text2.Text = m End IfEnd SubPrivate Sub Form_Unload(Cancel