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

基本题(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 + 2
End Sub
Private Sub Command2_Click()
Label1.FontSize = 12
End 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 Integer
Private 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
End
End Select
End Sub
Private Sub Timer1_Timer()
t(3) = t(3) + 1
' If t(3) = ? Then
t(3) = 0
t(2) = t(2) + 1
If t(2) = 60 Then
t(2) = 0
t(1) = t(1) + 1
End If
End If
For i = 1 To 3
'Text( ? )．Text = t(i)
Next
End 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 1
Dim a(20, 5) As Integer
Private Sub Command1_Click()
Open App.Path & "\in4.dat" For Input As #1
For i = 1 To 20
For j = 1 To 5
Input #1, a(i, j)
Text1 = Text1 + Str(a(i, j)) + Space(2)
Next j
Next i
Close #1
End Sub
程序结束
参考答案
Private Sub Command2_Click()
Dim sum As Long
Dim 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 + max
Next i
Text2 = 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 1
Dim s As String
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
' If Len(s) =? Then
MsgBox "请先使用"读数据"功能！"
Else
t = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
'If ? <> " " Then
t = t + c
Else
' ? = LCase(t)
If InStr(x, "t") <> 0 And InStr(x, "h") <> 0 And InStr(x, "e") <> 0 Then 'm = ?
End If
t = ""
End If
Next i
Text2.Text = m
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
程序结束
参考答案
第1个？处填入：0
第2个？处填入：c
第3个？处填入：x
第4个？处填入：m + 1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。