[计算机类试卷]VB笔试模拟试卷152及答案与解析.doc
《[计算机类试卷]VB笔试模拟试卷152及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]VB笔试模拟试卷152及答案与解析.doc(24页珍藏版)》请在麦多课文档分享上搜索。
1、VB笔试模拟试卷 152及答案与解析 1 下列关于栈的描述中错误的是 _。 ( A)栈是先进后出的线性表 ( B)栈只能顺序存储 ( C)栈具有记忆作用 ( D)对栈的插入与删除操作中,不需要改变栈底指针 2 在长度为 n的线性表中用二分法查找一个表中不存在的元素,需要的比较次数为_。 ( A) log2n ( B) nlog2n ( C) n/2 ( D) n 3 当型循环和直到型循环的区别是 _。 ( A)当型循环效率高 ( B)直到型循环效率高 ( C)当型循环至少执行一次运 算 ( D)直到型循环至少执行一次运算 4 面向对象的程序设计主要考虑提高程序的 _。 ( A)可靠性 ( B)
2、可重用性 ( C)可移植性 ( D)可修改性 5 开发软件时对提高开发人员的工作效率至关重要的是 _。 ( A)计算机的并行处理能力 ( B)领导的关心 ( C)程序人员的数量 ( D)软件开发环境 6 在软件设计中,不属于过程设计工具的是 _。 ( A) PDL(过程设计语言 ) ( B) PAD图 ( C) N-S图 ( D) DFD图 7 数据库设计的根本目标是 要解决 _。 ( A)数据共享问题 ( B)数据安全问题 ( C)大量数据储存问题 ( D)简化数据维护 8 数据字典是软件需求分析阶段的最重要的工具之一,其最基苯的功能是 _。 ( A)数据库设计 ( B)数据通信 ( C)数
3、据定义 ( D)数据维护 9 在软件生命周期法中,用户的参与主要在 _。 ( A)软件定义期 ( B)软件开发期 ( C)软件维护期 ( D)整个软件生命周期过程中 10 下列关于数据库系统叙述正确的是 _。 ( A)数据库中只存在数据项之 间的联系 ( B)数据库的数据项之间和记录之间都存在联系 ( C)数据库的数据项之间无联系,记录之间存在联系 ( D)数据库的数据项之间和记录之间都不存在联系 11 设 a=5, b=10,则执行 c=Int(b-a)*Rnd+a)+1 后, c值的范围为 _。 ( A) 5 10 ( B) 6 9 ( C) 6 10 ( D) 5 9 12 设 a=10
4、, b=5, c=1,执行语句 Print a b c后,窗体上显示的是 _。 ( A) True ( B) False ( C) 1 ( D) 出错信息 13 以下关系表达式中,其值为 False的是 _。 ( A) ABC“AbC“ ( B) the “they“ ( C) VISUAL=UCase(“Visual“) ( D) Integer “Int“ 14 在窗体画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print Next End
5、Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: 1 12 123 1234 则在下划线处应填入的内容为 _。 ( A) Rght(c1, i) ( B) Left(c1, i) ( C) Mid(c1, i, 1) ( D) Mid(c1, i, i) 15 有如下程序: Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2 0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行
6、后,单击窗体,输出结果为 _。 ( A) 12 ( B) 30 ( C) 24 ( D) 18 16 为了能够把信息直接送往打印机。应该把 Print方法的对象改为 _。 ( A) PictureBox ( B) Form ( C) Image ( D) Printer 17 表示滚动条控件取值范围最大值的属性是 _。 ( A) Max ( B) LargeChange ( C) Value ( D) Max-Min 18 在窗体上画一个名称为 Text1的文本框然后画一个名称为 HScroll1的滚动条,其 Min和 Max属性分别为 0和 100。程序运行后,如果移动滚动框,则在文本框中显
7、示滚动条的当前值,如图 16-6所示。 以下能实现上述操作的程序段是_。 ( A) Private Sub HScroll1_Change() Text1.Text=HScroll1. Value End Sub ( B) Private Sub HScroll1_Click() Text1. Text=HScroll1. Value End Sub ( C) Private Sub HScroll1_Change() Text1. Text=HScroll1. Caption End Sub ( D) Private Sub HScroll1_Click() Text1. Text=HScr
8、oll1. Caption End Sub 19 在窗体上画一个名称为 Label1、标题为 “VisualBasic考试 ”的标签,两个名称分别为 Command1和 Conlmand2、标题分别为 “开始 ”和 “停止 ”的命令按钮,然后画一个名称为 Timer1的计时器控件,并把其 Interval属性设置为 500,如图 16-7所示。 编写如下程序: Private Sub Form_Load() Timer1. Enabled=False End Sub Private Sub Command1_Click() Timer1. Enabled=True End Sub Privat
9、e Sub Command2_Click() Timer1. Enabled=False End Sub Private Sub Timer1_Timer() If Label1. Left Width Then Label1. Left=Label1. Left+20 Else Label1. Left=0 End If End Sub 程序运行后单击 “开始 ”按钮,标签在窗体中移动。对于这个程序,以下叙述中错误的是 _。( A)标签的移动方向为自右向左 ( B)单击 “停止 ”按钮后再单击 “开始 ”按钮,标签从停止的位置继续移动 ( C)当标签全部移出窗体后,将从窗体的另一端出现并重新
10、移动 ( D)标签按指定的时间间隔移动 20 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 Do Until num6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 _。 ( A) 13. 45. 8 ( B) 135 ( C) 1 4 7 ( D)无数据输出 21 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Cli
11、ck() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a =0 Print s; a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 _。 ( A) 7 9 ( B) 34 0 ( C) 9 7 ( D)死循环 22 假定有如下事件过程: Private Sub Form Click() Dim x As Integer, n As Integer x=1 n=0 Do While x 28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后,单击窗体,输出结果
12、是 _。 ( A) 81 4 ( B) 56 3 ( C) 28 1 ( D) 243 5 23 有如下程序: Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter 20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后,单击窗体,输出结果为 _。 ( A) 15 0 ( B)
13、20 -1 ( C) 10 True ( D) 10 False 24 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 n=InputBox(“) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后,单击命令按钮,如果输入 3,则在窗体上显示的内容是 _。 ( A) 3 ( B) 4 ( C) 5 ( D) 6 25 在窗体画一个名称为 Command1的命令按钮和一个名称为 Text1的文本框,然后编写如下事件过程:
14、Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j Sqr(i)Then Print i Next i End Sub 该事件过程的功能是 _。 ( A)输出 n以内的奇数 ( B)输出 n以内的偶数 ( C) 输出 n以内的素数 ( D)输出 n以内能被 j整除的数 26 在窗体上画 4个文本框 (如图 16-8所示 ),并用这 4个文本框建立一个控件数组,名称为 Text1(下标从 0开始,自左至右顺序增大
15、),然后编写如下事件过程: Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i). Index i=i+1 Next End Sub 程序运行后,单击命令按钮, 4个文本框中显示的内容分别为_。 ( A) 0 1 2 3 ( B) 1 2 3 4 ( C) 0 1 3 2 ( D)出错信息 27 假定建立了一个名为 Command1的命令按钮数组,则以下说法中错误的是_。 ( A)数组中每个命令按钮的名称 (Name属性 )均为 Command1 ( B)数组中每个命令按钮的标题 (caption属性
16、)都一样 ( C)数组中所有命令按钮可以使用同一个事件过程 ( D)用名称 Command1(下标 )可以访问数组中的每个命令按钮 28 在窗体上画一个名称为 Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1_Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后,单
17、击命令按钮,在窗体上显示的是 _。 ( A) 11 ( B) 10 ( C) 9 ( D) 8 29 在窗体上画一个名称为 Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程; Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End S
18、ub 程序运行后,单击命令按钮,在窗体上显示的是 _。 ( A) 6 ( B) 7 ( C) 8 ( D) 9 30 以下关于过程及过程参数的描述中,错误的是 _。 ( A)过程的参数可以是控件名称 ( B)用数组作为过程的参数时,使用的是 “传地址 ”方式 ( C)只有函数过程能够将过程中处理的信息传回到调用的程序中 ( D)窗体可以作为过程的参数 31 在窗体上画一个名称为 Command1的命令按钮,并编写如下过程: Private Sub Command1_Click() Dim x AS Integer Static y As Integer x=10 y=5 Call f1(x,
19、y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 _。 ( A) 10 5 ( B) 12 5 ( C) 10 7 ( D) 12 7 32 假定通用对话框的名称为 CommonDialogl,命令按钮的名称为 Command1,则单击命令按钮后,能使打开的对话框的标题为 “New File”的事件过程是 _。 ( A) Private Sub Command1_Click() CommonDialogl.
20、 DialoqTitle=“New File“ CommonDialogl. ShowPrinter End Sub ( B) Private Sub ComJRandl_Click() CommonDialogl. DialogTitle=“New File“ CommonDialogl. ShowFont End Sub ( C) Private Sub Command1_Click() CommonDialogl. DialogTitle=“New File“ CommonDialogl. ShowOpen End Sub ( D) Private Sub Command1_Click(
21、) CommonDialogl. DialogTitle=“New File“ CommonDialogl. ShowColor End Sub 33 设窗体上有一个名为 Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1. Text=“ Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sinqle) Print“程序设计 “ End Sub Private Sub Text1_K
22、eynown(KeyCode As Integer, Shift As Integer) Print “Visual Basic“; End Sub 程序运行后,如果在文本框中输入字母 “a”,然后单击窗体,则在窗体上最示的内容是 ( A) Visual Basic ( B)程序设计 ( C) Visual Basic程序设计 ( D) a程序设计 34 假设有如下事件过程: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button=2 Then Pop
23、upMenu popForm End If End Sub 则以下描述中错误的是 _。 ( A)该过程的功能是弹出一个菜单 ( B) popForm是在菜单编辑器中定义的弹出式菜单的名称 ( C)参数 x、 y指明鼠标的当前位置 ( D) Button=2表示按下的是鼠标左键 35 假定在窗体 (名称为 Form1)的代码窗口中定义如下记录类型: Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上面一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Com
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 VB 笔试 模拟 152 答案 解析 DOC
