郑州大学2013vb机试题库2.doc

【HNCE网上考试系统 v9.6】 本套软件使用权属于：郑州大学考试课程: 考试时间:100分钟 考场:第一考场 考试日期:2013.05.24考号： 姓名：剩余时间：99:21保存交卷退出帮助窗体顶端本卷共有3道大题:窗体底端一、单项选择题（50道小题，共50分）1、VB系统中供用户直接调用，使对象完成一定的操作或实现一定功能的特殊过程称为( )。（1分）A、事件B、方法C、属性D、文件 2、被对象所识别的动作与对象可执行的动作分别称为对象的( )。（1分）A、方法、事件B、事件、方法C、事件、属性D、过程、属性3、下列叙述错误的是( )。（1分）A、不允许使用行号与标号B、单条语句可分行书写C、同一行上可以书写多条语句D、VB代码不区分字母的大小写4、在VB中，一条语句写在上下两行时，要在上行的末尾使用续行符号，续行符号是( )。（1分）A、：B、+C、_D、空格加上 _ 5、有程序代码：Picture1.Picture = LoadPicture(C:Pict.bmp) ,则：Picture1、Picture和LoadPicture分别代表( )。（1分）A、对象、方法、值B、对象、属性、方法C、对象、属性、值D、对象、属性、函数 6、下列叙述正确的是( )。（1分）A、Visual Basic的事件是由用户定义的B、Visual Basic程序从主窗体开始执行C、Visual Basic程序是过程驱动的D、保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件 7、下列不属于VB三种模式的是( )模式。（1分）A、设计B、运行C、代码D、中断 8、下列不能打开代码窗口的操作是( )。（1分）A、双击窗体上的某个控件 B、双击窗体C、单击视图菜单中的“代码窗口” D、单击窗体或控件9、当程序中断修改后再运行时，VB进入( )模式。（1分）A、设计B、运行C、中断D、编程 10、程序运行后决定窗体在屏幕中所处位置的窗口是( )。（1分）A、对象窗口B、属性窗口C、窗体布局窗口D、数据视图窗口11、在Visual Basic的设计模式下，如果按下功能键F5，则( )。（1分）A、开始运行正在设计的程序B、执行一句代码C、编译当前正在设计的程序D、退出Visual Basic12、在设计模式，假定窗体上有一个时钟控件，双击窗体上的时钟控件，则打开( )窗口。（1分）A、代码B、属性C、工程资源管理D、立即13、使用Visual Basic编程，我们把工具箱内的工具称为( )。（1分）A、事件B、工具C、控件D、窗体14、下列不能打开属性窗口的操作是( )。（1分）A、执行“视图”菜单中的“属性窗口”命令 B、按F4键 C、按Ctrl+T D、单击工具栏上的“属性窗口”图标 15、在设计阶段，双击窗体上的某个控件时，打开的窗口是( )。（1分）A、工程资源管理器窗口B、窗体布局窗口 C、代码窗口D、属性窗口 16、下列说法中，正确的说法是( )。（1分）A、窗体名称和该窗体文件名必须一致B、窗体名称和该窗体文件名可以不相同C、窗体名称和该窗体文件名不能使用汉字D、窗体名称不能使用汉字、但该窗体文件名能使用汉字17、如果在一个工程中移除了一个窗体，则( )。（1分）A、工程不再包含这个窗体，但该窗体文件并没有被删除B、工程不再包含这个窗体，该窗体文件被删除C、该窗体文件从内存清除，工程仍然包含这个窗体D、以上说法都不对18、存储一个VB工程时，可能产生多个文件，扩展名.bas表明是( )文件 。（1分）A、窗体B、标准模块C、类模块D、资源19、如果把一个调试好的程序做成.exe文件，应该使用( )。（1分）A、文件菜单下的“生成XXX.exe”命令B、F5C、Ctrl + F5D、工具栏上的“运行”按钮20、Visual Basic是一种面向对象的可视化编程语言，采取了( )的编程机制。（1分）A、按过程顺序执行B、从主程序开始执行 C、事件驱动D、按模块顺序执行21、Visual Basic有完备的Help联机帮助功能，可以通过按下功能键( )得到帮助。（1分）A、F9B、F8C、F1D、F522、数组A在子过程或函数中定义为形参，正确的语句是( )。（1分）A、Private Sub sele(ByVal A( ) As integer)B、Private Function sale(A() As Integer) As StringC、Private Sub sale(A() As Integer) As IntegerD、Private Sub sale(A(i) As Integer) 23、窗体上有命令按钮Command1和Command2，阅读下列程序： Private Sub Command1_Click() : a = a + 1 : Print a，: End Sub: Private Sub Command2_Click() : a = a + 1 : Print a: End Sub:运行时，先后单击Command1和Command2按钮，输出的结果为( )。（1分）A、1 1B、2 2C、1 2D、2 124、下列叙述中，错误的是( )。（1分）A、函数过程的函数名有返回值B、窗体可以作为过程的参数C、数组作为过程的参数时，使用“传地址”方式D、只有函数过程能够将过程中处理的数据传回到主调程序中25、在一个应用程序中，若同在一个窗体模块中的三个事件过程要借助一个变量进行通讯，则此变量应声明为( )。（1分）A、全局级变量B、窗体/模块级变量C、局部变量D、静态变量26、在窗体中，用( )语句声明的变量是静态变量。（1分）A、Dim Z As IntegerB、Public Z As Integer C、Private Z As IntegerD、Static Z As Integer 27、可以在窗体模块的通用声明段中声明( )。（1分）A、全局变量B、全局常量C、全局数组D、全局用户自定义类型28、在窗体的通用段声明变量时，不能使用( )关键字。 （1分）A、Dim B、Public C、Private D、Static29、以下四个用于变量声明的关键字中，不能在模块通用声明段中使用的是( )。（1分）A、StaticB、PublicC、PrivateD、Dim30、在窗体的“通用”段声明变量时，可以声明( )。（1分）A、全局变量B、局部常量C、静态型变量D、全局自定义类型31、由( )关键字声明的局部变量在整个程序运行时一直存在。（1分）A、DimB、PublicC、StaticD、Private32、下列叙述中正确的是( )。（1分）A、在窗体的Form_Load事件过程中定义的变量是全局变量B、局部变量的作用域可以超出所定义的过程C、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D、在调用过程时，所有局部变量被系统初始化为0或空字符串33、Sub子过程用的结束语句是( )。（1分）A、End SubB、Exit SubC、End FunctionD、Exit Function34、下面有关过程定义的语句中，正确的语句是( )。（1分）A、Function f1(f1)B、Sub f1(ByVal a()C、Function f1(ByVal x)D、Sub f1(n) As Integer35、Sub子过程用的退出语句是( )。（1分）A、End SubB、Exit SubC、End FunctionD、Exit Function36、Function函数过程用的结束语句是( )。（1分）A、End SubB、Exit SubC、End FunctionD、Exit Function37、下面自定义过程语句合法的是( )。（1分）A、Sub f1(Byval n( ) As Integer ) B、Sub f1(n( ) As Integer ) As Integer C、Function f1(f1%) As Integer D、Function f1(ByVal n As Integer) 38、以下叙述中，错误的叙述是( )。（1分）A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用C、开发Visual Basic程序，窗体、标准模块、类模块等需要分别存为不同类型的磁盘文件D、全局变量必须在标准模块中定义39、下列关于窗体的描述中，正确的描述是( )。（1分）A、只有用于启动的窗体可以有菜单B、窗体事件和其中所有控件事件的代码都放在窗体文件中C、窗体的名字和存盘的窗体文件名必须相同D、开始运行时窗体的位置只能是设计阶段时显示的位置，不能改变40、以下叙述中，错误的叙述是( )。（1分）A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用C、在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D、全局变量必须在标准模块中定义41、下列叙述中，错误的叙述是( )。（1分）A、一个应用程序可以只有一个窗体B、一个应用程序通常由多个窗体组成C、一个窗体一定对应一个窗体文件，所以一个应用程序只能包含一个窗体D、一个应用程序只能有一个启动窗体42、程序运行时，不是由系统触发的事件是( )。（1分）A、InitializeB、ClickC、LoadD、Activate 43、多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把( )指定为启动窗体。（1分）A、不包含任何控件的窗体B、命名为Frm1的窗体C、包含控件最多的窗体D、设计时的第一个窗体44、多窗体程序由多个窗体组成。在默认情况下，Visual Basic在应用程序执行时，总是把( )指定为启动窗体。（1分）A、包含控件最多的B、包含控件最少的C、设计时的第一个窗体D、命名为Form1的45、把一个窗体装入内存的语句是( )。（1分）A、ShowB、LoadC、InputD、Activate46、下列不属于文件访问模式的是( )。（1分）A、顺序访问模式B、随机访问模式C、二进制访问模式D、只读访问模式47、按照文件访问方式分类，不正确的被访问文件是( )。（1分）A、顺序文件B、随机文件C、二进制文件D、数据文件48、下列关于Close的说法中，错误的是( )。（1分）A、Close用来关闭文件 B、Close可以释放与文件相关联的文件号C、当读写操作结束后，必须将文件关闭D、Close中的“文件号”是必选的49、用( )语句可以读入磁盘上的顺序文件“C:Sequ.txt”。（1分）A、F C:Sequ.txt：Open F For Input As #1B、F C:Sequ.txt：Open F For Input As #1C、Open C:Sequ.txt For Output As #1D、Open C:Sequ.txt For Output As #150、如果准备向顺序文件中写入数据，正确的语句是( )。（1分）A、Write #1,recB、input #1,recC、Get # 1,recD、Put # 1,rec 二、填空题（7道小题，共30分）1、* 将一维数组a中的数值反序放置。* 程序代码如下： Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, t As IntegerFor = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next i: PrintFor i = To 5t= a(i)a(i) = a(11 - i)a(11 - i) = tNext iFor i = 1 To 10Print a(i);Next i: PrintEnd Sub（4分）2、* 使用双循环实现三角形输出*程序代码如下： Private Sub Command1_Click()For i = 1 To Print Tab(25 + i );For j = 1 To 6 - i Print *Next jPrintNext iEnd Sub（4分）3、* 用随机函数产生n个1099之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。Private Sub Form_Click()Dim n As Integer, a(100) As IntegerDim x As Integer, i As IntegerDim k As Integer, flag As Booleann = InputBox(N=)For i = 1 To a(i) = Int(90 * Rnd + 10)Print a(i);Next i：Printx = InputBox(X=) : Print X=; xflag = FalseFor i = 1 To nIf a(i) = x Then= Truek = iExit ForEnd IfNext iIf Not flag ThenPrint 无可删除的元素ElseFor i = k To n - 1a(i) = a(i + 1)Next i: n = n - 1For i = 1 To nPrint a(i);Next iEnd IfEnd Sub（4分）4、* 对10个100以内的整数，用选择法按递增顺序排序。程序代码如下：Private Sub Command1_Click（）Dim a(10) As Integer,t%For i = 1 To 10 a(i)= int(rnd*101) Print a(i);Next iPrint For = 1 To 9 For = i+1 To 10 If a(i)a(j) then t=a(i) ：a(i) =a(j) ：a(j) =t Next jNext iFor i = 1 To 10 Print a(i);Next iEnd Sub（4分）5、 杨辉三角形如图所示：11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 1 1 6 15 20 15 6 1.程序代码如下： Private Sub Form_Click()Dim a(1 To 10, 1 To 10) As Integer, i%, j%For i = 1 To 10a(i, 1) = 1a(i, i) = 1Next iFor i = To 10For j = 2 To - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jNext iFor i = 1 To 10For j = 1 To iPrint Tab(5 * (j - 1) + 1); a(i, j);Next jPrintNext iEnd Sub（4分）6、* 设计一个子过程输出Fibonacci（斐波那契）数列（1、1、2、3、5、8.）的前n(2n100)项,且每行输出5个数。* 程序代码如下：Private Sub fib(ByVal n%)Dim a!, b!, c!a = 1: b = 1Print a,Print b,For i = 3 To = a + bPrint c,if i mod 5=0 then Printa = bb = cNext iEnd Sub（4分）7、*设计一字号、字体变化程