实验目的
1. 理解程序设计中的三种基本结构。
2. 掌握赋值语句和三种形式分支语句的使用。
3. 能够利用赋值语句和分支语句设计简单的VB程序。
4. 学习调试程序的基本方法，掌握Print方法和InputBox（）函数的使用。
实验内容
一、交换两个变量的值
通过键盘输入两个整数分别存放到变量A和B之中，然后交换两个变量的值，并在窗体上打印出交换之前和交换之后的值。补充完善如下代码，并调试通过。
PrivateSub Form_Click()
Dim A As Integer
Dim B As Integer
Dim T As Integer
A =
B =
Print "交换之前：A=",A, "B=", B
Print "交换之后：A=",A, "B=", B
EndSub
运行该程序。在程序中使用InputBox()函数从键盘输入内容，该函数接收输入并返回一个字符串类型的值，将该函数赋值给变量A、B后，变量A、B拥有什么类型的值？为什么？
二、求三个数中最大的数
通过键盘输入3个整数，将其中最大的数打印出来。补充完善如下代码，并调试通过。
PrivateSub Form_Click()
Dimmax As Integer
Dima As Integer
Dimb As Integer
Dimc As Integer
a =InputBox("请输入第一个数")
b =InputBox("请输入第二个数")
c =InputBox("请输入第三个数")
max =a
Print"最大的数是：",max
EndSub
三、将三个数从小到大排序
通过键盘输入3个整数，将它们从小到大排列起来，并打印输出结果。提示：本程序可参照实验中的前两个程序进行，对a，b，c三个数逐个进行比较，如果后面的数小于前面的数，则交换它们的值，最后a，b，c则是小到大排列的。补充完善如下代码，并调试通过。
PrivateSub Form_Click()
Dima As Integer
Dim b As Integer
Dim c As Integer
Dim t As Integer
a = InputBox("请输入第一个数")
b = InputBox("请输入第二个数")
c = InputBox("请输入第三个数")
If a > b Then
End If
If b > c Then
End If
Print "从小到大的排列顺序为：",a, b, c
EndSub
运行该程序。然后对“在3个数中查找最大的数”和“3个数的排序”的程序进行比较，并回答如下问题。
（1）3个数中找最大的数，考虑到排列的各种可能，至少要比较几次？
（2）3个数从小到大排列，考虑到排列的各种可能，至少要比较几次？
（3）n个数中找最大的数，考虑到排列的各种可能，至少要比较几次？
（4）n个数从小到大排列，考虑到排列的各种可能，至少要比较几次？
四、求某年的生肖
输入1900~2010年之间的任意一个年份，输出该年的生肖文字，如果输入1900~2010年之外的整数，则输出“超出范围”。提示：用某年的生肖为基准，求12的模数，例如2002年为马年，而2002除以12余数为10，则所有年份除以12余10的都为马年。生肖的排列顺序为：鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪。补充完善如下代码，并调试通过。
PrivateSub Form_Click()
Dim year As Integer
Dim n As Integer
year = InputBox("请输入一个在1900~2010之间的年份")
If year < 1900 Or year > 2010 Then
Print "超出范围"
Else
n = year Mod 12
Print "猴"
Print "鸡"
Print "狗"
Print "猪"
Print "鼠"
Print "牛"
Print "虎"
Print "兔"
Print "龙"
Print "蛇"
Print "马"
Print "羊"
End Select
End If
EndSub
问题：请使用单行结构的If语句和块结构的if语句重新编写该程序，实现同样的功能。
五、求一元二次方程的根
求一元二次方程ax2+bx+c=0的根。使用文本框控件输入a、b、c的值，然后单击“求根”命令按钮求出一元二次方程的根，其值显示在文本框中。提示：根据一元二次方程的系数a、b、c，通过b2-4ac判断求根的情况，并使该程序具有如图4-1所示的界面，窗体上的提示字符使用标签控件。
