《VB程序设计》课程综合复习资料一、单项选择1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。
A．BACKCOLOR B．BORDERSTYLE C．FORECOLOR D．BACKSTYLE2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE3．下列关于属性设置的叙述错误的是：（A）A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值4．下列说法正确的是（C ）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中建立C．必须先建立一个工程，才能开始设计应用程序D．只能在“代码窗口”中编写程序代码5．下列关于窗体上控件的基本操作错误的是：（A ）A．下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件6．下列关于设置控件属性的叙述正确的是（C ）A．用户必须设置属性值B．所有的属性值都可以由用户随意设定C．属性值不必一一重新设置D．不同控件的属性项都完全一样7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B ）A．0 B．-1 C．TRUE D．FALSE8．下列关于控件画法的叙述错误的是（D ）A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的D．不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符9．应用程序设计完成后，应将程序保存，保存的过程是（D ）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件10．VB应用程序的运行模式是（C ）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式11．可视化编程的最大优点是（C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得12、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（A）事件来完成图形的重画工作。
A．Paint B．Load C．Click D．Active13、滚动条控件的属性中，表示取值范围最大值的属性是（A）A．Max B．LargeChange C．Min D．Value14、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（A ）A．DragDrop B．MouseDown C．MouseUp D．MouseMove15、命令按钮的标题文字由（B ）属性来设置。
A．Text B．Caption C．Name D．(名称)16、下面程序运行后输出的结果是（B ）。
Chr1="CCCCHIINAAAA"Chr2=Left(Chr1,3)PRINT Chr2ENDA．CHI B．CCC C．INA D．AAA17、以下语句的输出结果是（C ）。
Print Format$(32548.5, "###,###.##")A．032,548,50 B．325,485.00 C．32548.5 D．32,548,5018、若要设置文本的显示颜色，则可用（B ）属性来实现。
A．BackColor B．Forecolor C．FillColor D．Backstyle19、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（B ）属性为Ture 来实现。
A．Enabled B．Value C．Default D．Cancel20、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（B）。
A．4 B．5 C．6 D．7二、简答题1．在程序设计中为什么尽量不用GoTo语句？2．框架的作用是什么？3．如何为一个菜单项设置热键和快捷键？4．程序出错的类型有哪几种？5．在设计状态，若用户想打开代码窗口，应怎样操作？代码窗口主要包括哪几部分？6．表间的关系类型有哪几种？二、简答题1．答案要点：主要是为了结构化。
2．答案要点：框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。
3．答案要点：为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择。
4．答案要点：四种：语法错误、编译错误、运行错误和逻辑错误。
5．答案要点：在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要三部分：对象列表、事件列表、代码窗口。
6．答案要点：表间的关系类型有三种：一对一、一对多和多对多。
三、编程题1．编程求任意两个正整数（利用两个文本框输入）的最大公约数，并利用标签输出结果。
Private Sub Command1_Click()Dim m, n, r As Integerm = Val ( Text1.Text )n = Val ( Text2.Text )If m < 0 Or n < 0 ThenLabel2.Caption = "输入数据有错！"Elser = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopLabel2.Caption = "最大公约数为：" & nEnd IfEnd Sub2．编程实现对n个整数按由小到大的顺序排序。
Private Sub sort(arraya() As Integer, n As Integer)Dim p As Integer, i As Integer, j As Integer, temp As Integer For i = 1 To n - 1p = iFor j = i + 1 To nIf arraya(p) > arraya(j) Then p = jNext jIf p <> i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = temp Next iEnd Sub3．请编程实现每30秒在窗体上显示一次当前的时间。
Private Sub Form_Load()Timer1.Interval = 30000End SubPrivate Sub Timer1_Timer()Print TimeEnd Sub《VB程序设计》课程综合复习资料参考答案二、简答题1．答案要点：主要是为了结构化。
2．答案要点：框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。
3．答案要点：为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择。
4．答案要点：四种：语法错误、编译错误、运行错误和逻辑错误。
5．答案要点：在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要三部分：对象列表、事件列表、代码窗口。
6．答案要点：表间的关系类型有三种：一对一、一对多和多对多。
三、编程题1．参考程序如下：Private Sub Command1_Click()Dim m, n, r As Integerm = Val ( Text1.Text )n = Val ( Text2.Text )If m < 0 Or n < 0 ThenLabel2.Caption = "输入数据有错！"Elser = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopLabel2.Caption = "最大公约数为：" & nEnd IfEnd Sub2．参考程序如下：Private Sub sort(arraya() As Integer, n As Integer)Dim p As Integer, i As Integer, j As Integer, temp As IntegerFor i = 1 To n - 1p = iFor j = i + 1 To nIf arraya(p) > arraya(j) Then p = jNext jIf p <> i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = tempNext iEnd Sub3．参考程序如下：Private Sub Form_Load()Timer1.Interval = 30000End SubPrivate Sub Timer1_Timer()Print TimeEnd Sub新建一个form1添加command1添加label1label1高度设的稍高一点，以显示数据。
form代码视图中加入以下语句.Private Sub Command1_Click() '定义变量Dim a(9) As IntegerDim i As IntegerDim r As IntegerDim t As Integer '产生随机数RandomizeFor i = 0 To 9a(i) = CInt(Rnd() * 100)Next i '排序For i = 0 To 8For r = i + 1 To 9If a(i) > a(r) Thent = a(i)a(i) = a(r)a(r) = tEnd IfNext rNext i '显示数据Label1.Caption = ""For i = 0 To 9Label1.Caption = Label1.Caption + "第" + CStr(i + 1) + "个随机数=" + CStr(a(i)) + vbCrLfNext iEnd Sub对单选按钮进行分组，每一组单选按钮都是独立的，对一组单选按钮进行操作不会影响其他组单选.按钮的选择；另外可对窗体上现有控件进行分组，提供视觉上的区分和总体的激活或屏蔽特性。