vb复习题-.pdf

《vb复习题-.pdf》由会员分享，可在线阅读，更多相关《vb复习题-.pdf（49页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 第一卷客观题第一题：是非题（共10 分，每项 1 分）1.ActiveX 部件是可以重复使用的编程代码和数据。A A.对B.错 2.窗体的 Enabled 属性设为 False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。A A.对B.错 3.每一个控件实质上都是一个微型程序。A A.对B.错 4.在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。B A.对B.错 5.用 Dim 语句声明变量时，VB 系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。B A.对B.错 6.定义菜单项时，可以不设置分隔线的菜单项控件名称。B A.对B.错 7.在事件驱动

2、的应用程序中，代码是按照预定的路径执行的。B A.对B.错 8.函数调用时，实际参数与形式参数在数量必须完全一致。A A.对B.错 9.每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。A A.对B.错 10.通用过程可以放在标准模块中，也可以放在窗体模块中。A A.对B.错 11.当窗体上有多个控件时，一般只有一个控件是当前控件，对控件的所有操作都是针对当前控件进行的。A.对B.错12.窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。A.对B.错 13.在 VB 系统中，没有用Dim 语句声明的变量不能使用，因为它没有数据类型。A.对B.错 14.普通窗体与子窗体建立的方法是

3、相同的，不同之处是子窗体的MDIChild 属性设置为False，而普通窗体的MDIChild属性设置为True。A.对B.错15.除了 Click 事件之外，菜单项还能响应其他的事件。A.对B.错16.数组作为过程参数时，使用的是地址传送方式。A.对B.错17.标签控件即可以用来显示用户不能编辑和修改的文本，也可以用来编辑和修改文本。B A.对 B.错 18.Timer是时钟控件的唯一事件。A A.对 B.错 19.菜单项的快捷键不能任意设置。A A.对 B.错 20.VB中的“消息”是指由一个应用程序传递到另一个应用程序的信息包。A A.对 B.错 21.菜单选项“Enabled”属性与“

4、Visible”属性是相同的。B A.对 B.错 22.VB6.0只能运行在 Windows 2000 下，不能运行在Windows 98 下。B 2 A.对 B.错23.用户控件和系统控件都可以加载到工具箱上，并且永久保留。B A.对B.错 24.在 VB 中，可通过函数Shell 调用 DOS 或 Windows 下的可执行程序。A A.对B.错 25.窗体的 Moveabel 属性设为 False时，不能改变窗体的大小，只能移动窗体。B A.对B.错26.是一个字符串，而 不是一个字符串。B A.对B.错 27.单选项和复选框能够响应Click 事件，但通常不需要编写事件过程。A A.对

5、B.错28.GotFocus 事件通常用来在焦点移离时进行验证和确认。B A.对B.错29.函数过程和子过程的区别是子过程结束将返回值过程值，函数过程结束不必返回函数值。B A.对B.错30.ActiveX 技术是一种共享程序数据和功能的技术。A A.对B.错 31.在 Not、Or、And 三个运算符中，运算符And 的的优先级最高。B A.对B.错32.变量名是以字母或汉字开头，由字母、汉字、数字或下划线组成，长度可以任意的字符序列。B 33.Style 为 0 时组合框称为简单组合框。B A.对B.错34.表达式“ab”&34 的结果是“ab34”。A A.对B.错第二题、单选题（共45

6、 分，每项1.5 分）12.InputBox 函数的返回值的类型为_B_。A.数值B.字符串C.逻辑值D.日期值 13.要想在过程调用后返回两个结果，下面的过程定义语句合法的是_A_。A.Sub Proc1(ByVal n,Byval m)B.Sub Proc1(ByVal n,m)C.Sub Proc1(n,Byval m)D.Sub Proc1(n,m)14.下面关于打印对话框属性的说法错误的是_C_。A.Copies 属性指定打印的份数。B.HDC 属性指定分配给打印机的句柄，用来识别对象的设备环境。C.FromPage属性指定要打印文档的页范围。使用该属性时必须把Flags属性设置为1

7、。D.Max 和 Min 属性用来显示FromPage和 ToPage的范围，其中Min 指定允许的起始页码，Max 指定允许的最后页码。16.Print#1，STR1$中的 Print 是_A_。A.顺序文件的写语句B.在窗体上显示的方法C.子程序名D.打印命令 17.使用 Public x 声明一个全局的变量时，该语句应放在_D_。A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段 19.记录长度最大可取的值是_A_ 字节。A.32767 B.32768 C.65535 D.65536 20.下面四项中，_A_是 VB 中的数值变量。3 A.ABC

8、 B.E+2 C.True D.1.35E-2 21.将数据项“China”添加到列表框（List）中成为第一项应使用A语句。A.List1.AddItem”China”，0 B.List1.AddItem”China”，l C.List1.AddItem 0，”China”D.List1.AddItem 1，”China”22.下列不能打开菜单编辑器的操作是_D_。A.按 Ctrl+E B.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按 Shift+Alt+M 23.文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是

9、A。A.“Hello”将替换掉原来选定的文本B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength 为 5 D.文本框中只有“Hello”24.语句 Print Format(HELLO,yz 的正确 VB 逻辑表达式是 _D_。A.xy And yz C.xy And z D.xy And yz 31.在下列说法中，正确的是D。A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B.在列表框中不能进行多项选择 C.在列表框中能够将项目按字母顺序从大到小排列 D.框架也有 Click和 DblClick事件 33.按文件的组织方式分为_A_。A.顺序文件和随

10、机文件 B.文本文件和二进制文件 C.程序文件和数据文件 D.只读文件和读写文件 34.以下_C_不能作为 VB中的变量名。A.Abx45 B.P1234 C.89TasFF D.xy 35.已编译的控件部件的扩展名是A。A.OCX B.VBP C.EXE D.CTL 36.为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用_A_。A.自定义类型 B.数组 C.字符串类型 D.变体类型 37.表达式 Int(23.4)+Round(-35.5)的计算结果为 _C_。A.-11 B.-12.1 C.-13 D.-12.5 38.引用列表框（List1）最后一个数据项应使用

11、B。A.List1.List(List1.ListCount)B.List1.List(List1.ListCount-1)C.List1.List(ListCount)D.List1.List(ListCount-l)4 11.文本框没有 _D_属性。A.Enabled B.Visible C.BackColor D.Caption 12.语句 Dim a(3,-3 to 0,3 to 6)声明的数组a有_C_元素。A.12 B.27 C.64D.80 13.下面关于随机文件的描述，不正确的是_B_。A.每条记录的长度必须相同B.一个文件中记录号不必惟一C.文件的组织结构比顺序文件复杂D.可

12、通过编程对文件中的某条记录方便地修改 14.如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是_D_。A.Hide B.Show C.Load D.Unload 15.在 VB 中，常量 987654,987654#的数据类型是 _D_。A.整型B.实型C.长整型D.双精度 16.在下面选项中，不能完成对顺序文件的读操作的是_D_。A.LineInput#语句B.Input#语句C.Input（）函数D.Get#语句 18.不论何种控件，共同具有的是_B_属性。A.Text B.NameC.BackColor D.Caption 19.为了把一个记录型变量的内容写入文件中指定的位置，所

13、使用的语句的格式为_D_。A.Get 文件号，记录号，变量名B.Get 文件号，变量名，记录号C.Put 文件号，变量名，记录号D.Put 文件号，记录号，变量名 20.常量 2.7856E-6 的类型是 _B_。A.整型B.实型C.字符型D.双精度 21.假如列表框（List1）有 4 个数据项，那么把数据项“China”添加到列表框的最后，应使用D语句。A.List1.AddItem3，”China”B.List1.AddItem”China”，List1.ListCount-1 C.List1.AddItem”China”，3 D.List1.AddItem”China”，List1.L

14、istCount 23.如果文本框的Enabled 属性设为False，则 A。A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 24.下列控件中，没有Caption 属性的是 B。A.框架B.列表框C.复选框D.单选按钮 25.下列逻辑表达式中，其值为真的是_A_。A.bABCB.THATTHE C.9H D.Aa 26.窗体从加载到显示，依次引发的事件有。D A

15、.Load、Initialize、Activate B.Initialize、Activate、load C.Load、Activate、Initialize D.Initialize、Load、Activate 27.如果每 0.5 秒产生一个计时器事件，那么Interval 属性值应设为 C。A.5 B.50 C.500D.0.5 28.表达式 34 And 7=5 的返回值为 _D_。5 A.0 B.True C.-1 D.False 31.为了防止用户随意将光标置于控件之上，应该进行设置。DA.将控件的TabIndex 属性设置为0 B.将控件的TabStop 属性设置为True C.

16、将控件的TabStop 属性设置为False D.将控件的Enabled 属性设置为False 33.文件号最大可取的值为_。BA.255 B.511 C.512 D.256 34.在 Visual Basic 中，语句 Print 39 的输出结果为 _。DA.0 B.1 C.-1 D.False 39.改变驱动器列表框的Drive 属性值将激活 _事件。AA.Change B.Scoll C.KeyDown D.KeyUp 11.在 VB中，变量的默认类型是_C_。A.Integer B.Double C.Variant D.Currency 12.在顺序文件中 _D_。A.文件中按每条记

17、录的记录号从小到大排序 B.文件中按每条记录的长度从小到大排序 C.文件中按记录的某关键数据项的从小到大的顺序 D.记录是按写入的先后顺序存放的，读出也是按写入的先后顺序读出 13.利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔符，菜单分隔符的标题必须设置为_B_。A.+B.-C.*D./14.在 Visual Basic中，最简单的数据类型包括_A_。A.整型、实型、布尔型、字符型 B.整型、实型、字符型 C.整型、实型、逻辑型 D.实型、逻辑型、字符型 15.使用驱动器列表框的_B_属性可以返回或设置磁盘驱动器的名称。A.ChDrive B.Drive C.List D.ListIn

18、dex 16.在随机文件中 _C_。A.文件中的内容是通过随机数产生的 B.文件中的记录号是通过随机数产生的 C.可对文件中的记录根据记录号随机地读写 D.文件的每条记录的长度是随机的 18.下列控件中，不属于文件系统控件的是_D_。A.驱动器列表框 B.文件列表框 C.目录列表框 D.图象列表框 20.如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是 D。A.移去第一项 B.移去最后一项 C.移去最后加入列表的一项 D.以上都不对 21.下列关于通用对话的描述错误的是_C_。A.CommandDialog1.Sho

19、wFont显示字体对话框。B.在打开或另存为对话框中，用户选择的文件名和路径可以经FileName 属性返回。C.在打开或另存为对话框中，用户选择的文件名和路径可以经FileTitle属性返回。D.利用通用对话框可显示和制作帮助对话框。23.当一个窗体被卸载时，最后引发的一个事件是。D A.Deactivate B.QueryUnload C.Unload D.terminate 24.复选框的 Value 属性为 1 时，表示 B。A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作方式“错误”6 25.下列四个字符串进行比较，最小的是_A_。A.9977 B.B12

20、3 C.BASE D.DATA 26.计时器的时间间隔是A。A.以毫秒计 B.以分计 C.以秒计 D.以小时计 27.组合框的 Style属性决定组合框的类型和行为，它的值为2 时，其显示形式和功能是C。A.下拉列表框，并允许用户输入不属于列表框中的选项 B.简单组合框，并允许用户输入不属于列表框中的选项 C.下拉列表框，不允许用户输入不属于列表框中的选项 D.简单组合框，不允许用户输入不属于列表框中的选项 30.下面关于顺序文件的描述，正确的是_C_。A.每条记录的长度必须相同 B.可通过编程对文件中的某条记录方便地修改 C.数据以 ASCII 码形式存放在文件中，所有可通过文本编辑软件显示

21、 D.文件的组织结构复杂 31.文件列表框中用于设置或返回所选文件的文件名的属性是_D_。A.FilePath B.File C.Path D.FileName 32.为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用_A_。A.自定义类型 B.数组 C.字符串类型 D.变体类型 34.当一个工程含有多个窗体时，其中的启动窗体是_D_。A.启动 VB时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体。35.使用目录列表框的_C_属性可以返回或设置当前工作目录的完整路径。A.Drive B.ListIndex C.Path D.

22、Dir 36.Integer类型的数据由 _B_字节组成。A.1 B.2 C.3 D.4 37.如果列表框（List1）中只有一个项目被用户选定，则执行DebugPrint List1Selected（List1.ListIndex）语句的结果是A。A.在 Debug窗口输出被选定的项目的索引值 B.在 Debug 窗口输出 True C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True 38.通过代码在运行时设置属性的语法格式为_B_。A.对象名属性 .新值 B.对象名.属性新值 C.对象名.新值=属性 .新值 D.对象名.属性=属性.新值 39.要使用 FSO对象模型，必须通过【

23、工程】菜单中的_D_命令将 FSO对象模型引入到当前工程中。A.部件 B.工程属性 C.添加属性 D.引用 40.全局变量必须在 _A_中定义 A.标准模块 B.任意模块 C.窗体模块 D.类模块第二题、单选题（共45 分，每项 1.5 分）11.常量 2.7856E-6 的类型是 _B_。A.整型B.实型C.字符型D.双精度12.下列说法错误的是_C_。A.在多重窗体中一定要有一个窗体为启动窗体。B.在多重窗体中，如果没有指定启动窗体，则默认首先设计的窗体为启动窗体。C.启动窗体能在运行程序时自动显示出来，其它窗体有些也能自动显示出来。7 D.启动窗体通过“工程”菜单中的“工程属性”命令来指

24、定。13.Sub 和 Function 的最大差别在于_A_。A.Function 有返回值，而Sub 没有B.Function 需要输入参数，而Sub 不用C.Sub 可以用 Call 语句调用，而Function 不行D.两者并无不同14.在下列表达式中，非法的是_C_。A.a=b+c B.ab+c C.abc D.a4 And 7=5 的返回值为 _D_。A.0 B.True C.-1 D.False 25.如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是 D。A.移去第一项B.移去最后一项C.移去最后加入列

25、表的一项D.以上都不对26.在下列说法中，正确的是D。A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B.在列表框中不能进行多项选择C.在列表框中能够将项目按字母顺序从人到小排列D.框架也有Click 和 DblClick 事件28.表达式 Int(23.4)+Round(-35.5)的计算结果为 _。A.-11 B.-12.1 C.-13 D.-12.5 29.当一个工程含有多个窗体时，其中的启动窗体是_。A.启动 VB 时建立的窗体B.第一个添加的窗体8 C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体。30.下面关于随机文件的描述，不正确的是_B_。A.每条记录的

26、长度必须相同B.一个文件中记录号不必惟一C.文件的组织结构比顺序文件复杂D.可通过编程对文件中的某条记录方便地修改 31.如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是_D_。A.Hide B.Show C.Load D.Unload 32.用语句 Dim a(-3 to 5)As Integer 定义的数组的元素个数是_C_。A.7 B.8 C.9 D.10 33.当一个窗体被卸载时，最后引发的一个事件是。C A.Deactivate B.QueryUnload C.Unload D.terminate 34.下面关于顺序文件的描述，正确的是_C_。A.每条记录的长度必须相同B.

27、可通过编程对文件中的某条记录方便地修改C.数据以 ASCII 码形式存放在文件中，所有可通过文本编辑软件显示D.文件的组织结构复杂 35.以下 _C_不能作为 VB 中的变量名。A.Abx45 B.P1234 C.89TasFF D.xy 36.VB 工程中的每一个窗体都是独立的_B_。A.类B.对象C.数据库D.方法 37.按文件的组织方式分为_A_。A.顺序文件和随机文件B.文本文件和二进制文件C.程序文件和数据文件D.只读文件和读写文件 38.为了防止用户随意将光标置于控件之上，应该进行C设置。A.将控件的TabIndex 属性设置为0 B.将控件的TabStop 属性设置为True C

28、.将控件的TabStop 属性设置为False D.将控件的Enabled 属性设置为False 39.VB 中的工具栏可以从_C_菜单上的“工具栏”命令中移进或移出。A.工具B.编辑C.视图D.调试 40.将数据项“China”添加到列表框（List）中成为第一项应使用A语句。A.List1.AddItem”China”，0 B.List1.AddItem”China”，l C.List1.AddItem 0，”China”D.List1.AddItem 1，”China”第二题、单选题（共45 分，每项 1.5 分）11.下列不能打开菜单编辑器的操作是_D_。A.按 Ctrl+E B.单击

29、工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按 Shift+Alt+M 12.已编译的控件部件的扩展名是A。A.OCX B.VBP C.EXE D.CTL 13.表达式 a+b=c 是_D_。A.赋值表达式B.字符表达式C.算术表达式D.关系表达式 14.利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔符，菜单分隔符的标题必须设置为_B_。A.+B.-C.*D./9 15.文本框没有 _D_属性。A.Enabled B.Visible C.BackColor D.Caption 16.在 VB 中要将一个窗体装载到同存中进行预处理，但不显示，应该使用语句_C_

30、。A.Form.Show B.Form.Load C.Form.Hide D.Form.Unload 17.下列四个字符串进行比较，最小的是_A_。A.9977 B.B123 C.BASE D.DA TA 18.语句 Print Format(HELLO,9 的输出结果为 _ D_。A.0 B.1 C.-1 D.False 26.表达式 Int(23.4)+Round(-35.5)的计算结果为 _C_。A.-11 B.-12.1 C.-13 D.-12.5 27.为减少语句的使用，将一个窗体加载到内存中并显示出来，所使用的语句或方法是_C_。A.Load B.Unload C.Show D.H

31、ide 28.使用 Public x 声明一个全局的变量时，该语句应放在_C_。A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段 29.下列说法错误的是_B_。A.在同一模块不同过程中的变量可以同名。B.不同模块中定义的全局变量不可以同名。C.引用另一模块中的全局变量时，必须在变量名前加模块名。D.同一模块中不同级的变量可以同名。30.用语句 Dim a(-3 to 5)As Integer 定义的数组的元素个数是_C_。A.7 B.8 C.9 D.10 31.如果文本框的Enabled 属性设为False，则 A。A.文本框的文本将变成灰色，并且此

32、时用户不能将光标置于文本框上10 B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 32.在 Visual Basic 中，用于获得字符串S最左边 4 个字符的函数是 _A_。A.Left(S,4)B.Left(1,4)C.LeftStr(S)D.LeftStr(S,4)33.VB 工程中的每一个窗体都是独立的_B_。A.类B.对象C.数据库D.方法 34.下面关于顺序文件的描述，正确的是_C_。A.每条记录的长度必须相同B.

33、可通过编程对文件中的某条记录方便地修改C.数据以 ASCII 码形式存放在文件中，所有可通过文本编辑软件显示D.文件的组织结构复杂 35.文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是 A。A.“Hello”将替换掉原来选定的文本B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength 为 5 D.文本框中只有“Hello”36.VB 中的工具栏可以从_C_菜单上的“工具栏”命令中移进或移出。A.工具B.编辑C.视图D.调试 37.用来设置粗体字的属性是。C A.Font1Italic B.FontName C.FontBold

34、 D.FontSize 38.在 VB 的集成环境中创建VB 应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是_C_。A.窗体布局窗口B.立即窗口C.代码窗口D.监视窗口 39.Sub 和 Function 的最大差别在于 _A_。A.Function 有返回值，而Sub 没有B.Function 需要输入参数，而Sub 不用C.Sub可以用 Call 语句调用，而Function 不行D.两者并无不同 40.要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的事件中判断。C A.Chang B.KeyDown C.Click D.KeyPress第三题、简单程序（共15

35、 分，每项 1.5 分）41.下列程序段的运行结果。A Private Sub Form_Click()Dim Msg Hide Msg=”选择确定按钮”MsgBox Msg Show End Sub A.隐藏窗体，按确定按钮使窗体重现 B.隐藏窗体 C.显示窗体，按确定按钮使窗体隐藏 D.显示窗体 42.执行下面程序段后，变量c$的值为 _D_。a$=Visual Basic Programming b$=Quick 11 c$=b$&Ucase(Mid$(a$,7,6)&Right$(a$,12)A.Visual BASIC Programming B.Quick Basic Progra

36、mming C.QUICK Basic Programming D.Quick BASIC Programming 43.运行下面程序后，在窗体中显示的是_D_。Private Sub Form_Click()a$=*:b$=$For k=1 To 3 x$=String$(Len(a$)+k,b$)Print x$;Next k Print End Sub A.、*B.*$*$*$C.1*$2*$3*$D.、$44.执行下面程序段后，变量a 的值为 _C_。For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.

37、3 B.9 C.14 D.21 45.写出如下程序运行结果。D Function f(m As Integer)As Integer b=1 Static c As Integer b=b+1 c=c+1 f=m*b*c End Function Private Sub Command1_Click()Dim a As Integer a=2 sum=0 For I=1 To 3 sum=sum+f(a)Next I print sum End Sub A.12 B.16 C.20 D.24 46.以下程序的输出结果是_B_。Private Sub Command1_Click()a=1234

38、 12 b$=Str$(a)c=Len(Trim(b)print c;LenB(b)End Sub A.3 8 B.4 10 C.5 10 D.4 8 47.执行下面程序段后，变量x 的值为 _A_。x=5 For I=1 To 20 step 2 x=x+I5 Next I A.21 B.22 C.23 D.24 48.以下程序的输出结果是_D_。Private Sub Command1_Click()a=100 Do s=s+a a=a+1 Loop Until a100 print a End Sub A.100 B.120 C.201 D.101 49.以下程序的循环次数是_A_。Pr

39、ivate Sub Command1_Click()For j=8 To 35 Step 3 Print j;Next j End Sub A.10 B.9 C.27 D.28 50.下列程序运行后，其结果为_A_。Private Sub Form_Click()Filename=“c:testfile.txt”Open filename For Output As#1 Print#1,“ABCD 我是一个学生”Close#1 Open filename For Input As#1 MsgBox Input(8,1)Close#1 End Sub A.在通用对话框中显示“ABCD 我是一个”

40、B.在通用对话框中显示“ABCD 我是”C.在窗体中显示“ABCD 我是一个”D.在窗体中显示“ABCD 我是”第二卷主观题填空题（共30 分，每项 2 分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）13 1.下列程序运行后，能求出20 个数中的最大值。请填上适当的内容，将程序补充完整。Private Sub Form_Activate()Randomize Dim I As Integer,ssl As Integer,Dim tt As Integer ssl=Int(Rnd*51+50)For I=1 To 19 tt=Rnd*51+50 _IF ssltt

41、then ssl=tt_ Next I Print Print ssl End Sub 2.在 C盘根目录下建立一个名为Student.dat的顺序文件。要求用 InputBox函数输入 10 名学生的学号（StuNo）、姓名（StuName）和性别（StuSex）。Private Sub Form_Load()Open“C:Student.dat”For Output As#1 For I=1 to 10 StuNo=InputBox(“请输入学号”)StuName=InputBox(“请输入姓名”)StuSex=InputBox(“请输入性别”)_write#1,_,StuNo,Stuna

42、me,StuSex Next I Close#1 End Sub 3.编写一个求最大公约数的函数，并调用该函数，程序如下：Function gcd(ByVal a As Integer,ByVal b As Integer)As Integer Dim re as integer Do While b0 re=a mod b a=b b=re Loop gcd=a End Function Sub Command1_Click()Dim x As Integer,y As Integer,z As integer X=96 Y=64 _z=gcd(x,y)_ Print“结果=”;z End

43、Sub 4.请用正确的内容填空。下面程序的作用是利用随机函数产生10 个(1 200)之间的随机整数，打印其中7 的整数倍的数并求其和。Private Sub Form_Click()For I=1 To 10 14 x=Int(Rnd*200+1)If _(x mod 7)=0_ Then k1=k1+x Print x End If Next I Print Print k1=;k1 End Sub 5.下面程序运行时，内层循环的循环总次数是_6_。For m=1 To 3 For n=0 To m-1 Next n Next m 6.在窗体中添加两个命令按钮，其名称分别为Command1

44、 和 Command2，窗体加载时要求Command1 不可用，Command2 可用；单击Command2 后，Command1可用。请将下列程序补充完整。Private Sub Command2_Click()_command1.enabled=true_ End Sub Private Sub Form_Load()_command1.enabled=false _command2.enabled=true_ End Sub 7.函数 odd 用于判断一个数是否是奇数。当单击命令按钮时，产生 1,9之间的随机数，调用odd 过程，判断该数是否为奇数。如果是则显示“奇数”，否则显示“偶数”

45、。Private Sub odd(n As Integer)Print n;If n/2n2 Then Print 奇数 Else Print _“偶数”_ End If End Sub Private Sub Command1_Click()Dim x As Integer Randomize x=_int(rnd*9+1)_ odd x End Sub 8.下列程序允许用户按Enter 键将一个组合框（cboComputer）中没有的项目添加到组合框中。Sub cboComputer_KeyPress(KeyAscii As Integer)Dim flag As Boolean If K

46、eyAscii=13 Then 15 flag=False For I=0 To cboComputer.ListCount-1 If Then Flag=True Exit For End If Next i If Not flag Then Else MsgBox(”组合框中已有该项目！”)End If End If End Sub 9.请用正确的内容填空。下面程序的功能是通过InputBox对话框接受一个二进制数，并把它转换成一个十进制数，结果显示在窗体中。Private Sub Form_Click()b=InputBox(请输入一个二进制数)m=Len(b)For j=_1 to m

47、_ dec=dec*2+_val(Mid(b,j,1)Next j Print b;转换后的十进制数为：;dec End Sub 10.以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1 中显示出来。请填空。Private Sub Command1_Click()Dim inData As String Text1.Text=Open.smtext1.txt_for Input_As#1 Do While _not eof(1)_ Input#1,inData Text1.Text=Text1.Text&inData Loop End Sub 第

48、一卷客观题第三题、简单程序（共15 分，每项 1.5 分）41.执行下面程序段后，变量c$的值为 _。Da$=Visual Basic Programming b$=Quick c$=b$&Ucase(Mid$(a$,7,6)&Right$(a$,12)A.Visual BASIC Programming B.Quick Basic Programming C.QUICK Basic Programming D.Quick BASIC Programming 42.运行下面程序后，在弹出的消息窗口中显示的是_。DPrivate Sub Form_Click()16 score=Int(Rnd)

49、+5 Select Case score Case 5 a$=Good Case 4 a$=Ok Case 3 a$=Pass Case Else a$=Bad End Select MsgBox a$End Sub A.Bad B.Pass C.Ok D.Good 43.执行下面程序段后，变量a 的值为 _。CFor I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9C.14 D.21 44.写出下列程序的运行结果，并说明函数的功能。APublic Function f(m%,n%)Do While m

50、n Do While m n m=m n Loop Do While n m n=n m Loop Loop f=m End Function Private Sub Command1_Click()print f(24,18)End Sub A.6B.8 C.10 D.12 45.以下程序的输出结果是_。BPrivate Sub Command1_Click()a=1234 b$=Str$(a)c=Len(Trim(b)print c;LenB(b)End Sub 17 A.3 8B.4 10C.5 10 D.4 8 46.执行下面程序段后，变量x 的值为 _。Ax=5 For I=1 To