VB题库附答案含多套试题.docx

1、VB题库附答案含多套试题Visual Basic程序设计模拟考试(1) 在深度为5的满二叉树中，叶子结点的个数为A) 32 B) 31C) 16 D) 15B(2) 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是A) bdgcefha B) gdbecfha C) bdgaechf D) gdbehfcaD(3) 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。而实现递归调用中的存储分配通常用A) 栈 B) 堆 C) 数组 D) 链表A(4) 软件工程的理论和技术性研究的内容主要包括软件开发技术和A) 消除

2、软件危机 B) 软件工程管理C) 程序设计自动化 D) 实现软件可重用B(5) 开发软件时对提高开发人员工作效率至关重要的是A) 操作系统的资源管理功能 B) 先进的软件开发工具和环境C) 程序人员的数量 D) 计算机的并行处理能力B(6) 在软件测试设计中，软件测试的主要目的是A) 实验性运行软件 B) 证明软件正确C) 找出软件中全部错误 D) 发现软件错误而执行程序D(7) 数据处理的最小单位是A) 数据B) 数据元素 C) 数据项 D) 数据结构C(8) 索引属于A) 模式 B) 内模式 C) 外模式 D) 概念模式B(9) 下述关于数据库系统的叙述中正确的是A) 数据库系统减少了数据

3、冗余B) 数据库系统避免了一切冗余C) 数据库系统中数据的一致性是指数据类型一致D) 数据库系统比文件系统能管理更多的数据A(10) 数据库系统的核心是A) 数据库 B) 数据库管理系统C) 模拟模型 D) 软件工程B(11) 下列说法错误的是A) 窗体文件的扩展名为.frmB) 一个窗体对应一个窗体文件C) Visual Basic中的一个工程只包含一个窗体D) Visual Basic中一个工程最多可以包含255个窗体C(12) 下列四组控件属性中，属性值的类型不相同的一组是A) Label控件的Enabled属性与TextBox控件的Enabled属性B) OptionButton控件的

4、Value属性与CheckBox控件的Value属性C) Command控件的Default属性与Command控件的Cancel属性D) Command控件的Visible属性与Form控件的Visible属性B(13) 下列方法中不能退出Visual Basic的是A) 按Alt+Q组合键B) 按下Alt+F组合键，然后按Esc键C) 打开文件菜单，执行退出命令D) 按F10键，然后按F键，再按X键B(14) 任何控件都有的属性是A) BackColor B) CaptionC) Name D) BorderStyleC(15) 可以实现从键盘输入一个作为双精度变量a的值的语句是A) a=

5、InputBox() B) a=InputBox(请输入一个值) C) a=Val(InputBox(请输入一个值) ) D) a=Val(InputBox() ) C(16) 下列符号常量的声明中，不合法的是A) Const a As Single=1.1 B) Const a=OKC) Const a As Double=Sin(1) D) Const a As Integer=12C(17) 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?A) 属性对话框 B) 程序代码窗口C) 选项对话框 D) 对象浏览器C(18) 下列语句中，获得列表框List1

6、中项目个数的语句是A) x=List1.ListCount B) x=ListCountC) x=List1.ListIndex D) x=ListIndexA(19) 要获得当前驱动器应使用驱动器列表框的属性是A) Path B) DriveC) Dir D) PatternB(20) 如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过A) 8K B) 16KC) 32K D) 64KC(21) 当在滚动条内拖动滚动块时触发A) KeyUp事件 B) KeyPress事件C) Scroll事件 D) Change事件C(22) 设有声明语句Dim b(-1 To 10,

7、2 To 9, 20) As Integer则数组b中全部元素的个数A) 2310 B) 2016C) 1500 D) 1658B(23) 设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt) 0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text=BBBBB End IfEnd Sub上述

8、程序运行后，如果按 【Shift+F2】 ，则在文本框中显示得是A) Alt+F2 B) BBBBBC) 随机出几个数 D) 文本框平均内容无变化D(24) 设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其可见属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button=2 Then PopupMenu Bs, 2 End SubB) Private Sub For

9、m_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bs End SubC) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bs,0 End SubD) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As

10、 Single) If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs End SubA(25) 下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth CommonDialog1.Action=4 CommonDialog1.ShowFont Text1.F

11、ont.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.FontItalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.ColorEnd SubA) Tex

12、t1的字体不发生变化 B) Text1的字体发生变化C) Text1的字体和颜色发生变化 D) 程序出错！D(26) 要将名为MyForm的窗体显示出来，正确的使用方法是A) MyForm.Show B) Show.MyFormC) MyForm Load D) MyForm ShowA(27) 下列程序段的执行结果为a=5For k=1 To 0 a=a + kNext kPrint k; aA) -1 6 B) -1 16C) 1 5 D) 11 21C(28) 下列程序段的执行结果为a=3b=1For I=1 To 3 f=a + b a=b b=f Print fNext IA) 4

13、3 6B) 4 5 9C) 6 3 4 D) 7 2 8B(29) 下列程序段的执行结果为I=9x=5Do I=I + 1 x=x + 2Loop Until I =7Print I=; IPrint x=; xA) I4x5 B) I7x15C) I6x8 D) I10x7D(30) 以下程序段运行时从键盘上输入字符-，则输出结果为op$=InputBox(op=) If op$=+ Then a=a + 2If op$=- Then a=a - 2Print aA) 2B) -2C) 0D) +2B(31) 以下程序段的输出结果为Dim l, a(10) , p(3) k=5For i=0

14、 To 10 a(i) =iNext iFor i=0 To 2 p(i) =a(i (i + 1) ) Next iFor i=0 To 2 k=k + p(i) 2Next iPrint kA) 20 B) 21C) 56 D) 32B(32) 下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer, y As Integer x=12: y=20 Call Value(x, y) Print x; yEnd SubPrivate Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; nEnd SubA) 20 12 20 15 B) 12 20 12 25C) 24 15 12 20 D) 24 12 12 15C(33) 在窗体上画一个命令按钮，然后编写下列程序Private Sub Command3_Click() Tcl 2 Tcl 3 Tcl 4End