一.开始->程序->Microsoft Visual Basic企业中文版->Microsoft Visual Basic企业中文版
二.文件->新建->标准Exe工程
三.工具箱->选择TextBox(即文体框)控件->在窗体上画出N个
四.选中你的第一个TextBox->属性窗口->设置Tag为1
五.选中你的第二个TextBox->属性窗口->设置Tag为2
六.选中你的第三个TextBox->属性窗口->设置Tag为3
七.选中你的第四个TextBox->属性窗口->设置Tag为4
八.工具箱->选择CommandButton(即命令按扭)->在窗体上画出
九.双击Command1进行代码编辑框
十.编写如下代码:
Private Sub Command1_Click()
Dim obj As Object
For Each obj In Me.Controls
If TypeOf obj Is TextBox Then
If obj.Tag = 1 Or obj.Tag = 2 Or _
obj.Tag = 3 Or obj.Tag = 4 Then
obj.Text = ""
End If
End If
Next
End Sub
十一.运行 ->启动->单击Command1
十二.退出.
十三.建议使用控件数组.