二级VISUAL BASIC笔试333
(总分94,考试时间90分钟)
一、选择题 下列各题A) 、B) 、C) 、D) 四个选项中,只有一个选项是正确的。
1. 在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Forn=1 To 20 If n Mod 3<>Thenm=m+n\3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是______。
A. 15 B. 18
C. 21 D. 24
2. 以下声明语句中错误的是______。
A. Constvarl=123
B. Dimvar2='ABC'
C. Dim intSum As Integer
D. Static var3 As Integer
3. 在循环体中,可以使程序转让控制权,以便让操作系统处理其他的事件的语句是______。
A. Exit Do B. DoEvents
C. End D. Unload
4. 下列不属于软件调试技术的是_______。
A. 强行排错法 B. 集成测试法
C. 回溯法 D. 原因排除法
5. 以下能正确定义数据类型TelBook的代码是______。
A. Type TelBook Name As String*10 TelNum As Integer End Type
B. Type TelBook Name As String*10 TelNum As Integer End TelBook
C. Type TelBook Name String*10 TelNum Integer End Type TelBook
D. Typedef TelBook NameString*10 TelNum Integer End Type
6. 下列有关数据库的描述,正确的是______。
A. 数据库是一个DBF文件 B. 数据库是一个关系
C. 数据库是一个结构化的数据集合 D. 数据库是一组文件
7. 需求分析阶段的任务是确定______。
A. 软件开发方法 B. 软件开发工具
C. 软件开发费用 D. 软件系统功能
8. 如果要在菜单中添加一个分隔线,则应将其Caption属性设置为______。
A. = B. *
C. & D. -
9. 以下叙述中错误的是______。
A. 打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B. 保存Visual Basic程序时,应分别保存窗体文件及工程文件
C. Visual Basic应用程序只能以解释方式执行
D. 事件可以由用户引发,也可以由系统引发
10. 如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是______。
A. 如果工程中含有SubMain过程,则程序一定首先执行该过程
B. 不能把标准模块设置为启动模块
C. 用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D. 任何时刻最多只有一个窗体是活动窗体
11. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl_click() Dim a As Integer,s As Integer a=8 s=1 Do s=sta a=a-1 Loop While a<=0 Print s=a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是______。
A. 79 B. 340
C. 97 D. 死循环
12. 数据处理的最小单位是______。
A. 数据 B. 数据元素
C. 数据项 D. 数据结构
13. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl_click() Dim num As Integer num=1 Do Until num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是______。
A. 13.45.8 B. 1 3 5
C. 147 D. 无数据输出
14. 以下有关数组定义的语句序列中,错误的是______。
A. Static arrl(3) rrl(1)=100 arrl(2)="Hello" arrl(3)=123.45
B. Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=inputBox('输入:") ReDimarr2(siz End Sub
C. OptionBase 1 Private Sub Command3_Click() Dim arr3(3) As Integer End Sub
D. Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer End Sub
15. 设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是______。
A. Txue B. False
C. 1 D. 出错信息
16. 栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是______。
A. ABCED B. DBCEA
C. CDABE D. DCBEA
17. 在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Textl.Text="" Textl.Set Focus End Sub Private Sub Form_MouseUp(Button As Inateger,Shift As Integer,X As Single,Y As Single) Frint"程序设计" End Sub Private Sub Textl_KeyDown(KeyCode As InteSer,Shin As Integer) Print"VisualBasic"; End Sub 程序运行后,如果按A键,然后单击窗体,则在窗体上显示的内容是______。
A. Visual Bask B. 程序设计
C. A程序设计 D. ViualBasic程序设计
18. 在单链表中,增加头结点的目的是______。
A. 方便运算的实现 B. 使单链表至少有一个结点
C. 标识表结点中首结点的位置 D. 说明单链表是线性表的链式存储实现
19. 为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
A. PAD图 B. N-S图
C. 结构图 D. 数据流图
20. 执行语句Open"Tel.dat"For Random As#1 Len=50后,对文件Tel.dat中的数据能够执行的操作是______。
A. 只能写,不能读 B. 只能读,不能写
C. 既可以读,也可以写 D. 不能读,不能写
21. 以下叙述中错误的是______。
A. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B. 以.BAS为扩展名的文件是标准模块文件
C. 窗体文件包含该窗体及其控件的属性
D. 一个工程中可以含有多个标准模块文件
22. 在窗体上画一个名称为Commandl的命令按钮,然后编写如下代码: OpdOn Base1 Private Sub Commandl_CUck() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 Ifx(i)>c Then d=d+x(i) c=X(i) Else d=d-c End If Next I Printd End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。
A. 89 B. 99
C. 23 D. 77
23. 设组合框Combol中有3个项目,则以下能删除最后一项的语句是______。
vb软件开发A. Comb01.RemoveltemText
B. Comb01.Rcmoveltem2
C. Comb01.Removeltem3
D. Comb01.RemoveltemComb01.Listcount
24. 以下能判断是否到达文件尾的函数是______。
A. BOF B. LOC
C. LOF D. EOF
25. 往窗体Form1上添加一个列表框控件List1,并编写如下代码: Private Sub Form_Load() For i=0T06 Listl.AddItem i Next i End Sub 为了在程序运行时,按住Ctrl键单击列表中的项目可以选中多个项目,可以设置Listl的属性______。
A. LiaList B. ListListlndex
C. ListMultiSelect D. ListText
26. 线性表的顺序存储结构和线性表的链式存储结构分别是______。
A. 顺序存取的存储结构、顺序存取的存储结构
B. 随机存取的存储结构、顺序存取的存储结构
C. 随机存取的存储结构、随机存取的存储结构
D. 任意存取的存储结构、任意存取的存储结构
27. 以下关于焦点的叙述中,错误的是______。
A. 如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据
B. 当文本框失去焦点时,触发LostFocus事件
C. 当文本框的Enabled属性为False时,其Tab,顺序不起作用
D. 可以用Tablndex属性改变Tab顺序
28. 在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl、Text2的文本框,然后编写如下事件过程: PrivateSubCommandl_Click() n=Textl.Text Select Case n Case 1 To 20 x=10 Case2,4,6 x=20 Case Is<10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是______。
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论