问题
问答题
新建一个工程，在窗体中创建两个文本框，其名称分别为Text1和Text2。编写一个事件过程，实现在程序运行后，若在文本框Text1中输入一个字符串。若该字符串超过15个字符后，超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc4.vbp，窗体文件名为ylc4.frm。
答案
参考答案：Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。
(2)在工具箱中选择文本框控件，在窗体上创建两个文本框。双击文本框Text1，弹出代码窗口，添加如下代码：
Private Sub Text1_Change()
If Len(Text1.Text)＞=15 Then
Text2.SetFocus
End If
End Sub
(3)按F5键运行程序。如图12所示。
(4)执行“文件”→“保存工程”命令，将工程文件命名为ylc4.vbp，窗体文件命名为 ylc4．frm。
解析： (4)第4小题中利用了SetFocus来控制焦点。当Text1窗口中的字符串超过长度时，焦点转移到文本框Text2中。