【计算机类职业资格】VB笔试-试卷79及答案解析.doc
《【计算机类职业资格】VB笔试-试卷79及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】VB笔试-试卷79及答案解析.doc(14页珍藏版)》请在麦多课文档分享上搜索。
1、VB 笔试-试卷 79 及答案解析(总分:104.00,做题时间:90 分钟)一、选择题(总题数:36,分数:72.00)1.选择题()下列各题 A、B、C、D 四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上。(分数:2.00)_2.下列程序执行后,变量 a 的值为( )。 Dim a,b,c,d as single a=100 b=20 c=1000 if ba Then d=a:a=b:b=d End if if ca Then d=a:a=c:c=d End if if cb Then d=b:b=c:c=d End if(分数:2.00)A.0B.1000C.20
2、D.1003.关闭当前的工程并退出 Visual Basic 的快捷键是(分数:2.00)A.Alt+BB.Alt+QC.Alt+ShiftD.Alt+a4.当发生 Form_ Click 事件后,下面这段程序代码的执行结果为在窗体中输出_。 Option Explicit Private Sub Form Click () Dim num As String * 1, n As Integer Open “C:/ Check. txt“ For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek
3、 #10, 3: Get #10, , num Print Loc(10); Seek(10) End Sub(分数:2.00)A.3 4B.4 5C.5 3D.3 35.下列数据结构中,属于非线性的是( )。(分数:2.00)A.线性表B.队列C.树D.栈6.设计程序时,应采纳的原则之一是( )。(分数:2.00)A.程序的结构应有助于读者的理解B.限制 GOTO 语句的使用C.减少或取消注释行D.程序越短越好7.设有下列二叉树: (分数:2.00)A.ABCDEFB.BDAECFC.ABDCEFD.DBEFCA8.软件工程与计算机科学性质不同,软件工程着重于_。(分数:2.00)A.理论研
4、究B.建造软件系统C.原理和理论D.原理探寻9.在软件工程中,白盒测试法可用于测试程序的内部结构。此方法将程序看做是_。(分数:2.00)A.路径的集合B.循环的集合C.目标的集合D.地址的集合10.数据库的概念模型_。(分数:2.00)A.依赖于计算机硬件和 DBMSB.独立于计算机硬件,依鞍子 DBMSC.依赖于计算机硬件,独立于 DBMSD.独立于计算机硬件和 DBMS11.检查软件产品是否符合需求定义的过程称为(分数:2.00)A.确认测试B.集成测试C.验证测试D.验收测试12.窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。Privat
5、e Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub(分数:2.00)A.10B.14C.15D.12013.以下关于窗体的描述中,错误的是( )。(分数:2.00)A.执行 UnLoad Forml 语句后,窗体 Forml 消失,但仍在内存中B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时,通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽14.设置组合框的风格,可用的
6、属性是(分数:2.00)A.BackstyleB.BorderstyleC.StyleD.Sorted15.通过文本框( )事件过程可以获取文本框中输入字符的 ASCII 码值。(分数:2.00)A.ChangeB.LostFocusC.KeyPressD.GotFocus16.复选框是否被选中,取决于复选框的( )。(分数:2.00)A.Enabled 属性B.Value 属性C.Checked 属性D.Visible 属性17.在设计程序时,应采纳的原则之一是( )。(分数:2.00)A.不限制 goto 语句的使用B.减少或取消注解行C.程序越短越好D.程序结构应有助于读者理解18.运行
7、下面的程序后,输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i, i) =1: Next For i=1 To 5 For j=1 To 5 Print t(i, j), Next Print Next(分数:2.00)A.1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1B.1 1 1 1 1C.1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1D.1 1 1 1 119.下列各项中,不是通用过程特点的是( )。(分数:2.00)A.通用过程不
8、与任何特定事件相联系B.通用过程完成特定任务C.通用过程由用户创建D.通用过程可以由鼠标激发20.在窗体上画 1 个名称为 Cornmandl 的命令按钮,并编写以下程序: Private Sub Commandl_Click() Print fun(“ABCDEFG”) End Sub Function fun(st As String)As String stlen=Len(st) temp=“” For k=1 To stlen2 temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1) Next k fun=temp End Function 程序运行时,单击
9、命令按钮,则在窗体上显示的是( )。(分数:2.00)A.ABCDEFGB.AGBFCEC.GFEDCBAD.AGBFCED21.以下声明语句中错误的是_。(分数:2.00)A.Constvar1=123B.Dimvar2=ABCC.Dim intSum As IntegerD.Static vat3 As Integer22.为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为_。(分数:2.00)A.Get 文件号,记录号,变量名B.Get 文件号,变量名,记录号C.Put 文件号,变量名,记录号D.Put 文件号,记录号,变量名23.为了使列表框中的项目分为多列显示,需要
10、设置的属性为( )。(分数:2.00)A.ColumnsB.StyleC.ListD.MultiSelect24.已知代数式 eXSin(30)2x/(x+y)Lnx,则正确的 Visual Basic 表达式为( )。(分数:2.00)A.E*Sin(30*3.14/180)*2*X/X+Y*Log(X)B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C.Exp(x)*Sin(30*3.14/180)*2*x/(x+y)*Log(x)D.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X)25.窗体上有一个组合框,编写下列程序:Private Sub
11、 Command1_ Click () Combo1. RemoveItem 2End subPrivate Sub form Load() Combo1. AddItem “上海” Combo1. AddItem “北京” Combo1. AddItem “天津” Combo1. AddItem “重庆”End Sub 程序执行时,单击 Command1,则在组合框中将不再出现_。(分数:2.00)A.上海B.北京C.天津D.重庆26.若要将窗体从内存中卸载出去,应该使用的方法是_。(分数:2.00)A.ShowB.UnLoadC.LoadD.Hide27.在 VB 语言中,6 个关系运算符
12、在运算过程中优先级从高到低的顺序是(分数:2.00)A.B.C.D.不分先后顺序28.我们可以在设计时(属性窗口中)和运行时(程序代码中)设置属性的属性值,以下关于属性设置的说法正确的是(分数:2.00)A.在属性窗口中可以设置所有属性的属性值B.在程序代码中可以设置所有属性的属性值C.属性的名称由 VB 事先定义,用户不能改变D.所有对象的属性都是可见的29.设 A=“12345678“,则表达式 Val(Left(A,4)+Mid(A,4,2)的值为 _。(分数:2.00)A.123456B.123445C.8D.630.在列表框中当前被选中的列表项的序号是由下列哪个属性表示 _。(分数:
13、2.00)A.ListB.IndexC.ListindexD.Tabindex31.要把一个命令按钮设置成无效,应设置属性 _ 的值为 False。(分数:2.00)A.VisibleB.EnabledC.DefaultD.Cancel32.当一个工程含有多个窗体时,其中的启动窗体是 _。(分数:2.00)A.启动 Visual Basic 时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体33.以下能够正确计算 1+2+3+10 的程序是(分数:2.00)A.Private sub Command1_Click( ) sum=0 For 1=1 To
14、10 Sum=sum+1, Next I Print Sum End SubB.Private sub Command1_Click( ) Sum=0,I=1 Do While l=10 Sum=Sum+1 I=I+1 Print Sum End SubC.Private Sub command1_click( ) Sum=0:I=1 Do Sum=Sum+1 I=I+1 Loop While I10 Print Sum End SubD.Private Sub command1_Click( ) Sum=0:I=1 Do Sum=Sum+1 l=I+1 Loop Until I10 Prin
15、t Sum End Sub34.以下关系表达式中,其值为 False 的是(分数:2.00)A.ABC“AbC“B.the“they“C.VISUAl,=UCase(“Visual“)D.Integer“Int“35.能够获得一个文本框中被选取文本的内容的属性是_。(分数:2.00)A.TextB.SelLengthC.SelTextD.SelStart36.在窗体上画一个名称为 File 的文件列表框,并编写如下程序: Private Sub File1_DblClick( ) x=Shell(File1FileName,1) End Sub 以下关于该程序的叙述中,错误的是(分数:2.00
16、)A.x 没有实际作用,因此可以将该语句写为:Call Shell(FilE.FileName,1)B.双击文件列表框中的文件,将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是当前驱动器、当前目录下的文件二、填空题(总题数:16,分数:32.00)37.填空题(每空)请将每一个空的正确答案写在答题卡上。注意:以命令关键字填空的必须拼写完整。(分数:2.00)_38.一个消息由三个部分组成:接收消息的对象的名称、 1 和零个或多个参数。(分数:2.00)填空项 1:_39.结构化程序设计的 3 种基本结构分别是顺序、选择和 1。(分数:2.0
17、0)填空项 1:_40.数据库恢复是将数据库从 1 状态恢复到某一已知的正确状态。(分数:2.00)填空项 1:_41.数据模型按不同应用层次分成 3 种类型,它们是概念数据模型、 1 和物理数据模型。(分数:2.00)填空项 1:_42.一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于 1 的联系。(分数:2.00)填空项 1:_43.在窗体上画一个文本框,名称为 Text1,画一个命令按钮,名称为 Commandl。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat 中。请在空白处填上适当的
18、内容,将程序补充完整。Private Sub Command1_Click() Open“c:/test.dat“For Output As #1 For I=1 to Len(Text1.text) 1 Next I Close #1 End Sub(分数:2.00)填空项 1:_44.下列程序的功能是:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox(“输出结果?“,vblnformation+vbYesNo,“提示:“) If a= 1Then Print “Myresult“ End I
19、f End Sub(分数:2.00)填空项 1:_45.窗体下面有一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0Do Until x = -1a=InputBox(“请输入第一个数字 a 的值“)a=Val(a)b=InputBox(“请输入第二个数字 b 的值“)b=Val(b)x=InputBox(“请输入第三个数字 x 的值“)x=Val(x)a=a+b+xLoopPrint aEnd Sub 在程序运行后,单击命令按钮,在对话框中分别输入 5,4,8,5,8,-1,输出结果为 1。(分数:2.00)填空项 1:_46.为了在运行时把“
20、d:/pie”文件夹下的图形文件“a. jpg”装入图片框 Picturel,所使用的语句为 1。(分数:2.00)填空项 1:_47.执行下面的程序段后,S 的值为 1。s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i(分数:2.00)填空项 1:_48.下图是应用程序的窗体,要求用户选中复选框 Check1 后,文本框 Text1 中的文字以粗体显示,选中复选框 Check2 后,文本框 Text1 中的文字以斜体显示,单击“关闭”按钮 Command1 后结束应用程序运行。Private Sub Check1_ Click ()if 1thenText1.
21、FontBold = TrueElseText1. FontEold = 2End ifEnd SubPrivate Sub check2_ click()if 3thenText1. FontItalic = FalseElseText1. FontItalic = TrueEnd ifEnd subPrivate Sub Command1_ Click() 4MeEnd Sub (分数:2.00)填空项 1:_49.下列程序的作用是:打开顺序文件 C:/stuDatA.txt,读取文件中的数据,并将数据显示在窗体上。该程序不完整,请补充完该程序。 Private Sub Form_Clic
22、k() 1 Do While Not EOF(1) Input # 1,StrNo,StuName,StuEng Print StuNo;Tab(10);StuName;Tab(20);StuEng Loop Close #1End Sub(分数:2.00)填空项 1:_50.下列程序的运行机结果是 1。 Private Sub Form_ Click() Dim k As Integer n= 5 m= 1 k= 1 Do m=m+2 k= k+1 Loop While k=n Print mEnd Sub(分数:2.00)填空项 1:_51.执行下面的程序段后,S 的值为 1。 s=5 F
23、or i=6 To 9 Step 0.6 S=S+1 Next i(分数:2.00)填空项 1:_52.在窗体上画 1 个命令按钮和 1 个文本框,其名称分别为 Command1 和 Text1,然后编写如下代码:Dim SaveAll As StringPrivate Sub Command1 Click()Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAllChr(KeyAscii)End Sub 程序运行后,在文本框中输入 abcdefg
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 VB 笔试 试卷 79 答案 解析 DOC
