[计算机类试卷]VB笔试模拟试卷249及答案与解析.doc
《[计算机类试卷]VB笔试模拟试卷249及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]VB笔试模拟试卷249及答案与解析.doc(25页珍藏版)》请在麦多课文档分享上搜索。
1、VB 笔试模拟试卷 249及答案与解析 1 下面不属于软件设计原则的是 ( A)抽象 ( B)模块化 ( C)自底向上 ( D)信息隐蔽 2 有如下程序: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single, y As Single) t=X X=tY Y=t Mod y End Sub 在调用运行上述程序后, a和 b的值分别为 ( A) 0 0 ( B) 1 1 ( C) 2 2 ( D) 1 2 3 Sub过程与 F
2、unction过程最根本的区别是 ( A) Sub过程可以用 Call语句直接使用过程名调用,而 Function过程不可以 ( B) Function过程可以有形参, Sub过程不可以 ( C) Sub过程不能返回值,而 Function过程能返回值 ( D)两种过程参数的传递方式不同 4 下面属于黑盒测试方法的是 ( )。 ( A)语句覆盖 ( B)逻辑覆盖 ( C)边界值分析 ( D)路径覆盖 5 假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为 a1,其 “可见 ”属性为 False,则程序运行后,可以同时响应鼠标左键单击和右键单击的事件过程是 _。 ( A) Priv
3、ate Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 And Button = 2 Then PopupMenu al End If End Sub ( B) Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End Sub ( C) Private Sub Form_ MouseDo
4、wn (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 Then PopupMenu a 1 End If End Sub ( D) Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 2 Then PopupMenu a 1 End If End Sub 6 简单的交换排序方法是 ( )。 ( A)快速排序 ( B)选择排序 ( C
5、)堆排序 ( D)冒泡排序 7 层次模型、网状模型和关系模型的划分原则是 _。 ( A)记录长度 ( B)文件的大小 ( C)联系的复杂程度 ( D)数据之间的联系 8 以下数据结构属于非线性数据结构的 是 _。 ( A)队列 ( B)线性表 ( C)二叉树 ( D)栈 9 进行程序设计时, ( )不是进行输入和输出方式设计时必须考虑的原则。 ( A)应允许使用自由格式 ( B)应允许默认值 ( C)输入格式要简单,以使得输入的步骤和操作尽可能简单 ( D)一次最好只输入一个数据,系统确认后再输入下一个数据 10 开发软件时对提高开发人员工作效率至关重要的是 ( A)操作系统的资源管理功能 (
6、 B)先进的软件开发工具和环境 ( C)程序人员的数量 ( D)计算机的并行处理能力 11 若要求从文本框中输入密码时在文本框中只显示 “*“号 ,则应当在此文本框的属性窗口中设置 ( A) Text属性值为 * ( B) Caption属性值为 * ( C) password属性值为空 ( D) Passwordchar属性值为 * 12 在窗体上画一个列表框、一个文体框及一个按钮 ,然后编写如下事件过程 : Private Sub Form_loab() List.AddItem357 List.AddItem246 List.AddItem123 List.AddItem456 TEXT
7、1.Text= End Sub Private Sub Command1_Click() List.Listindex=3 Print List.Text1+Text1.Text End Sub 程序运行后 ,在文本框中输入 789,然后双列表框中的 456,则输出结果为 ( A) 789123 ( B) 456789 ( C) 789456 ( D) 1245 13 设已经在 “菜单编辑器 “中设计了窗体的快捷菜单 ,其顶级菜单为 Bs,取消其 “可见 “属性 ,运 行时 ,在以下事件过程中 ,可以使快捷菜单响应鼠标右键菜单的是 ( A) Private Sub Form_MouseDown
8、(Button As Integer, Shift As Integer,_X As Single,Y As Single) If Button=2 Then PopupMenu Bs, 2 End Sub ( B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single) PopupMenu Bs End Sub ( C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,
9、Y As Single) PopupMenu Bs,0 End Sub ( D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single) If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs End Sub 14 3以下不属于 Visual Basic系统的文件类型是 ( )。 ( A) .rrm ( B) .bat ( C) .vbg ( D) .vbp 15 如果要在程序代码中为图片框动
10、态加载或清除图形,可以通过 ( )函数来实现。 ( A) InputBox ( B) Input ( C) LoadPicture ( D) PaintPicture 16 下列关于文件的叙述中,错误的是( )。 ( A)使用 Append方式打开文件时,文件指针被定位于文件尾 ( B)当以 Input打开文件时,如果文件不存在,则自动建立一个新文件 ( C)顺序文件的各个记录的长度可以不同 ( D)随机文件打开后,既可以进行读操作,也可以进行写操作 17 复选框的 Value属性为 0时,表示该复选框( )。 ( A)未被选中 ( B)被选中 ( C)框内有灰色的勾 ( D)操作有误 18
11、在窗体上画一个名称为 Text1的文本框,然后编写如下代码: Option Base 1 Private Sub Form Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Su
12、b程序运行后,单击窗体,则在文本框中显示的内容是 _。 ( A) 40 ( B) 10 ( C) 12 ( D) 16 19 在窗体上画一个名称为 Command1的命令按钮,然后编写如下代码: Option Base 1 Prirate Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 If x(i) c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 _。 ( A) 89 ( B
13、) 99 ( C) 23 ( D) 77 20 能够获得一个文本框中被选取文本的内容的属性是 _。 ( A) Text ( B) SelLength ( C) SelText ( D) SelStart 21 在窗体上画一个命令按钮,其名称为 Command1。程序运行后,单击命令按钮,输出结果为 ( )。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i, “*“) Print x Next i End Sub Private Sub Command1_Click() p1(3) End Sub ( A) * * * (
14、B) * * * ( C) * * * ( D) * 22 窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后 ,单击命令按钮,输出结果是 ( )。 Private Sub Command1_Click() Dim a a=Array(1, 2,3, 4, 5) Fork=1 To 4 S=S+a(k) Next k Print S End Sub ( A) 10 ( B) 14 ( C) 15 ( D) 120 23 获取文本框中被选取的文本内容的属性是 ( )。 ( A) SelText ( B) SelStart ( C) Text ( D) Length 24 在随机文件中使
15、 用用户自定义数据类型时,要注意它的成员的要求,它的成员不能是 ( )。 ( A)定长字符串和数组 ( B)变长字符串和动态数组 ( C)货币型和日期型 ( D)变长字符串和货币型 25 为了使命令按钮 (名称为 Command1)右移 200,应使用的语句是 _。 ( A) Command1. Move-200 ( B) Command1. Move 200 ( C) Command1. Left=Command1. Left+200 ( D) Command1. Left=Command1. Left-200 26 在窗体上画一个命令按钮,名称为 Command1,然后编写如下事件过程;
16、Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array(“北京 “, “上海 “, “天津 “, “重庆 “) Print city(1) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是 _。 ( A)空白 ( B)错误提示 ( C)北京 ( D)上海 27 下列 _ 是 Single型变量。 ( A) Time% ( B) Sheight! ( C) Name ( D) cxyz 28 下列程序段的执行结果是 _。 option base 1 private eommand1_c1i
17、ck () Dim A(10) Dim E(5) For i = 1 To 10 A(i) = i Next i For j = 1 To 5 B(j) = j * 20 Next j A(5) = B(2) Print “A(5)=”; A(5) End sub ( A) A(5)=20 ( B) A(5)=30 ( C) A(5)=40 ( D) A(5)=50 29 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click( ) Dim a As Integer, s As Integer a 8 s 1 Do S=s
18、+a a=a-1 Loop While a=0 Prim s, a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ( A) 7 9 ( B) 34 0 ( C) 9 7 ( D)死循环 30 在窗体上画一个名称为 Command1的命令按 钮,然后编写如下事件过程: Private Sub Command1_Click( ) For n=1 T0 20 If n Mod 3 0 Then m=m+n3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是 ( A) 15 ( B) 18 ( C) 21 ( D) 24 31 在窗体上
19、画一个文本框、一个标签和一个命令按钮, 其名称分别为 Text1、Label1和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() str Text=InputBox(“请输入 “) Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text), 3) End Sub 程序运行后,如果在对话框中输入 abcdef,则在标签中显示的内容是 _。 ( A)空 ( B) abcdef ( C) abc ( D) def 32
20、要设置窗体为固定对话框,并包含控制莱单栏和标题栏,但没有最大化和最小化控钮,设置的操作是 ( A)设置 BoderStyle的值为 Fixed ToolWindow ( B)设置 BoderStyle的值为 Sizable ToolWindow ( C)设置 BnderStyle的值为 FixedDialog ( D)设置 BoderStyle的佰为 Sizable 33 能够获得一个文本框中被选取文 本的内容的属性是 ( A) Text ( B) Length ( C) Seltext ( D) SelStart 34 建立一个新的标准模块,应该选择哪个菜单下的 “添加模块 ”命令 ? (
21、A) “工程 ”菜单 ( B) “文件 ”菜单 ( C) “工具 ”菜单 ( D) “编辑 ”菜单 35 为了清除窗体上的一个控件,下列正确的操作是 _。 ( A) 按回车键 ( B)按 Esc键 ( C)选择 (单击 )要清除的控件,然后按 Del键 ( D)选择 (单击 )要清除的控件,然后按回车键 36 在关系模型中,二维表的行称为 _。 37 在先左后右的原则下,根据访问根结点的次序,二叉树的遍历可以分为三种:前序遍历、【 】遍历和后序遍历。 38 耦合和内聚是评价模块独立性的两个主要标准,其中【 】反映了模块内各成分之间的联系。 39 具有 88个结点的二叉树,其深度至少为【 】。
22、40 按照软件测试的 般步骤,集成测试应在【 】测试之后进行。 41 阅读下面的程序: PriVate Sub Form_C1ick() Dim Check As Booleau, Counter As Integer Check=True Counter=5 Do Do While Counter 20 Counter=Counter+1 If Counter=10 Then Check=FalSe EXit Do 42 下列程序段的执行结果为 _。 DimA(10,10) Fori=2 To 4 Forj=4 To 5 A(i,j)-i*j Next j Next i PrintA(2,5
23、)+A(3,4)+A(4,5) 43 下面程序的功能是产生 10个小于 100(不含 100)的随机正整数,并统计其中 5的倍数所占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dima(10) Forj=1 To 10 a(i)=Int_ If a(j)Mod5=0 Then k=k+1 Printa(j) Nextj Print Printk/10 End Sub 44 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 1
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 VB 笔试 模拟 249 答案 解析 DOC
