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

加入VIP,免费下载
 

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

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

下载须知

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

版权提示 | 免责声明

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

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

1、国家二级 VB机试(选择题)模拟试卷 28 及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 ( A)循环队列有队头和队尾两个指针,因此,循环队列是非线性结构 ( B)在循环队列中,只需要队头指针就能反映队列中元素的动态变化情况 ( C)在循环队列中,只需要队尾指针就能反映队列中元素的动态变化情况 ( D)循环队列中元素的个数是由队头指针和队尾指针共同决定 2 一个栈的初始状态为空。现将元素 1、 2、 3、 4、 5、 A、 B、 C、 D、 E依次入栈,然后再依次出栈,则元素出栈的顺序是 ( )。 ( A) 12345ABCDE ( B) EDCBA54321 ( C) ABCD

2、E12345 ( D) 54321EDCBA 3 某二叉树有 5个度为 2的结点,则该二叉树中的叶子结点数是 ( )。 ( A) 10 ( B) 8 ( C) 6 ( D) 4 4 下列排序方法中,最坏情况下比较次数最少的是 ( )。 ( A)冒泡排序 ( B)简单选择排序 ( C)直接插入排序 ( D)堆排序 5 软件设计中划分模块的一个准则是 ( )。 ( A)低内聚低耦合 ( B)高内聚低耦合 ( C)低内聚高耦合 ( D)高内聚高耦合 6 下列选项中不属于结构化程序设计原则的是 ( )。 ( A)可封装 ( B)自顶向下 ( C)模块化 ( D)逐步求精 7 下列关于栈的叙述正确的是

3、( )。 ( A)栈按 “先进先出 “组织数据 ( B)栈按 “先进后出 “组织数据 ( C)只能在栈底插入数据 ( D)不能删除数据 8 在数据库设计中,将 E R图转换成关系数据模型的过程属于 ( )。 ( A)需求分析阶段 ( B)概念设计阶段 ( C)逻辑设计阶段 ( D)物理设计阶段 9 在数据管理技术发展的三个阶段中,数据共享最好的是 ( )。 ( A)人工管理阶段 ( B)文件系统阶段 ( C)数据库系统阶段 ( D)三个阶段相同 10 有三个关系 R、 S和 T如下:由关系 R和 S通过运算得到关系 T,则所使用的运算为 ( )。 ( A)笛卡尔积 ( B)交 ( C)并 (

4、D)自然连接 11 下列叙述中正确的是 ( )。 ( A) MsgBox语句的返回值是一个整数 ( B)执行 MsgBox 语句并出现信息框后,不用关闭信息框即可执行其他操作 ( C) MsgBox语句的第一个参数不能省略 ( D)如果省略 MsgBox 语句的第三个参数 (Title),则信息框的标题为空 12 语句 Dim a( 3 To 4,3 To 6)As Integer 定义的数组的元素个数是 ( )。 ( A) 18 ( B) 28 ( C) 21 ( D) 32 13 设窗体文件中有下面的事件过程: Private Sub Command1_Click() Dim s a% 1

5、00 Print a End Sub 其中变量 a和 s的数据类型分别是 ( )。 ( A)整型,整型 ( B)变体型,变体型 ( C)整型,变体型 ( D)变体型,整型 14 下面不能 在信息框中输出 “VB“的是 ( )。 ( A) MsgBox “VB“ ( B) x MsgBox(“VB“) ( C) MsgBox(“VB“) ( D) Call MsgBox “VB“ 15 现有语句: y IIf(x 0, x Mod 3, 0) 设 x 10,则 y的值是 ( )。 ( A) 0 ( B) 1 ( C) 3 ( D)语句有错 16 窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗

6、体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是 ( )。 ( A)在设计 “粘贴 “菜单项时,在菜 单编辑器窗口中设置了 “有效 “属性 (有 “) ( B)菜单中的横线是在该菜单项的标题输入框中输入了一个 “-“(减号 )字符 ( C)在设计 “选中 “菜单项时,在菜单编辑器窗口中设置了 “复选 “属性 (有 “) ( D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了 “可见 “前面的“ 17 假定有以下循环结构: Do Until 条件表达式 循环体 Loop 则以下正确的描述是 ( )。 ( A)如果 “条件表达式 “的值是 0,则一次循环体也不执行 ( B)

7、如果 “条件表达式 “的值不为 0,则至 少执行一次循环体 ( C)不论 “条件表达式 “的值是否为 “真 “,至少要执行一次循环体 ( D)如果 “条件表达式 “的值恒为 0,则无限次执行循环体 18 执行语句 Dim X, Y As Integer 后 ( )。 ( A) X和 Y均被定义为整型变量 ( B) X和 Y均被定义为变体类型变量 ( C) X被定义为整型变量, Y被定义为变体类型变量 ( D) X被定义为变体类型变量, Y被定义为整型变量 19 在程序运行时,下面的叙述中正确的是 ( )。 ( A)用鼠标右键单击窗体中无控件的部分,会执行窗体的 Form_Load事件过程 (

8、B)用鼠标左键单击窗体的标题栏,会执行窗体的 Form_Click事件过程 ( C)只装入而不显示窗体,也会执行窗体的 Form_Load事件过程 ( D)装入窗体后,每次显示该窗体时,都会执行窗体的 Form_Click事件过程 20 下列有关文件的叙述中,正确的是 ( )。 ( A)以 Output方式打开一个不存在的文件时,系统将显示出错信息 ( B)以 Append方式打开的文件,既可以进行读操作,也可以进行写操作 ( C)在随机文件中,每个记录的长度是固定的 ( D)无论是顺序文件 还是随机文件,其打开的语句和打开方式都是完全相同的 21 VB中有 3个键盘事件: KeyPress、

9、 KeyDown、 KeyUp,若光标在 Text1文本框中,则每输入一个字母 ( )。 ( A)这 3个事件都会触发 ( B)只触发 KeyPress 事件 ( C)只触发 KeyDown、 KeyUp事件 ( D)不触发其中任何一个事件 22 设窗体的名称为 Form1,标题为 Win,则窗体的 MouseDown事件过程的过程名是 ( )。 ( A) Form1_MouseDown ( B) Win_MouseDown ( C) Form_MouseDown ( D) MouseDown_Form1 23 窗体上有一个名称为 HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时

10、,立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 ( A) Private Sub HScroll1_Change() Print HScroll1.Value End Sub ( B) Private Sub HScroll1_Change() Print HScroll1.SmallChange End Sub ( C) Private Sub HScroll1_Scroll() Print HScroll1.Value End Sub ( D) Private Sub HScroll1_Scroll() Print HScroll1.SmallC

11、hange End Sub 24 若已把一个命令按钮的 Default属性设置为 True,则下面可导致按钮的 Click事件过程被调用的操作是 ( )。 ( A)用鼠标右键单击此按钮 ( B)按键盘上的 Esc键 ( C)按键盘上的回车键 ( D)用鼠标右键双击此按钮 25 假定通过复制、粘贴操作建立了一个命令按钮数组 Command1,以下说法中错误的是 ( )。 ( A)数组中每个命令按钮的名称 (Name属性 )均为 Command1 ( B)若未做修改,数组中每个命令按钮的大小都一样 ( C)数组中各个命令按钮使用同一个 Click事件过程 ( D)数组中每个命令按钮的 Index属

12、性值都相同 26 以下关于菜单的叙述中,错误的是 ( )。 ( A)当窗体为活动窗体时,用 Ctrl E 键可以打开菜单编辑器 ( B)把菜单项的 Enabled属性设置为 False,则可删除 该菜单项 ( C)弹出式菜单在菜单编辑器中设计 ( D)程序运行时,利用控件数组可以实现菜单项的增加或减少 27 下面哪个属性肯定不是框架控件的属性 ( )。 ( A) Text ( B) Caption ( C) Left ( D) Enabled 28 窗体上有一个名称为 Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程: Private Sub Option1

13、_Click(Index As Integer) End Sub 下面关于此过程的参数 Index 的 叙述中正确的是 ( )。 ( A) Index为 1表示单选按钮被选中,为 0表示未选中 ( B) Index 的值可正可负 ( C) Index 的值用来区分哪个单选按钮被选中 ( D) Index表示数组中单选按钮的数量 29 要想使列表框只允许单选列表项,应设置的属性为 ( )。 ( A) Style ( B) Selected ( C) MultiSelect ( D) Enabled 30 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮,然后编写如

14、下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For i 0 To 50 i i 3 n n 1 If i10 Then Exit For Next Text1.Text Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是 ( )。 ( A) 2 ( B) 3 ( C) 4 ( D) 5 31 窗体上有一个名称为 Text1的文本框,一个名称为 CD1的通用对话框,一个标题为 “打开文件 “的命令按钮,如图所示。命令按钮的单击事件过程如下:Private Sub Command1_

15、Click() CD1.ShowOpen Open CD1.FileName For Input As#1 MsgBox CD1.FileName Line Input#1, s Text1.Text s Close#1End Sub单击命令按钮,执行以上事件过程,打开选定的文件,读取文件的内容并显示在文本框中 .以下叙述中正确的是 ( )。 ( A)程序没有错误,可以正确完成打开文件、读取文件中 内容的操作 ( B)执行 Open命令时出错,因为没有指定文件的路径 ( C) Open语句是错误的,应把语句中的 For Input改为 For Output ( D) Line Input命令格

16、式错 32 窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件 ( )。 ( A)是图像框 (Image) ( B)是图片框 (PictureBox) ( C)是形状控件 ( D)不是上述 3种控件中的一种 33 窗体上有一个由两个文本框组成的控件数组,名称为 Text1,并有如下事件过程: Private Sub Text1_Change(Index As Integer) Select Case Index Case 0 Text1(1).FontSize Text1(0).FontSize * 2 Text1(1).Text Text1(0).Text C

17、ase 1 Text1(0).FontSize Text1(1).FontSize / 2 Text1(0).Text Text1(1).Text Case Else MsgBox “执行 Else分支 “ End Select End Sub 关于上述程序,以下叙述中错误的是 ( )。 ( A) Index用于标识数组元素 ( B)本程序中 Case Else分支的语句永远不会被执行 ( C)向任何一个文本框输入字符,都会在另一个文本框中显示该字符 ( D)下标为 0的文本框中显示的字符尺寸将越来越小 34 设有如下程序: Option Base 1 Dim a(3, 4)As Intege

18、r, b(4, 3)As Integer Private Sub Command1_Click() 循环 1 For i 1 To 3 For j 1 To 4 b(j, i) a(i, j) Next j Next i 循环 2 x b(1, 1) For i 1 To 4 For j 1 To 3 Print b(i, j); If xmax Then max a(k) End If Next k Print max End Sub 运行程序时发现,当输入 10个正数时,可以得到正确结果,但输入 10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是 ( )。 ( A

19、)把 If a(k)max Then改为 If a(k)0) Print n Mod 10; n n10 Wend Print End Sub 此程序功能是:输入 2个正整数,反序输出这 2个数的每一位数字,再反序输出这 2个数之和的每一位数字。例如:若输入 123 和 234,则应该输出: 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2行 (即 2个数的反序 ),而未输出第 3行 (即 2个数之和的反序 ),程序需要修改。下面的修改方案中正确 的是 ( )。 ( A)把过程 pro 的形式参数 n As Integer 改为 ByVal n As Integer ( B)把

20、Call pro(a b)改为 pro a b ( C)把 n n10 改为 n n / 10 ( D)在 pro b语句之后增加语句 c% a b ,再把 Call pro(a b)改为 pro c 38 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c 1234 c1 Trim(Str(c) For i 1 To 4 Print Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: 1 12 123 1234 则在横线处应填入的内容为 ( )。 ( A) Right(c1, i)

21、 ( B) Left(c1, i) ( C) Mid(c1, i, 1) ( D) Mid(c1, i, i) 39 命令按钮 Command1的单击事件过程如下: Private Sub Command1_Click() Dim a(10, 10)As Integer x 0 For i 1 To 3 For j 1 To 3 a(i, j) i * 2 Mod j If xa(i, j)Then x a(i, j) Next Next Print x End Sub 执行上述事件过程后,窗体上显示的是 ( )。 ( A) 1 ( B) 2 ( C) 3 ( D) 4 40 设有如下 Com

22、mand1的单击事件过程及 fun过程: Private Sub Command1_Click() Dim x As Integer x Val(InputBox(“请输入一个整数 “) fun(x) End Sub Private Sub fun(x As Integer) If x Mod 2 0 Then fun(x / 2) Print x; End Sub 执行上述程序,输入 6,结果是 ( )。 ( A) 3 6 ( B) 6 3 ( C) 6 ( D)程序死循环 41 下列叙述中正确的是 ( )。 ( A)算法的效率只与问题的规模有关,而与数据的存储结构无关 ( B)算法的时间复

23、杂度是指执行算法所需要的计算工作量 ( C)数据的逻辑结构与存储结构是一一对应的 ( D)算法的时间复杂度与空间复杂度一定相关 42 下列叙述中正确的是 ( )。 ( A)线性表链式存储结构的存储空间一般要少于顺序存储结构 ( B)线性表链式存储结构与顺序存储结构的存储空间都是连续的 ( C)线性表链式存储结构的存储空间可以是连续的,也可以是不连续的 ( D)以上说法均错误 43 某二叉树共有 12个节点,其中叶子节点只有 1个。则该二叉树的深度为 (根节点在第 1层 )( ) ( A) 3 ( B) 6 ( C) 8 ( D) 12 44 对长度为 n的线性表作快速排序,在最坏情况下,比较次

24、数为 ( )。 ( A) n ( B) n-1 ( C) n(n-1) ( D) n(n-1) 2 45 结构化程序设计中,下面对 goto语句使用描述正确的是 ( )。 ( A)禁止使用 goto语句 ( B)使用 goto语句程序效率高 ( C)应避免滥用 goto语句 ( D)以上说法均错误 46 下面不属于软件测试实施步骤的是 ( )。 ( A)集成测试 ( B)回归测试 ( C)确认测试 ( D)单元测试 47 下面不属于软件需求分析阶 段主要工作的是 ( )。 ( A)需求变更申请 ( B)需求分析 ( C)需求评审 ( D)需求获取 48 一般情况下,当对关系 R和 S进行自然连

25、接时,要求 R和 S含有一个或者多个共有的 ( )。 ( A)记录 ( B)行 ( C)属性 ( D)元组 49 有三个关系 R, S和 T如下: 则由关系 R和 S得到关系 T的操作是 ( )。 ( A)选择 ( B)差 ( C)交 ( D)并 50 有表示公司和职员及工作的三张表,职员可在多家公司兼职。其中公司 C(公司号,公司名,地址,注册资本,法人代表,员工数 ),职员 s(职员号,姓名,性别,年龄,学历 ),工作 W(公司号,职员号,工资 ),则表 W的键 (码 )为 ( )。 ( A)公司号,职员号 ( B)职员号,工资 ( C)职员号 ( D)公司号,职员号,工资 51 以下叙述

26、中,错误的是 ( )。 ( A)标准模块不属于任何一个窗体 ( B)工程文件的扩展名为 vbg ( C)窗体文件的扩展名为 frm ( D)一个应用程序可以有多个窗体 52 下列说法中,错误的是 ( )。 ( A)变量名长度不能超过 127个字符 ( B)变量名的第一个字符必须是 字母 ( C)变量名不能使用保留字 ( D)变量名只能由字母、数字和下画线组成 53 双精度浮点数的类型说明符为 ( )。 ( A) ( B) # ( C) & ( D) 54 能正确表述 “x为大于等于 5并且小于 20的数 ”的 Visual Basic表达式是 ( )。 ( A) x =5 And x 20 (

27、 B) x =5 Or x 20 ( C) 5 =x 20 ( D) 5 =x =20 55 下列运算符中,优先级别最高的是 ( )。 ( A) Not ( B) Is ( C) & ( D) And 56 Visual Basic源程序的续行符为 ( )。 ( A)冒号 (: ) ( B)分号 (; ) ( C)下画线 (_) ( D)连字符 (-) 57 下面能够将某个变量声明为局部变量的是 ( )。 ( A)在窗体模块的声明部分,用关键字 Static声明这个变量 ( B)在窗体模块的声明部分,用关键字 Dim声明这个变量 ( C)在需要使用这个变量的过程中,用关键字 Private声明

28、这个变量 ( D)在需要使用这个变量的过程中,用关键字 Public声明这个变量 58 为了读取数据,需打开 顺序文件 “D: data5 txt”,以下正确的命令是 ( )。 ( A) Open D: data5 txt For Input As #1 ( B) Open“D: data5 txt“For Input As #2 ( C) Open D: data5 txt For Output As #1 ( D) Open“D: data5 txt“For Output As #2 59 下列关于菜单项的描述中,错误的是 ( )。 ( A)菜单项不能响应 Click事件以外的其他事件 (

29、 B)每个菜单项都可以 被看作一个控件,具有相应的属性和事件 ( C)菜单项的索引号可以不连续 ( D)通过 Visible属性设置菜单项的有效性 60 单击窗体,可以弹出如图所示对话框的程序为 ( )。( A) Private Sub Form_Click() x=InputBox(“输入界面 “, “请输入数据 “, 20) End Sub ( B) Private Sub Form_Click() x=InputBox(“请输入数据 “, “输入界面 “, 20) End Sub ( C) Private Sub Form_Click() x=InputBox(“输入界面 “, “请输入

30、数据 “, 20) End Sub ( D) Private Sub Form_Click() x=InputBox(“请输入数据 “, “输入界面 “, 20) End Sub 61 下列关于标签的描述中,错误的是 ( )。 ( A)标签可以响应 Click事件 ( B)标签不能响应 DblClick事件 ( C)为了使标签的 WordWrap属性起作用,必须将其 AutoSize属性设置为 True ( D)标签 上显示的文本就是 Caption属性的值 62 窗体上有 1个名称为 Label1的标签; 1个名称为 List1且含有若干表项的列表框。为了使得单击 List1中某个表项时,在

31、 Label1中相应地显示该表项,应使用的程序代码为 ( )。 ( A) Private Sub List1_Click() Label1 Caption=List1 Index End Sub ( B) Private Sub List1_Click() Label1 Caption=List1 ListCount End Sub ( C) Private Sub List1_Click() Label1 Caption=List1 Text End Sub ( D) Private Sub List1_Click() Label1 Caption=List1 Selected End Su

32、b 63 下列不属于计时器控件属性的是 ( )。 ( A) Enabled ( B) Interval ( C) Name ( D) Timer 64 下列描述中,错误的是 ( )。 ( A)图片框控件和图像框控件都支持 Print方法 ( B)设计阶段,可以通过 Picture属性把图形文件装入图片框 ( C)运行期间,可以用 LoadPicture甬数把图形文件装入图片框 ( D)运行期间,可以用 LoadPieture函数删除图片框中的图形 65 如果将命令按钮的访问键设置为 “D”,以下不会触发命令按钮 Click事件的操作是 ( )。 ( A)在命令按钮上单击鼠标左键 ( B)在命令

33、按钮上单击鼠标右键 ( C)将焦点移至命令按钮上,并按 Enter键 ( D)按组合键 Alt+D 66 下列关于滚动条的叙述中,错误的足 ( )。 ( A)在滚动条内单击滚动框前面或后面的部位时,会触发 Scroll事件 ( B)在滚动条内拖动滚动框时,会触发 Scroll事件 ( C)在滚动条内拖动滚动框后,会触发 Change事件 ( D)单击滚动条两端的箭头时,会触发 Change事件 67 以下关于控件的叙述中,正确的是 ( )。 ( A)列表框包含了组合框的全部功能 ( B)列表框兼有组合框和文本框的功能 ( C)列表框和组合框具有完全不同的功能 ( D)组合框兼有列表框和文本框的

34、功能 68 以下可以作为 “容器 ”的控件是 ( )。 ( A)框架 ( B)图像框 ( C)标签 ( D)命令按钮 69 判断单选按钮是否被选中的属性为 ( )。 ( A) Selected ( B) Checked ( C) Value ( D) Index 70 对于某些控件,只要将其 Style属性设置为 1,则可以在该控件上使用 Picture属性显示图片。以下不具备这一使用规则的控件是 ( )。 ( A)命令按钮 ( B)单选按钮 ( C)复选按钮 ( D)框架 71 编写如下程序: Private Sub Command1_Click() Dim x As String, y A

35、s String x=Right(“abcd“, 2) y=Mid(“dcba“, 2, 3) If x y Then Print x+y Else Print y+x End If End Sub 程序运行后,单击命令按钮 Command1,输出结果为 ( )。 ( A) cdcba ( B) cbacd ( C) cbacd ( D) cbcd 72 编写如下程序: Private Sub Command1_Click() For i=1 To 4 Print Space(12-3*i); For j=1 To i Print j; Next j For k=i-1 To 1 Step-1

36、 Print k; Next k Print Next i End Sub程序运行后,单击命令按钮 Command1,输出结果为 ( )。73 编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer m=2: n=1 Select Case m Case 1 Select Case n Case 1 Print“AAA“ Case 2 Print“BBB“ End Select Case 2 Print“CCC“ End Select End Sub 程序运行后,单击命令按钮 Command1,输出结果为 ( )。

37、 ( A) AAA ( B) BBB ( C) CCC ( D) 1 74 编写如下程序: Private Sub Command1_Click() Dim 13 As Integer Static s As Integer For n=1 To 3 s=s+n Next Print s End Sub 程序运行后,第三次单击命令按钮 Command1时,输出结果为 ( )。 ( A) 3 ( B) 6 ( C) 9 ( D) 18 75 编写如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x=10 y=20

38、Call fun1(x, y) Print x; y End Sub Private Function fun1(ByVal m As Integer, n As Integer)As Integer m=m*m n=n+n End Function 程序运行后,单击命令按钮 Command1,输出结果为 ( )。 ( A) 10 25 ( B) 10 40 ( C) 100 25 ( D) 100 40 76 编写如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x=1: y=1 Do y=x*y If y 1

39、0 Then Print x, y Exit Do Else x=x+3 End If Loop While x =10 End Sub 运行程序,循环实际执行次数为 ( )。 ( A) 0 ( B) 2 ( C) 3 ( D) 4 77 窗体上有 2个名称分别为 Text1和 Text2的文本框。编写如下程序: Private Sub Form_Load() Text1 Text=“ Text2 Text=“ End Sub Private Sub Command1_Click() Print Text1 Text+Text2 Text End Sub 程序运行后,在 Text1和 Text

40、2中依次输入 100和 200,并单击命令按钮Command1,则输出结果为 ( )。 ( A) 100 ( B) 200 ( C) 300 ( D) 100200 78 编写如下程序: Dim num As Integer, r As Integer, n As Integer, i As Integer Dim arr(5)As Integer Private Sub Command1_Click() num=12; r=2 Call Sub1(num, r, n) For i=n To 1 Step-1 Print arr(i); Next i End Sub Sub Sub1(d As

41、 Integer, r As Integer, k As Integer) k=0 Do While d 0 k=k+1 arr(k)=d Mod r d=d r Loop End Sub 程序运行后,单击命令按钮 Command1,输出结果为 ( )。 ( A) 1 1 0 0 ( B) 0 0 1 1 ( C) 0 1 0 1 ( D) 1 0 1 0 79 编写如下程序: Private Sub Command1|_Click() Dim n As Long, s As String n=InputBox(“输入一个数 “) Do While n 0 Plint n 10 Mod 10: Print n Mod 10; n=n 100 Loop Print s End Sub 程序运行后,单击命令按钮 Command1,并输入数值 123456,则输出结果为 ( )。 ( A) 6 5 4 3 2 1 ( B) 5 6 3 4 1 2 ( C) 6 4 2 5 3 1 ( D) 6 1 5 2 4 3 80 编写如下程序: Private Sub Command1_Click() Dim a(3, 3)As Integer Dim i As Integer, j As Integer

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