VB程序设计在线考试答案

1、VB 程序设计课程综合复习资料、单项选择1若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。A BACKCOLORB BORDERSTYLECFORECOLORDBACKSTYLE2如果要在文本框中输入字符时，只显示某个字符，如星号（* ），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（ B ）A 文本框的 MULTILINE 属性值为 TRUEB 文本框的 LOCKED 属性值为 TRUEC 文本框的 MULTILINE 属性值为 FALSED 文本框的 LOCKED 属性为 FALSE3下列关于属性设置的叙述错误的是： （ A ）A 一个控件具有什

2、么属性是 VB 预先设计好的，用户不能改变B 一个控件具有什么属性是 VB 预先设计好的，用户可以改变C一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值4下列说法正确的是（ C ）A 对象属性只能在“属性窗口”中设置B一个新的工程可以在“工程窗口”中建立C必须先建立一个工程，才能开始设计应用程序D只能在“代码窗口”中编写程序代码5下列关于窗体上控件的基本操作错误的是：（A ）A 下一次 DEL 键只能删除一个控件B 按下一次 DEL 键可以同时删除多个控件C按住 SHIFT 键，然后单击每个要选择的控件，可以同时选中多个

3、控件D 按住 ALT 键，然后单击每个要选择的控件，可以同时选中多个控件6下列关于设置控件属性的叙述正确的是（C ）A 用户必须设置属性值B所有的属性值都可以由用户随意设定C属性值不必一一重新设置D 不同控件的属性项都完全一样7如果将布尔常量值 TRUE 赋值给一个整型变量，则整型变量的值为（ B ）A0B-1CTRUEDFALSE8下列关于控件画法的叙述错误的是（D ）A 单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B 按住 CTRL 键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C双击工具箱中的控件图标，所画控件的大小和位置是固定的D不合用工具箱中的控件工

4、具，不可以在窗估上画出图形对象，但可以写入文字字符9应用程序设计完成后，应将程序保存，保存的过程是（D ）A 只保存窗体文件即可B只保存工程文件即可C先保存工程文件，之后保存窗体文件D 先保存窗体文件（或标准模块文件） ，之后还要保存工程文件10 VB 应用程序的运行模式是（ C ）A 解释运行模式B编译运行模式C两者都有D汇编模式11可视化编程的最大优点是（C）A 具有标准工具箱B一个工程文件由若干个窗体文件组成C不需要编写大量代码来描述图形对象D所见即所得12、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如 果要保持该所画图形的完整性，可以选择触发（A

5、）事件来完成图形的重画工作。A PaintB LoadCClickD Active13、滚动条控件的属性中，表示取值范围最大值的属性是（A ）A MaxB LargeChange CMinD Value14、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选 项用于表示拖动事件（ A ）A DragDropB MouseDown CMouseUpD MouseMove15、命令按钮的标题文字由（ B ）属性来设置。A TextB CaptionCNameD（名称 ）16、下面程序运行后输出的结果是（B ）。Chr1="CCCCHIINAAAA"

6、;Chr2=Left（Chr1,3）PRINT Chr2ENDACHI BCCCCINAD AAA17、以下语句的输出结果是（C ）。Print Format$（32548.5, "#,#.#"）A 032,548,50B325,485.00C32548.5D 32,548,5018、若要设置文本的显示颜色，则可用（B ）属性来实现。A BackColorB ForecolorCFillColorD Backstyle19、在运行时， 若要调用某命令钮的 Click 事件过程， 则可设置该命令钮对象的 （ B ）属性为 Ture 来实现。AEnabledB ValueCDe

7、faultD Cancel20、表达式4+5 6 *7 / 8 Mod 9的值是（ B ）。A4B5C6D 7、简答题1在程序设计中为什么尽量不用GoTo 语句？2框架的作用是什么？3如何为一个菜单项设置热键和快捷键？4程序出错的类型有哪几种？5在设计状态，若用户想打开代码窗口，应怎样操作？代码窗口主要包括哪几部分？6表间的关系类型有哪几种？二、简答题1答案要点：主要是为了结构化。 2答案要点：框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。3答案要点： 为一个菜单项设置热键时需要在相应字符前面加& ，设置快捷键需要在菜单编辑器中选择。4答案要点：四种：语法错误、编译错误、

8、运行错误和逻辑错误。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 = " 输入数据有错！ &

9、quot;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 IntegerFor i = 1 To n - 1p = iFor j = i + 1 To

10、nIf arraya(p) > arraya(j) Then p = jNext jIf p <> i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = tempNext iEnd Sub3请编程实现每 30 秒在窗体上显示一次当前的时间。 Private Sub Form_Load()Timer1.Interval = 30000End SubPrivate Sub Timer1_Timer()Print TimeEnd SubVB 程序设计课程综合复习资料参考答案、单项选择题目12345678910答案

11、DBACACBDDC题目11121314151617181920答案CAAABBCBBB二、简答题1答案要点：主要是为了结构化。 2答案要点：框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。3答案要点： 为一个菜单项设置热键时需要在相应字符前面加& ，设置快捷键需要在菜单编辑器中选择。4答案要点：四种：语法错误、编译错误、运行错误和逻辑错误。5答案要点：在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要 三部分：对象列表、事件列表、代码窗口。6答案要点：表间的关系类型有三种：一对一、一对多和多对多。三、编程题1参考程序如下：Private Sub Co

12、mmand1_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 = n n = rr = m Mod nLoopLabel2.Caption = " 最大公约数为：End IfEnd Sub2参考程序如下：Private Sub sort(arraya() As Integer, n

13、As Integer)Dim p As Integer, i As Integer, j As Integer, temp As IntegerFor i = 1 To n - 1 p = 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 Sub 3参考程序如下：Private Sub Form_Load()Timer1.Interval

14、= 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 &

15、#39;排序For i = 0 To 8For r = i + 1 To 9If a(i) > a(r) Then t = 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对单选按钮进行分组， 每一组单选按钮都是独立的， 对一组单选按钮进行操作不会影响其他组 单选 .按钮的选择；