[问答题] 新建一个工程，在窗体中创建两个文本框，其名称分别为Text1和Text2。编写一个事件过程，实现在程序运行后，若在文本框Text1中输入一个字符串。若该字符串超过15个字符后，超出部分在文

[问答题] 新建一个工程，在窗体中创建两个文本框，其名称分别为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中。