ImageVerifierCode 换一换
格式:DOC , 页数:47 ,大小:282.50KB ,
资源ID:500148      下载积分:2000 积分
快捷下载
登录下载
邮箱/手机:
温馨提示:
如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝扫码支付 微信扫码支付   
注意:如需开发票,请勿充值!
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【http://www.mydoc123.com/d-500148.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文([计算机类试卷]国家二级VB机试(选择题)模拟试卷126及答案与解析.doc)为本站会员(eastlab115)主动上传,麦多课文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文库(发送邮件至master@mydoc123.com或直接QQ联系客服),我们立即给予删除!

[计算机类试卷]国家二级VB机试(选择题)模拟试卷126及答案与解析.doc

1、国家二级 VB机试(选择题)模拟试卷 126 及答案与解析 一、选择题 1 下列数据结构中,能够按照 “先进后出 “原则存取数据的是 ( )。 ( A)循环队列 ( B)栈 ( C)队列 ( D)二叉树 2 下列数据结构中,属于非线性结构的是 ( )。 ( A)循环队列 ( B)带链队列 ( C)二叉树 ( D)带链栈 3 软件设计中模块划分应遵循的准则是 ( )。 ( A)低内聚低耦合 ( B)高内聚低耦合 ( C)低内聚高耦合 ( D)高内聚高耦合 4 在软件开发中,需求分析阶段产生的主要文档是 ( )。 ( A)可行性分析报告 ( B)软件需求规格说明书 ( C)概要设计说明书 ( D)

2、集成测试计划 5 数据流图中带有箭头的线段表示的是 ( )。 ( A)控制流 ( B)事件驱动 ( C)模块调用 ( D)数据流 6 在软件开发中,需求分析阶段可以使用的工具是 ( )。 ( A) N S图 ( B) DFD图 ( C) PAD图 ( D)程序流程图 7 耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是 ( )。 ( A)提高耦合性降低内聚性有利于提高模块的独立性 ( B)降低 耦合性提高内聚性有利于提高模块的独立性 ( C)耦合性是指一个模块内部各个元素间彼此结合的紧密程度 ( D)内聚性是指模块间互相连接的紧密程度 8 数据库应用系统中的核心问题是 ( )。

3、( A)数据库设计 ( B)数据库系统设计 ( C)数据库维护 ( D)数据库管理员培训 9 在 E R图中,用来表示实体联系的图形是 ( )。 ( A)椭圆形 ( B)矩形 ( C)菱形 ( D)三角形 10 有三个关系 R、 S和 T如下:则关系 T是由关系 R和 S通过某种操作得到,该操作为 ( )。 ( A)选择 ( B)投影 ( C)交 ( D)并 11 以下叙述中错误的是 ( )。 ( A)标准模块文件的扩展名是 .bas ( B)标准模块文件是纯代码文件 ( C)在标准模块中声明的全局变量可以在整个工程中使用 ( D)在标准模块中不能定义过程 12 ( A) 1 ( B) 0 (

4、 C) 3 ( D)出现错误提示 13 设 a 4, b 5, c 6,执行语句 Print a b And b c后,窗体上显示的是( )。 ( A) True ( B) False ( C)出错信息 ( D) 0 14 执行下列语句: strInput InputBox(“请输入字符串 “, “字符串对话框 “, “字符串 “) 将显示输入对话框。此时如果直接单击 “确定 “按钮,则变量 strInput的内容是( )。 ( A)请输入字符串 ( B)字符串对话框 ( C)字符串 ( D)空字符串 15 以下变量名中合法的是 ( )。 ( A) x2 1 ( B) print ( C) s

5、tr_n ( D) 2x 16 把数学表达式 表示为正确的 VB表达式应该是 ( )。 ( A) (5x 3)/(2y 6) ( B) ( C) ( D) (x*5 3)/(y*2 6) 17 下面是求最大公约数的函数的首部: Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer 若要输出 8、 12、 16这 3个数的最大公约数,下面正确的语句是 ( )。 ( A) Print gcd(8,12), gcd(12,16), gcd(16,8) ( B) Print gcd(8,12,16) ( C) Print gcd(

6、8), gcd(12), gcd(16) ( D) Print gcd(8, gcd(12,16) 18 若在窗体模块的声明部分声明了如下自定义类型和数组: Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是 ( )。 ( A) Print arr.Code(2), arr.Caption(2) ( B) Print arr.Code, arr.Caption ( C) Print arr(2).Code, arr(2).Caption ( D) Print Cod

7、e(2), Caption(2) 19 为把圆周率的近似值 3.14159存放在变量 pi中,应该把变量 pi定义为 ( )。 ( A) Dim pi As Integer ( B) Dim pi(7)As Integer ( C) Dim pi As Single ( D) Dim pi As Long 20 ( A) 30 ( B) 31 ( C) 49 ( D) 48 21 设窗体上有一个列表框控件 List1,含有若干列表项。以下能表示当前被选中的列表项内容的是 ( )。 ( A) List1.List ( B) List1.ListIndex ( C) List1.Text ( D)

8、 List1.Index 22 在窗体上画一个文本框 (名称为 Text1)和一个标签 (名称为 Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是 ( )。 ( A) Private Sub Text1_Change() Label1.Caption Str(Len(Text1.Text) End Sub ( B) Private Sub Text1_Click() Label1.Caption Str(Len(Text1.Text) End Sub ( C) Private Sub Text1_Change() L

9、abel1.Caption Text1.Text End Sub ( D) Private Sub Label1_Change() Label1.Caption Str(Len(Text1.Text) End Sub 23 设窗体上有名称为 Option1的单选按钮,且程序中有语句: If Option1.Value True Then 下面语句中与该语句不等价的 是 ( )。 ( A) If Option1.Value Then ( B) If Option1 True Then ( C) If Value True Then ( D) If Option1 Then 24 设窗体上有 1个

10、水平滚动条,已经通过属性窗口把它的 Max属性设置为 1,Min属性设置为 100。下面叙述中正确的是 ( )。 ( A)程序运行时,若使滚动块向左移动,滚动条的 Value属性值就增加 ( B)程序运行时,若使滚动块向左移动,滚动条的 Value属性值就减少 ( C)由于滚动条的 Max属性值小 于 Min属性值,程序会出错 ( D)由于滚动条的 Max属性值小于 Min属性值,程序运行时滚动条的长度会缩为一点,滚动块无法移动 25 为了对多个控件执行操作,必须选中这些控件。下列不能选中多个控件的操作是 ( )。 ( A)按住 Alt键,不要松开,然后单击每个要选中的控件 ( B)按住 Sh

11、ift键,不要松开,然后单击每个要选中的控件 ( C)按住 Ctrl键,不要松开,然后单击每个要选中的控件 ( D)拖动鼠标画出一个虚线矩形,使所选中的控件位于这个矩形内 26 在窗体上画一个文本框,其名称为 Text1,为了在程序运行后隐藏该文本框,应使用的语句为 ( )。 ( A) Text1.Clear ( B) Text1.Visible False ( C) Text1.Hide ( D) Text1.Enabled False 27 设窗体上有一个标签 Label1和一个计时器 Timer1, Timer1的 Interval属性被设置为 1000, Enabled属性被设置为 T

12、rue。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 ( )。 ( A) Private Sub Timer1_Timer() Label1.Caption True End Sub ( B) Private Sub Timer1_Timer() Label1.Caption Time$ End Sub ( C) Private Sub Timer1_Timer() Label1.Interval 1 End Sub ( D) Private Sub Timer1_Timer() For k 1 To Timer1.Interval Label1.Capti

13、on Timer Next k End Sub 28 窗体上有一 个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从左到右分别为 0、 1、 2、 3,窗体外观如图所示。命令按钮的事件过程如下: Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action 1 Case 1 CD1.ShowSave Case 2 CD1.Action 5 Case 3 End End SelectEnd Sub对上述程序,下列叙述中错误的是 ( )。 ( A)单击 “打开

14、“按钮,显示打开文件的对话框 ( B)单击 “保存 “按钮,显示保存文件的对话框 ( C)单击 “打印 “按钮,能够设置打印选项,并执行打印操作 ( D)单击 “退出 “按钮,结束程序的运行 29 用来设置文字字体是否斜体的属性是 ( )。 ( A) FontUnderline ( B) FontBold ( C) FontSlope ( D) FontItalic 30 窗体上有一个名称为 Timer1的计时器控件,一个名称为 Shape1的形状 控件,其 Shape属性值为 3(Circle)。编写程序如下: Private Sub Form_Load() Shape1.Top 0 Tim

15、er1.Interval 100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1.Top Shape1.Top 100 x x 1 If x Mod 10 0 Then Shape1.Top 0 End If End Sub 以下关于上述程序的叙述中,错误的 是 ( )。 ( A)每执行一次 Timer1_Timer事件过程, x的值都在原有基础上增加 1 ( B) Shape1每移动 10次回到起点,重新开始 ( C)窗体上的 Shape1由下而上移动 ( D) Shape1每次移动 100 31 现有如下程序: P

16、rivate Sub Command1_Click() s 0 For i 1 To 5 s s f(5 i) Next Print s End Sub Public Function f(x As Integer) If x 10 Then t x 1 Else t x 2 End If f t End Function 运行程序,则窗体上显示的是 ( )。 ( A) 38 ( B) 49 ( C) 61 ( D) 70 32 窗体上有一个名称为 Picture1的图片框控件,一个名称为 Label1 的标签控件,如图所示。 现有如下程序: Public Sub display(x As C

17、ontrol) If TypeOf x Is Label Then x Caption “计算机等级考试 “ Else xPicture LoadPicture(“pic.jpg“) End IfEnd SubPrivate Sub Label1_Click() Call display(Label1)End SubPrivate Sub Picture1_Click() Call display(Picture1)End Sub对以上程序,下列叙述中错误的是 ( )。 ( A)程序运行时会出错 ( B)单击图片框,在图片框中显示一幅图片 ( C)过程中的 x是控件变量 ( D)单击标签,在标

18、签中显示一串文字 33 设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr “ strL Len(xStr) i 1 Do While i strL / 2 tStr tStr & Mid(xStr, i, 1)& Mid(xStr, strL i 1, 1) i i 1 Loop Fun tStr End Function 在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click()

19、 Dim S1 As String S1 “abcdef“ Print UCase(Fun(S1) End Sub 程序运行后,单击命令按钮,输出结果是 ( )。 ( A) ABCDEF ( B) abcdef ( C) AFBECD ( D) DEFABC 34 某人为计算 n! (0n 12)编写了下面的函数过程: Private Function fun(n As Integer)As Long Dim p As Long p 1 For k n 1 To 2 Step 1 p p * k Next k fun p End Function 在调试时发现该函数过程产生的结果是错误的,程序

20、需要修改。下面的修改方案中有 3种是正确的,错误的方案是 ( )。 ( A)把 p 1改为 p n ( B)把 For k n 1 To 2 Step 1 改为 For k 1 To n 1 ( C)把 For k n 1 To 2 Step 1 改为 For k 1 To n ( D)把 For k n 1 To 2 Step 1 改为 For k 2 To n 35 窗体上的三个命令按钮构成名称为 Command1的控件数组。如图所示。程序如下: Private Sub Command1_Click(Index As Integer) If Index 1 Then Print“计算机等级

21、考试 “ End If If Index 2 Then Print Command1(2).Caption End IfEnd Sub运行程序,单击 “命令按钮 2“,则如下叙述中正确的是 ( )。 ( A) Print Command1(2).Caption语句有错 ( B)在窗体上显示 “命令按钮 2“ ( C)在窗体上显示 “命令按钮 3“ ( D)在窗体上显示 “计算机等级考试 “ 36 下面程序的执行结果是 ( )。 Private Sub Command1_Click() a 0 k 1 Do While k4 x k k a k k 1 Print x; Loop End Sub

22、 A) 1 4 27 B) 1 1 1 C) 1 4 9 D) 0 0 0 ( A) 1 4 27 ( B) 1 1 1 ( C) 1 4 9 ( D) 0 0 0 37 设有如图所示窗体和以下程序: Private Sub Command1_Click() Text1.Text “Visual Basic“End SubPrivate Sub Text1_LostFocus() If Text1.Text“BASIC“Then Text1.Text “ Text1.SetFocus End IfEnd Sub程序运行时,在 Text1文本框中输入 “Basic“(如图所示 ),然后单击 Co

23、mmand1按钮,则产生的结果是 ( )。 ( A)文本框中无内容,焦点在文本框中 ( B)文本框中为 “Basic“,焦点在文本框中 ( C)文本框中为 “Basic“,焦点在按钮上 ( D)文本框中为 “Visual Basic“,焦点在按钮上 38 窗体上有一个名称为 Command1的命令按钮,其事件过程如下: Private Sub Command1_Click() x “VisualBasicProgramming“ a Right(x, 11) b Mid(x, 7, 5) c MsgBox(a , , b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是 ( )。

24、( A)信息框的标题是 Basic ( B)信息框中的提示信息是 Programming ( C) c的值是函数的返回值 ( D) MsgBox的使用格式有错 39 在窗体上画一个名称为 Command1的命令按钮,再画两个名称分别为 Label1、Label2的标签,然后编写如下程序 代码: Private X As Integer Private Sub Command1_Click() X 5: Y 3 Call proc(X, Y) Label1.Caption X Label2.Caption Y End Sub Private Sub proc(a As Integer, ByVa

25、l b As Integer) X a * a Y b b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是 ( )。 ( A) 25和 3 ( B) 5和 3 ( C) 25和 6 ( D) 5和 6 40 在窗体上画一个名为 Command1的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim M(10)As Integer For k 1 To 10 M(k) 12 k Next k x 8 Print M(2 M(x) End Sub 运行程序,单击命令按钮,在窗体上显示的是 ( )。 ( A) 6 ( B) 5 ( C

26、) 7 ( D) 8 41 下列叙述中 正确的是 ( )。 ( A)程序执行的效率与数据的存储结构密切相关 ( B)程序执行的效率只取决于程序的控制结构 ( C)程序执行的效率只取决于所处理的数据量 ( D)以上说法均错误 42 下列与队列结构有关联的是 ( )。 ( A)函数的递归调用 ( B)数组元素的引用 ( C)多重循环的执行 ( D)先到先服务的作业调度 43 对下列二叉树 进行前序遍历的结果为 ( )。 ( A) DYBEAFCZX ( B) YDEBFZXCA ( C) ABDYECFXZ ( D) ABCDEFXYZ 44 个栈的初始状态为空。现将元素 1, 2, 3, A,

27、B, C依次入栈,然后再依次出栈,则元素出栈的顺序是 ( )。 ( A) 1, 2, 3, A, B, C ( B) C, B, A, 1, 2, 3 ( C) C, B, A, 3, 2, 1 ( D) 1, 2, 3, C, B, A 45 下面属于白盒测试方法的是 ( )。 ( A)等价类射分法 ( B)逻辑覆盖 ( C)边界值分析法 ( D)错误推测法 46 下面对对象概念描述正确的是 ( )。 ( A)对象间的通信靠消息传递 ( B)对象是名字和方法的封装体 ( C)任何对象必须有继 承性 ( D)对象的多态性是指一个对象有多个操作 47 软件设计中模块划分应遵循的准则是 ( )。

28、( A)低内聚低耦合 ( B)高耦合高内聚 ( C)高内聚低耦合 ( D)以上说法均错误 48 下面描述中不属于数据库系统特点的是 ( )。 ( A)数据共享 ( B)数据完整性 ( C)数据冗余度高 ( D)数据独立性高 49 数据库设计过程不包括 ( )。 ( A)概念设计 ( B)逻辑设计 ( C)物理设计 ( D)算法设计 50 有三个关系 R、 S和 T如下: 则由关系 R和 S得到 关系 T的操作是 ( )。 ( A)皂签连接 ( B)交 ( C)投影 ( D)并 51 下面操作中,不能正确保存正在编辑的工程的是 ( )。 ( A)鼠标右键单击 “工程资源管理器窗口 ”中该工程的图

29、标,在弹出的菜单中选“保存工程 ” ( B)单击 “文件 ”菜单,在下拉菜单中选 “保存工程 ” ( C)单击 “工程 ”菜单,在下拉菜单中选 “保存工程 ” ( D)直接单击工具栏上的 安钮 52 下面为单精度实型 (即单精度浮点型 )变量的是 ( )。 ( A) x$ ( B) x& ( C) x! ( D) x# 53 语句: Print Int(Rnd*5+20)的输出不可能是 ( )。 ( A) 20 ( B) 22 ( C) 24 ( D) 25 54 设变量 x的值是 845,则下面语句的输出是 ( )。 Print x 100+(x Mod 100) 10+x Mod 10 (

30、 A) 17 ( B) 548 ( C) 845 ( D) 485 55 有下面的程序段: x=InputBox(”字符串 ”, ”输入 ”, ”请输入 ”) Print x 如果执行上面程序段时没有从键盘输入任何内容就直接按了回车 键,则输出内容是( )。 ( A)字符串 ( B)输入 ( C)请输入 ( D)空白 (即未输出任何内容 ) 56 在下面语句或函数中,不能描述选择结构的是 ( )。 ( A) If语句 ( B) IIf函数 ( C) Select Case语句 ( D) While语句 57 如果要在语句: a=Array(1, 2, 3, 4, 5)的前面声明变量 a,则正确

31、的声明是( )。 ( A) Dim a(4) As Integer ( B) Dim a(5)As Variant ( C) Dim a(1 To 5) As Integer ( D) Dim a As Variant 58 在 VB中,函数过程与子程序过程的区别之一是 ( )。 ( A)函数过程必须有参数,而子程序过程可以没有 ( B)函数过程的参数传递只采用值传递,而子程序过程只采用地址传递 ( C)在程序中,子程序过程调用的代码可以写在表达式中,而函数过程不能 ( D)函数过程有返回值,而子程序过程没有 59 设有以下定义语句: Private Type point x As Integ

32、er y As Integer End Type Dim a As point 下面语句中正确的是 ( )。 ( A) a=12 ( B) a x=12 ( C) point=12 ( D) point x=12 60 下面关于 VB数据文件的叙述中错误的是 ( )。 ( A) VB数据文件不包括 VB的窗体文件 ( B) VB应用程序可以用随机方式读写数据文件 ( C) VB应用程序在读写数据文件之前,必须用 Open语句打开该文件 ( D) VB应用程序不能把一个二维表格中的数据存入文件 61 为使文本框具有初始值 “VB”,在设计阶段正确的操作是 ( )。 ( A)选中该文本框,在属性窗

33、口中把 Text属性的值改为 “VB” ( B)选中该文本框,在属性窗口中把 Caption属性的值改为 “VB” ( C)双击该文本框,在弹出的窗口中输入 “VB” ( D)单击该文本框,在该文本框中直接输入 “VB” 62 下列控件中,不响应 Click事件的是 ( )。 ( A)框架 ( B)标签 ( C)图像框 ( D)形状 63 下面关于命令按钮的叙述中错误的是 ( )。 ( A)命令按钮 上可以显示图片 ( B)命令按钮上的文字就是其 Caption属性的值 ( C)在程序运行过程中,不能改变命令按钮的标题 ( D)运行程序时,当命令按钮获得焦点后,按下 Enter键也能激活它的

34、Click事件 64 设窗体上有一个名称为 Check1的复选框,并有下面程序代码: Private Sub Checki_MouseDown(Button As Integer, X As Single, Y As Single) Check1 Value=1 End Sub 根据上面的事件过程, 可以得出结论 ( )。 ( A)鼠标单击该复选框,复选框的标题被改为 “1” ( B)鼠标右键单击该复选框,可以选中该复选框 ( C)鼠标左键单击该复选框,它被选中,右键单击它,取消选中 ( D)鼠标右键单击该复选框,它被选中,左键单击它,取消选中 65 设窗体上有 1个名称为 HScroll1的

35、水平滚动条,其 Max、 Min属性分别设置为100、 1;有 2个名称分别为 Optionl、 Option2的单选按钮,其标题分别为 “30”、 “50”;还有下面程序代码: Private Sub Option1_Click() HScroll1=Val(Option1 Caption) End Sub Private Sub Option2_Click() HScroll1=Val(Option2 Caption) End Sub 程序运行时,单击 Option2单选按钮,则滚动条上滚动框的位置是 ( )。 ( A)在最左边 ( B)在最右边 ( C)在中间 ( D)在中间偏左的位置

36、66 设窗体上有一个名称为 List1的列表框,并有若干列表项 。下面语句中不能在所有列表项之后追加一个列表项的是 ( )。 ( A) List1 List(List1 ListCount)=“VB程序 “ ( B) List1 List(List1 ListCount-1)=“VB程序 “ ( C) List1 AddItem“VB程序 “ ( D) List1 Addhem“VB程序 “, Listl ListCount 67 设窗体上有一个名称为 Timer1的计时器控件,其 Interval属性被设置为 500,Enabled属性被设置为 True;还有一个名称为 Text1的文本框和

37、 下面的事件过程: Private Sub Timer1_Timer() Static x As Long x=x+1 Text1=x End Sub 程序运行一段时间后,文本框中显示的是 100,则表示 ( )。 ( A)程序已经运行了 100秒 ( B)程序已经运行了 100毫秒 ( C)程序已经运行了 50秒 ( D)文本框到窗体左边框的距离是 100 68 有下面事件过程: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single) If Button=2 Then F

38、orm1 PSet(X, Y) PSet方法可以在 X, Y处画一个点 End If End Sub 程序运行后,产生的效果是 ( )。 ( A)在窗体上每单击鼠标左键一次,就在鼠标位置处画一个点 ( B)按着鼠标左键,移动鼠标,可在窗体上画出鼠标的运动轨迹 ( C)按着鼠标右键,移动鼠标,可在窗体上画出鼠标的运动轨迹 ( D)不按任何鼠标键,移动鼠标,可在窗体上画出鼠标的运动轨迹 69 下面关于控件数组的叙述中正确的是 ( )。 ( A)控件数组中所有控件的名称相同,但其 Index属性值各不相同 ( B)控件数组中所有控件的名称相同,但其 Value属性值各不相同 ( C)控件数组中每个元

39、素都是独立的控件,因此都有各自的事件过程 ( D)上述都是错误的 70 下面关于菜单的叙述中正确的是 ( )。 ( A)为了使得选中一个菜单项就可以执行某种操作 ,要为它的 Click事件过程编写执行该操作的代码 ( B)同一级菜单中的菜单项不能同名,但不同级菜单中的菜单项可以同名 ( C)只能使用鼠标右键把弹出式菜单弹出来 ( D)弹出式菜单中的菜单项不能再有自己的子菜单 71 有下面程序代码: Private Sub Command1_Click() For k=5 To 1 Step-1 x=k+x*10 Next k Print x End Sub 程序运行后,单击命令 按钮 Comm

40、andl,输出结果是 ( )。 ( A) 12345 ( B) 54321 ( C) 15 ( D) 150 72 有下面程序代码: Private Sub Command1_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k a=a+k Next k Print s End Sub 程序运行后,单击命令按钮 Command1,输出结果是 ( )。 ( A) 15 ( B) 13 ( C) 4 ( D) 1 73 有下面程序代码: Private Sub Command1_Click() Dim sign As Integer sign=1 a=1 b=2 For

41、 k=1 To 5 c=a+sign*b a=b b=c Print C; sign=-sign Next k End Sub 程序运行后,单击命令按钮 Command1,输出结果是 ( )。 ( A) 3 -1 2 -3 -1 ( B) 3 5 8 13 21 ( C) -1 1 -2 -1 -1 ( D) 3 4 5 6 7 74 有下面程序代码: Private Sub Command1_Click() Dim a As String a=“COMPUTER“ n=search(a, “T“) Print IIf(n=0, “未找到 “, n) End SUd Private Funct

42、ion search(str As String, ch As String)As Integer For k=1 To Len(str) c=Mid(str, k, 1) If c=ch Then search=k Exit Function End If Next k search=0 End Funcfion 程序运行后,单击命令按钮 Command1,输出结果是 ( )。 ( A) 0 ( B) 8 ( C) 6 ( D)未找到 75 有下面程序代码: Private Sub Command1_Click() a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

43、 n=UBound(a) For k=0 To UBound(a) 2 Print a(k)*a(n); n=n-1 Next k End Sub 程序运行后,单击命令按钮 Commandl,输出结果是 ( )。 ( A) 2 6 12 20 30 ( B) 2 12 20 56 90 ( C) 30 28 24 18 10 ( D) 10 18 24 28 30 76 有下面程序代码: Private Sub Command1_Click() Dim x As Integer, s As Integer x=1 For k=1 To 3 x=x+1 proc x s=s+x Next k P

44、rint s End Sub Private Sub proc(ByVal a As Integer) Static x As Integer x=x+1 a=a+x End Sub 程序运行后,单击命令按钮 Command1,输出结果是 ( )。 ( A) 6 ( B) 9 ( C) 15 ( D) 19 77 窗体上有 1个 Timerl计时器, 1个 Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True Timer1 Enabled=True Timer1 Interval=1000 End

45、Sub Private Sub Timer1_Timer() If flag Then Shape1 Height=Shape1 Height*2 Shape1 Width=Shape1 Width*2 Else Shape1 Height=Shape1 Height*0 5 Shape1 Width=Shape1 Width*0 5 End If flag=Not flag End Sub 执行程序所产生的效果是 ( )。 ( A) Shape1形状的尺寸在缩小到原来一半和恢复原状这 2种状态间切换,每秒切换一次 ( B) Shape1形状的尺寸在扩大到原来 2倍和恢复原状这 2种状态间切换

46、,每秒切换一次 ( C) Shape1形状的尺寸在缩小到原来一半和扩大到原来 2倍这 2种状态间切换,每秒切换一次 ( D) Shape1形状的尺寸会不断扩大 78 有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer, x, b x=InputBox(“请输入一个多位整数 “) For k=1 To Len(x) b=Mid(x, k, 1) a(Val(b)+1)=a(val(b)+1)+1 Next k For k=1 To 10 Print a(k); Next k End Sub 程序运行时,单击命令按钮 Command1,输入 2355270224,则输出是 ( )。

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1