VB：实现图片缩小和还原的程序

题目来源：大工慕课 链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验1-6
作者：Caleb Sung

题外话

时隔将近十年第一次写VB啦hhh（上一次是在小学……），有点小兴奋(￣▽￣)~*
纯VB只能在老掉牙的vb6.0平台下写，之后的VS都是vb.net，和vb代码还是有很大区别的。电商专业大三学习的也是vb.net
此外之前用的按键精灵的编程语言貌似也是基于VB写的

题目要求

窗体上设置一个Image图像控件和两个命令按钮，Image图像控件装入自己喜欢的图片，设置Stretch属性为True，使得图片随着图像随着图像的控件的大小而变，如图所示：

（我们一定要收复台湾！）

分析&注意事项

为了实现还原效果，首先要做以下3件事：

• 必须在事件过程外，即程序代码最上方声明窗体级变量：

Dim h%,w% `用户输入的变量声明语句

• 在Form1_Load事件中保存图像控件的初始值：

w=Image1.Width
h=Image1.Height

• 在Command2_Click事件中还原为初始值：

Image1.Width=w
Image1.Height=h

参考代码

双击主窗体（默认名Form1），打开代码编辑器
（吐槽一句，习惯了集成IDE的自动补全之后再用这个98年的老爷爷级编译器实在是接受不能……）

Dim h%, w%

Private Sub Command1_Click()
Image1.Width = Image1.Width * 0.5
Image1.Height = Image1.Height * 0.5
End Sub

Private Sub Command2_Click()
Image1.Width = w
Image1.Height = h
End Sub

Private Sub Form_Load()
w = Image1.Width
h = Image1.Height
End Sub