计算机二级VB模拟试题与答案(三) .doc
《计算机二级VB模拟试题与答案(三) .doc》由会员分享,可在线阅读,更多相关《计算机二级VB模拟试题与答案(三) .doc(13页珍藏版)》请在三一办公上搜索。
1、2014年计算机二级VB模拟试题及答案(四)一、选择题1、任何控件都有的属性是( )。A.BackColorB.CaptionC.NameD.BorderStyle2、设计数据库的存储结构属于()A.需求分析B.概念设计C.逻辑设计D.物理设计3、某人创建了1个工程,其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是()。A.在工程属性对话框中把启动对象设置为Form2B.在Forml 的Load 事件过程中加入语句Load Form2C.在Form2的Load 事件过程中加入语句Form2.ShowD.把Form2的
2、TabIndex 属性设置为l ,把Form1的TabIndex 属性设置为24、设有如下通用过程:Public Function Fun(xStr As Stri ng)As Stri ngDi mt Str As Stri ng ,strLAs IntegertStF=strL=Len(xStr)i =1 Do While i ni =i -nLoopPrint iEnd SubA.2B.4C.5D.37、复选框的Value 属性为0时,表示该复选框()。A.未被选中B.被选中C.框内有灰色的勾D.操作有误8、在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Te
3、xt1的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的方字罗列在文本框中(见图)。下面能实现此功能的事件过程是()。A.Private Sub Check1_Click(Index As Integer)Text1.Text =For k =0To 3If Check1(k).value =1ThenText1.Text =Text1.Text &Check1(k).Caption &双引号中是空格 End If Next kEnd SubB.Private Sub Check1_Click(Index As Integer)For k =0To 3If Chec
4、k1(k).Value =1ThenText1.Text =Text1.Text &Check1(k).Caption &双引号中是空格End IfNext kEnd SubC.Private Sub Check1_Click(Index As Integer)Text1.Text = For k =0To 3 If Check1(k).Value =1ThenText1.Text =Text1.Text &Check1(Index).Caption &双引号中是空格End IfNext kEnd SubD.Private Sub Check1_Click(Index As Integer)T
5、ext1.Text = For k =0To 3If Check1(k).Value =1ThenText1.Text =Text1.Text &Check1(k).Caption &双引号中是空格Exit ForEnd IfNext kEnd Sub9、在窗体上添加一个命令按钮,名为Co mmand1,其单击事件中有下列程序段,则事件过程执行后,文本框中输出()。For i =1To 4For j=1To 3x=3For k =1To 2x=x+3Next kNext jNext iTextl .Text =Str(x)A.3B.6C.9D.1210、下列关于Sub 过程的叙述正确的是()。
6、A.一个Sub 过程必须有一个Exit Sub 语句B.一个Sub 过程必须有一个End Sub 语句C.在Sub 过程中可以定义一个Function 过程D.可以用Goto 语句退出Sub 过程11、下列叙述中正确的是( )。A.在窗体的Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程D.在调用过程时,所有局部变量被系统初始化为0或空字符串12、编写如下两个事件过程:Private Sub Form_KeyDown (KeyCode As Intege
7、r,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift 键也未锁定大写键时)运行程序,如果按键盘上的A键,则程序输出的结果是()。A.AaB.aAC.AAD.aa13、在窗体上画一个命令按钮,名称为Co mmand1,然后编写下列代码:Option Base 0Private Sub Co mmand1_Click()Di m A1(4)As Integer ,A2(4)As Integ
8、erFor k =0To 2A1(k +1)=InputBox(请输入一个整数)A2(3-k)=A1(k +1)Next k Print A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为()。A.0B.1C.2D.314、下面语句正确的是()。A.If xy Then y =x3B.If xy Then y =3xC.If xy Then y =x3D.If xy Then y =x*315、下面程序的输出结果是()。Private Sub Co mmand1_Click()Ch$=ABCDEFproc ch :Print chEnd SubPr
9、ivate Sub proc(ch As Stri ng)s =For k =Len(ch)To 1Step -1s =s &Mid(ch ,k ,1)Next kch =sEnd SubA.ABCDEFB.FEDCBAC.AD.F16、语句Di ma(-3To 4,3To 6)As Integer 定义的数组元素个数是()。A.18B.28C.21D.3217、以下叙述中错误的是()。A.一个工程中只能有一个Sub Main 过程B.窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体C.窗体的Hide 方法和Unload 方法的作用完全相同D.若工程文件中有多个窗体,可以根据需要指
10、定一个窗体为启动窗体18、在窗体上先后画2个图片框,名称分别为Picture1和banana,banana 中添加了香蕉图片,如图1所示,且将banana.Drag Mode 属性设置为1。要求程序运行时,可以用鼠标把banana 拖拽到Picture1中,如图2所示。能实现此功能的事件过程是()。A.Private Sub Form_DragDrop(Source As Control ,XAs Si ngle ,Y As Si ngle)banana . Move Picture1 . Left +X,Picture1 . Top +YEnd SubB.Private Sub banana
11、_DragDrop(Source As Control ,XAs Si ngle ,Y As Si ngle)Source . Move Picture1 . Left +X,Picture 1 . Top +YEnd SubC.Private Sub Picture1_DragDrop(Source As Control ,X As Si ngle ,Y As Si ngle)Source . Move Picture1 . Left +X,Picture1 . Top +YEnd SubD.Private Sub Picture1_DragDrop(Source As Control ,X
12、 As Si ngle ,Y As Si ngle)banana . Move banana . Left +X,banana . Top +YEnd Sub19、用Print 方法在Forml 窗体中显示出4个#号的正确代码为()。A.Debug .Print#B.Print#C.Forml-Print#D.Forml .Print#20、一个模块内部各个元素彼此结合的紧密程度的度量称为()A.耦合性B.内聚性C.复杂性D.数据传输特性21、函数值和余弦函数值,角度为1,2,3,90。请在空白处填入适当的内容,将程序补充完整。Private Type AngK As IntegerSi nx
13、 As Si ngleCosx As Si ngleEnd TypePrivate Sub Form_Click()Di m Y As Si ngleDi mi As IntegerDi m Ksc As AngOpen _Y =3.14159/180For i =1To 90Ksc .K =iKsc .Si nx=Si n(i*Y)Ksc .Cosx=Cos(i +Y)_Next iClose #2Elld StubA.Datal .txtFor Rando mAs #1Len =10 Put #1,i ,KscB.Datal .txtFor Rando m As #1Len =10 Put
14、 #1,Y ,KscC.Datal .txtFor Rando m As #1 Put #1,i ,KscD.Datal .txtFor Rando m As #1 Put #1,Y ,Ksc22、下列程序运行时输出的结果是()。Option Base 1Const a=10Private Sub Form_Click0Di mx(a)As Integerk =-1For i =1To ax(i)=i*kk =(-1)*kNext iFor i =1To 10Print x(i)Next iEnd SubA.1 3 5 7 9 10B.-1-3-5-7-9C.-1 2-3 4-5 6-7 8-
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机二级VB模拟试题与答案三 计算机 二级 VB 模拟 试题 答案
链接地址:https://www.31ppt.com/p-4122628.html