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上，则在设计时需要将__________控件的_________属性设置为__________。 7、在标签控件中通过编程使文字换行用的代码是___________________。 8、设置计时器控件只能触发______________________事件。

9、设置计时器对象触发事件的时间间隔用_____________________属性。 10、滚动条控件主要支持两个事件，它们是_______________事件。

11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。 12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能。 （1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上：

Private Sub Command1_Click( )

List.__________(7)=True

第 18 页 共 32 页

Print List1.______________ End Sub

（2）单击列表框某一项时立即将该项打印在窗体上：

Private Sub List1_Click( )

Print_______________ End Sub

（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项：

Private Sub Command1_Click( )

For I=1 To 5

List1.____________ Next I End Sub

（4）在列表框的每一项之后插入一个新的项：

Private Sub Command1_Click( )

For I=1 to 10

X=InputBox(“请输入插入的第” & I & “项内容”) List1.AddItem____________ Next I End Sub

13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。

Private Sub Hscroll1.__________________( )

Label1.Caption = Hscroll1.___________________ End Sub

要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。

Private Sub Hscroll1.________________( )

第 19 页 共 32 页

Label1.Caption = Hscroll1.__________________ End Sub

14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中__ __属性存放了列表框中所有项目的值。 15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的状态，其中与复选标志相对应的属性是__ __。

16、keydown与keypress事件各有其参数，若需获得用户按下 \还是 \需用____________事件。

17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。 18、若需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_________________来实现。

19、菜单中的分隔条是一种菜单控件，不响应__________事件，不能被选中。

二、选择题

1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到( )

A．MouseDown

B．MouseUp

C．Load

D．Click

2、窗体Form1的Name属性是Frm1，它的单击事件过程名是（ ）

A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 3、用于设置通用对话框控件显示文件类型的属性是（ ）

A．Filter B．Path C．Partern D．FoleName 4、用于从内存删除窗体的命令是（ ）

A．Move B．Hide C．Unload D．Delete 5、用于返回窗体可用区域宽度的属性是（ ）

A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop 6、下列关于属性设置的叙述错误的是：（ ）

A．一个控件具有什么属性是VB预先设计好的，用户不能改变 B．一个控件具有什么属性是VB预先设计好的，用户可以改变 C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置

第 20 页 共 32 页