问题
问答题
在考生文件夹下完成如下基本操作。
1．新建一个工程，在窗体中创建两个文本框，其名称分别为Text1和Text2。编写一个事件过程，实现在程序运行后，当文本框Text1获得焦点时，其前景颜色与背景颜色交换显示。如图13所示。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体文件名为ylcl.frm。
答案
参考答案：Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。
(2)在工具箱中选择文本框控件，在窗体上创建两个文本框。双击文本框Text1，弹出代码窗口，添加如下代码：
Private Sub Text1_Gotfocus()
Dim a As Long
a=Text1. ForeColor
Text1.ForeCotor=Text1.BackColor
Text1.BackColor=a
End Sub
(3)按F5键运行程序。如图13所示。
(4)执行“文件”→“保存工程”命令，将工程文件命名为ylcl.vbp，窗体文件命名为 ylcl.frm。
解析： (1)第1小题中使用了临时变量a，在事件中，利用这个临时变量将Text1的前景色与背景色进行交换。