在vb中如何实现任意两图像控件中的图像被点击后交换

实现任意两图像控件中的图像被点击后交换的代码：

Private Sub Picture1_Click()'

Me.Picture = Picture1.Picture'

Picture1.Picture = Picture2.Picture'

Picture2.Picture = Me.Picture'

Me.Picture = Nothing'

End Sub

扩展资料：

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

参考资料来源：百度百科-Visual Basic

Private Sub Form_Click()

'请求用户给a和b输入值

Dim a As String, b As String

a = InputBox("输入a的值", "输入信息")

b = InputBox("输入b的值", "输入信息")

'交换a和b的值

Dim c As String

c = a

a = b

b = c

'在窗体上输出变量交换前后的值

Print "交换后a的值为:" &a

Print "交换后b的值为:" &b

End Sub