. 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以内的整型数，计算其和及平均值。
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、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属
16 / 52
.
性为__________。
6、窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将__________控件的_________属性设置为__________。 7、在标签控件中通过编程使文字换行用的代码是___________________。 8、设置计时器控件只能触发______________________事件。
9、设置计时器对象触发事件的时间间隔用_____________________属性。 10、滚动条控件主要支持两个事件，它们是_______________事件。
11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。 12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能。 （1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上：
Private Sub Command1_Click( )
List.__________(7)=True 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
17 / 52
.
End Sub
13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.__________________( )
Label1.Caption = Hscroll1.___________________ End Sub
要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.________________( )
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、用于从内存删除窗体的命令是（ ）
18 / 52
.
A．Move B．Hide C．Unload D．Delete 5、用于返回窗体可用区域宽度的属性是（ ）
A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop 6、下列关于属性设置的叙述错误的是：（ ）
A．一个控件具有什么属性是VB预先设计好的，用户不能改变 B．一个控件具有什么属性是VB预先设计好的，用户可以改变 C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置 D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值 7、下列说法正确的是（ ）
A．对象属性只能在“属性窗口”中设置 B．一个新的工程可以在“工程窗口”中建立 C．必须先建立一个工程，才能开始设计应用程序 D．只能在“代码窗口”中编写程序代码 8、下列关于窗体上控件的基本操作错误的是（ ）
A．按下一次DEL键只能删除一个控件 B．按下一次DEL键可以同时删除多个控件
C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件 D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件 9、下列关于设置控件属性的叙述正确的是（ ）
A．用户必须设置属性值
B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样
10、不可以通过下列（ ）操作将焦点赋给对象
A．运行时使用TAB键
B．在代码中用CALL语句调用 D．用访问键或用鼠标单击选择对象
C．在代码中用SETFOCUS方法
11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（ ）
A．设置窗体的VISIBLE属性 C．调用窗体的SHOW方法
B．设置窗体的CAPTION D．设置窗体ENABLED属性
12、下面（ ）对象无CAPTION属性
19 / 52
. A．FORM B．COMMANDBUTTON C．TEXTBOX D．LABEL
13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过滤，后者使用（ ）属性进行该项设置。
A．Pattern
B．Path
C．Filter
D．FileName
14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（ ）
A．chkBoy.Checked = true C．chkBoy.Selected = true
B．chkBoy.Value = true D．chkBoy.Value = 1
15、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（ ）
A．Interval
B．SmallChange D．Max
C．LargeChange
16、以下关于VB中窗体（Form）的说法中，不正确的描述为（ ）
A．执行Unload Form语句后，窗体Form消失，但仍在内存中
B．当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 C．窗体的Height、width属性用于设置窗体的高和宽 D．窗体的load事件在加载窗体时发生 17、关于滚动条控件，下面说法错误的是（ ）
A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件 B．拖动滚动框，可以触发Scroll事件
C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增 D．拖动滚动框，可以触发Change事件，而且是连续触发的
18、在窗体上放置一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
PriVate Sub Command1_C1ick()
a$=\b$＝Right(a$,8) c$=Mid(a$,1,8) Msgbox a$,b$,c$,1 End Sub
则在弹出的信息框的标题栏中显示的信息是（ ）
20 / 52
VisualBasic程序设计教程第三版课后习题答案 - 图文
