Loop Print i End Sub
6、分析以下程序，写出运行结果。
Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2
If(a>=b)and(a>=c) or (b>c) Then
Print a a=a+2 Else
Print b EndIf Print a;b;c End Sub
7、分析以下程序，写出运行结果。
Sub swap() Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,z
第 16 页 共 32 页
End Sub
8、分析以下程序，写出运行结果。
Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2
If(a>=b)and(a>c)Then Print a Print a,b,c End Sub
五、编程题
1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。
2、输入两个正整数m、n，求m和n的最大公约数。要求建立如下图所示的窗体，其中主要的控件包括：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）。
3、输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息。
4、在窗体中显示从9号字型到16号字型。
5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列）。 6、编程实现二维数组转置。
7、随机输入10个100以内的整型数，计算其和及平均值。
第 17 页 共 32 页
8、找出所有的水仙花数。水仙花数是个三位数，它的各位数字的立方和等于这个三位数本身。例如371＝33+73+13，则371是水仙花数。
9、从键盘输入一个大于2的正整数，判断该数是否是素数。 10、求二维数组中的最小值及其所在行号、列号。 11、求一元二次方程ax2+bx+c=0的根（包括实根和复根）。 12、输入一个正整数n，计算出n!并输出。
13、Faibonacci数列为0，1，1，2，3，5，8，13 ?，计算并输出第20项以及前20项的和。
第四章 常用控件与窗体
一、填空题
1、向列表框控件添加新项目的方法是__________。
2、在VB中，最主要的两种对象是____________和____________。 3、当窗体启动时可通过__________属性控制窗体位于所有者的中心位置。 4、若要将窗体Form1隐藏起来，则可通过执行代码_________________来实现。
5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属性为__________。
6、窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将__________控件的_________属性设置为_________