秋的声音-期末复习题 (1):山东畜牧兽医学院_「金点文库网」分享知识创造价值

期末复习题 (1)

温柔似野鬼°

953次浏览

2020年08月03日 23:37

最佳经验

本文由作者推荐

党员权利保障条例-证婚人发言稿

一、判断
第1题
由Visual Basic语言编写的应用程序有解释和编译两种执行方式.
答案：Y

第2题
多文档界面是指在一个父窗口下面可以同时打开多个子窗口.
子窗口归属于父窗口,当父窗口关闭时,所有子窗口全部关闭.
答案：Y

第3题
利用Private Const 声明的符号常量,在代码中不可以再赋值.
答案：Y

第4题
框架控件和形状控件都不能响应用户的鼠标的单击事件.
答案：Y

第5题
VB通过窗体管理构成应用程序的各类文件的集合.
答案：N

第6题
Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、
终止角的大小相关,而且与起始角、终止角的正或负相关.
答案：Y

第7题
方法是VB 对象可以响应的用户操作.
答案：N

第8题
组合框包含了列表框的功能.
答案：Y

第9题
当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.
答案：N

第10题
在图片框中放置的控件既可以在该图片框内移动,也可以移出
该图片框外.
答案：N

第11题
移动框架内的控件时框架内的控件也跟随移动,所以框架内各控
件的Left和Top属性值也将分别随之改变.
答案：N

第12题
同一Form窗体中的各控件可以相互重叠,其显示的上下层次的
次序不可以调整.
答案：N

第13题
命令 Picture (500,800),800 能够在图片框Picture 1
中画出的图形是圆心在 (500,800)的一个圆.
答案：Y

第14题
在程序中Name属性是作为对象的标识而引用,不会显示在窗体
上,而控件上显示的内容由Caption属性决定.
答案：N

第15题
在VB中,计时器(Timer)定期激活Timer事件,使Timer中的
代码执行一次.
答案：Y

第16题
Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法.
答案：N

第17题
文本框控件有Caption属性.
答案：N

第18题
在VB中,运算的结果是False.
答案：N

第19题
Variant是一种数据类型,因此只能存放象其它数据类型一样,
无特殊值.
答案：N

第20题

ActiveX控件是扩展名为*.ocx的独立文件,使用时需用
工程部件载入或移去.
答案：Y

第21题
每个对象都有一系列预先定义好的对象事件,但要使对象能响
应具体的事件,则编写该对象相应的事件过程.
答案：Y

第22题
在图片框中放置的控件既可以在该图片框内移动,也可以移出
该图片框外.
答案：N

第23题通过改变属性窗口中的Name属性,可以改变窗体上显示的标题.
答案：N

第24题
在VB中,可以将在Picture控件中绘制的图形以文件的形式保存
在磁盘上.
答案：Y

第25题
在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个
窗体只能由其它窗体卸载.
答案：N

第26题
在标准模块的声明部分中用Publice声明的变量的有效范围是
其所在的工程.
答案：Y

第27题
某一过程中的静态变量在过程结束后,静态变量及其值可以在
其它过程中使用.
答案：N

第28题
对于文件系统控件,当驱动器控件Drive1中的驱动器符改变时,
文件夹列表控件Dir1中显示的文件夹也作相应改变,可以在
Drive1中的Change事件中使用如下命令:=.
答案：Y

第29题
滚动条控件可作为用户输入数据的一种方法.
答案：N

第30题
在VB中将一些通用的过程和函数编写好并封装作为方法供用户
直接调用.
答案：Y
第31题
列表框的中的项目不可以多列显示.
答案：N

第32题
Image 控件不能用作容器使用.
答案：Y

第33题
清除list1列表框对象的内容的语句是.
答案：N

第34题
事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是
事件过程由控件属性决定,而Sub过程是由户自定义.
答案：Y

第35题
图象框中的Stretch 属性为 true 时,其作用是图形自动调整
大小以适应图象控件.
答案：Y

第36题
利用Private Const 声明的符号常量,在代码中不可以再赋值.
答案：Y

第37题
组合框包含了列表框的功能.
答案：Y

第38题
目录列表框中的列表项不可以通过AddItem方法进行添加.
答案：Y

第39题
设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C

的值是 False.
答案：Y

第40题
在VB中,计时器(Timer)定期激活Timer事件,使Timer中的
代码执行一次.
答案：Y

第41题
有一个程序在属性窗口中设置了它的窗体字体大小为10号,而
程序代码若设置了它的窗体字体大小为20号,那么当程序运行
后实际的窗体字体大小为20号.
答案：Y

第42题
计时器(Timer)控件的Interval属性的单位是毫秒,即若将此
属性值设为10,则每0.01秒产生一次Timer事件.
答案：Y

第43题
全局变量用global或public关键字声明,且仅在通用声明处可
以定义.
答案：N

第44题
MsgBox()函数建立的消息框能显示信息也能输入信息.
答案：N

第45题
如果一个列表框一共有5个选项,而当选中第三项时,这时列表
框的ListIndex属性为2.
答案：Y

第46题
可以用合并字符串,但是用在变异变量时,可能会
将两个数值加起来.
答案：Y

第47题
Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、
终止角的大小相关,而且与起始角、终止角的正或负相关.
答案：Y

第48题
将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法.
答案：Y

第49题
对窗体Form内各控件不能用鼠标任意精确定位是由于窗体中的
定位网格起作用.
答案：Y

第50题
Visual Basic程序的运行可以从Main()过程启动,也可以从某
个窗体启动.
答案：Y
第51题
通用对话框只能用SHOW方法进行调用.
答案：N

第52题
如果一个列表框一共有5个选项,而当选中第三项时,这时列表
框的ListIndex属性为2.
答案：Y

第53题
在VB 6.0中,如果要增加工具箱中的控件,应执行VB文件菜
单中的命令.
答案：N

第54题
如果某子程序add用public static sub add()定义,则该子程
序的变量都是局部变量.
答案：N

第55题
对象的可见性用enabled属性设置,可用性用visible属性设置.
答案：N

第56题
清除list1列表框对象的内容的语句是.
答案：N

第57题
三种方式的组合框都可以接受DblClick 事件.
答案：Y

第58题
有一个程序在属性窗口中设置了它的窗体字体大小为10号,而
程序代码若设置了它的窗体字体大小为20号,那么当程序运行
后实际的窗体字体大小为20号.
答案：Y

第59题
Frame控件是一种容器控件,因此它可有它自己的坐标系.
答案：N

第60题
全局变量用global或public关键字声明,且仅在通用声明处可
以定义.
答案：N
第61题
事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是
事件过程由控件属性决定,而Sub过程是由户自定义.
答案：Y

第62题
有的对象属性既可在属性窗口中设定又可在程序代码中设定.
答案：Y

第63题
除了标准控件外,还可引入其它控件及第三方厂商研制的控件.
答案：Y

第64题
三种方式的组合框都可以接受DblClick 事件.
答案：Y

第65题
若要新建一个磁盘上的顺序文件,可用output,append方式打
开文件.
答案：Y

第66题
在程序中Name属性是作为对象的标识而引用,不会显示在窗体
上,而控件上显示的内容由Caption属性决定.
答案：N

第67题
在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个
窗体只能由其它窗体卸载.

答案：N

第68题
函数过程(Function Procedure)用来完成特定的功能,但不返
回相应的结果.
答案：N

第69题
在VB中,可通过函数 Now返回计算机系统的日期和时间.
答案：N

第70题
VB允许用户使用Type语句在窗体模块的通用声明中自己定义数
据类型.
答案：Y

第71题
事件过程由某个用户事件或系统事件触发执行,它不能被其它
过程调用.
答案：N

第72题
计时器(Timer)控件的Interval属性的单位是毫秒,即若将此
属性值设为10,则每0.01秒产生一次Timer事件.
答案：Y

第73题
MsgBox()函数建立的消息框能显示信息也能输入信息.
答案：N

第74题
在VB的工具栏中包括了所有的VB控件,我们不能再加载其他的
控件.
答案：N

第75题
在VB中通用对话框的Filename属性返回的是一个输入或选取的文
件名字符串.
答案：N

第76题
是清除Listl的全部列表项,所以Clear是对象的方法.
答案：Y

第77题
在VB 6.0中,如果要增加工具箱中的控件,应执行VB文件菜
单中的命令.
答案：N

第78题
在多文档应用中,每次只能有一个活动的子窗体可以进行输入编辑.
答案：Y

第79题
在VB中,运算的结果是False.
答案：N

第80题
Visual_basic是合法的变量名.
答案：Y
第81题
用dim语句声明的局部变量能保存上一次过程调用后的值.
答案：N

第82题
三种方式的组合框都可以接受DblClick 事件.
答案：Y

第83题
用VB 6.0仅能开发具有窗口菜单的应用程序,开发的应用中不
能支持弹出式菜单.
答案：N

第84题
VB允许用户使用Type语句在窗体模块的通用声明中自己定义数
据类型.
答案：Y

第85题
如果一个菜单项的Visible属性为False,则它的子菜单也不会显示.
答案：Y

第86题
目录列表框中的列表项不可以通过AddItem方法进行添加.
答案：Y

第87题
在VB中通用对话框的Filename属性返回的是一个输入或选取的文

件名字符串.
答案：N

第88题
在利用通用对话框件显示字体对话框之前必须设置Flags属性,
否则将发生不存在字体的错误.
答案：Y

第89题
组合框包含了列表框的功能.
答案：Y

第90题
在VB6.0中命令按钮不仅响应Click事件,而且响应DbClick事件.
答案：N

二、单项选择

第1题
要使得标签能自动扩充以满足字体大小则可对其()属性进行设置.
A:alignment
B:usemnemonic
C:autosize
D:tag

答案：C

第2题
图像框(Image)的何项属性设置为true时,可使图形自动调整大小
,填满整个图像框().
A:Width
B:Picture
C:Name
D:Stretch

答案：D

第3题
在文本框中欲使掩码符(如*)起作用,必须设置MultiLine属性值为().
A:False
B:True
C:-1
D:1

答案：A

第4题
要使标签能透出窗体的背景,必须设置()属性.
A:BackStyle
B:BorderStyle
C:Appearance
D:BackColor

答案：A

第5题
为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应
将其Interval属性值设置为().
A:5
B:500
C:300
D:5000

答案：D

第6题
以下不属于VisualBasic系统的文件类型是().
A:.frm
B:.bat
C:.vbg
D:.vbp

答案：B

第7题
如果从数据文件中读取数据时,以下打开文件方式中,
正确的是().
A:OPEN FOR INPUT AS #1
B:OPEN FOR OUTPUT AS #1
C:OPEN
D:OPEN

答案：C

第8题
下面()对象在运行时一定不可见.
A:Line
B:Timer

C:Text
D:Option

答案：B

第9题
下列语句中正确的是().
A:+=
B:=cmdok
C:n=1234
D:a=inputbox(hello)

答案：D

第10题
启动VisualBasic后,系统为用户新建的工程起一个名为()的
临时名称.
A:工程1
B:窗体1
C:工程
D:窗体

答案：A
第11题
启动VisualBasic后,系统为用户新建的工程起一个名为()的
临时名称.
A:工程1
B:窗体1
C:工程
D:窗体

答案：A

第12题
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().
A:True
B:False
C:1
D:出错信息

答案：B

第13题
要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的

()属性.
A:Picture
B:Alignment
C:Border
D:Align

答案：D

第14题
代数式exSin(300)2x(x+y)lnx对应的VB表达式是().
A:E^X*Sin(30*3.14180)*2*xx+y*log(x)
B:Exp(x)*Sin(30)*2*x(x+y)*ln(x)
C:Exp(X)*Sin(30*3.14180)*2*x(x+y)*log(x)
D:Exp(X)*Sin(30*3.14180)*2*x(x+y)*ln(x)

答案：C

第15题
如果将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为().
A:0
B:-1
C:True
D:FALSE

答案：B

第16题
可以用作其它控件容器的控件有().
A:窗体控件,列表控件,图像控件
B:窗体控件,文本框控件,框架控件
C:窗体控件,框架控件,图片框控件
D:窗体控件,标签控件,图片控件

答案：C

第17题
下列不能用commondialog 控件调用的对话框是().
A:opensave
B:help
C:font
D:search

答案：D

第18题
设计动画通常使用时钟控件()来控制动画速度.
A:Enabled
B:Interval
C:Timer
D:Move

答案：B

第19题
对象是计算机系统运行的().
A:程序单位
B:逻辑单位
C:物理实体
D:基本实体

答案：D

第20题
简单组合框的style值为().
A:0
B:1
C:2
D:3

答案：B
第21题
当事件能被触发时,()就会对该事件作出响应.
A:对象
B:程序
C:控件
D:窗体

答案：A

第22题
下列的逻辑表达式中不正确的是().
A:AB:XC:1>2 AND 3>1
D:X>Y AND 1=2

答案：B

第23题
如果要给字体加删除线,可以选择下列那种属性().
A:FontName
B:FontSize
C:FontStrikethru
D:FontUnderLine

答案：C

第24题
表达式(73+1)*(185-1)的值是().
A:8.76
B:7.8
C:6
D:6.67

答案：C

第25题
一个对象可以执行的动作和可被对象识别的动作分别称为().
A:事件、方法
B:方法、事件
C:属性、方法
D:过程、事件

答案：A

第26题
以下叙述中错误的是().
A:双击鼠标可以触发DblClick事件
B:窗体或控件的事件的名称可以由编程人员确定
C:移动鼠标时,会触发MouseMove事件
D:控件的名称可以由编程人员设定

答案：B

第27题
以下可以作为VB变量名的是().
A:SIN
B:CO1
C:COS(X)
D:X(-1)

答案：B

第28题
要在窗体上显示图片,需设置窗体的()属性.
A:Caption
B:Icon
C:Picture
D:ControlBox

答案：C

第29题
欲使某命令按钮失效,应修改命令按钮的()属性.
A:Visible
B:Caption
C:Enable
D:Enabled

答案：D

第30题
标准工具箱中的控件().
A:数目是固定不变的
B:数目可以增加或减少
C:包含了VisualBasic所有控件
D:在窗体建立对象时不一定被使用

答案：B

第31题
下面()对象在运行时一定不可见.
A:Line
B:Timer
C:Text
D:Option

答案：B

第32题
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性().
A:Dir
B:Path
C:Drive

D:FileName

答案：D

第33题
激活属性窗口使用的键是().
A:F2
B:F3
C:F4
D:F5

答案：C

第34题
如果要在命令按钮上显示图形文件,应设置命令按钮的().
A:Style属性和Graphics属性
B:Style属性和Picture属性
C:Picture属性
D:Graphics属性

答案：B

第35题
以下叙述中错误的是().
A:VisualBasic是事件驱动型可视化编程工具
B:VisualBasic应用程序不具有明显开始和结束语句
C:VisualBasi c工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
D:VisualBasic中控件的某些属性只能在运行时设置

答案：C

第36题
要清除已经在图片框Picture中打印的字符串而不清除图片框中的
图像,应使用语句().
A:
B:e=LoadPicture(
C:
D:

答案：A

第37题
要在垂直位置上移动控件,应利用控件的()属性.
A:Left

B:Width
C:Top
D:Height

答案：C

第38题
可以用作其它控件容器的控件有().
A:窗体控件,列表控件,图像控件
B:窗体控件,文本框控件,框架控件
C:窗体控件,框架控件,图片框控件
D:窗体控件,标签控件,图片控件

答案：C

第39题
单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件.
A:Scroll
B:KeyDown
C:Change
D:Dragover

答案：C

第40题
定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.
A:分
B:秒
C:毫秒
D:微秒

答案：C

第41题
改变控件在窗体中的上下位置应修改控件的()属性.
A:Top
B:Left
C:Wide
D:Height

答案：A

第42题
以下()程序段可以实施X、Y变量值的变换.

A:Y=X:X=Y
B:Z=X:Y=Z:X=Y
C:Z=X:X=Y:Y=Z
D:Z=X:W=Y:Y=Z:X=Y

答案：C

第43题
以下()对象不具有Clear方法.
A:列表框
B:组合框
C:剪贴板
D:图片框

答案：D

第44题
货币型数据需()字节.
A:2
B:4
C:6
D:8

答案：D

第45题
设置列表框选中的文本用()属性.
A:selected
B:caption
C:text
D:list

答案：D

第46题
要使标签所在处透明显示背景,应把其Backstyle属性设置为().
A:0
B:1
C:2
D:3

答案：A

第47题

不具有输入数据功能的控件是()控件.
A:文本框
B:选项按钮
C:列表框
D:窗体

答案：D

第48题
下列数据类型中,占用内存最大的是().
A:Boolean
B:Byte
C:Integer
D:Single

答案：D

第49题
InputBox函数返回的函数值的类型是().
A:数值
B:字符串
C:数值或字符串
D:根据需要可以是任何类型数据

答案：C

第50题
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性().
A:Dir
B:Path
C:Drive
D:FileName

答案：D
第51题
在VB中过()属性来设置字体颜色.
A:FontColor
B:ForeColor
C:BackColor
D:ShowColor

答案：B

第52题

vb 中的坐标圆点位于().
A:容器右上角
B:容器左上角
C:容器正中央
D:容器右下角

答案：B

第53题
为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令
按钮的一个属性设置为True,这个属性是().
A:Value
B:Default
C:Cancel
D:Enabled

答案：B

第54题
表达式X+1>X是().
A:算术表达式
B:非法表达式
C:字符表达式
D:关系表达式

答案：D

第55题
要使标签能透出窗体的背景,必须设置()属性.
A:BackStyle
B:BorderStyle
C:Appearance
D:BackColor

答案：A

第56题
以下关于vb 语言的说法中,正确的是().
A:vb 是一种面向过程的语言
B:vb 是一种面向对象语言
C:vb是一种低级语言
D:vb 是一种机器语言

答案：B

第57题
下列数据类型中,占用内存最小的是().
A:Boolean
B:Byte
C:Integer
D:Single

答案：B

第58题
要在窗体上显示图片,需设置窗体的()属性.
A:Caption
B:Icon
C:Picture
D:ControlBox

答案：C

第59题
表达式4+56*78Mod9的值是().
A:4
B:5
C:6
D:7

答案：B

第60题
定义货币类型数据应该用关键字().
A:SINGLE
B:DOUBLE
C:CURRENCY
D:BOOLEAN
第61题
组合框的类型由Style属性决定,简单组合框的Style属性值应为().
A:0
B:1
C:2
D:3

答案：B

第62题

改变控件在窗体中的上下位置应修改控件的()属性.
A:Top
B:Left
C:Wide
D:Height

答案：A

第63题
Clear方法适用于() 控件.
A:图片框
B:窗体
C:复选框
D:组合框

答案：D

第64题
下面()是日期型常量.
A:
B:121999
C:#121999#
D:{121999}

答案：C

第65题
窗体设计器是用来设计().
A:应用程序的代码段
B:应用程序的界面
C:对象的属性
D:对象的事件

答案：B

第66题
下列不能打开属性窗口的操作是().
A:执行视图菜单中的属性窗口命令
B:按F4键
C:按Ctrl+T
D:单击工具栏上的属性窗口按钮

答案：C

第67题
下面哪些控件不会影响到界面设计效果().
A:Label
B:Text
C:CommonDialog
D:Frame

答案：C

第68题
下列关于设置控件属性的叙述正确的是().
A:用户必须设置属性值
B:所有的属性值都可以由用户随意设定
C:属性值不必一一重新设置
D:不同控件的属性项都完全一样

答案：C

第69题
以下叙述中错误的是().
A:在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B:以.BAS为扩展名的文件是标准模块文件
C:窗体文件包含该窗体及其控件的属性
D:一个工程中可以含有多个标准模块文件

答案：A

第70题
在窗体Form1的Click事件过程中有以下语句:
n=
若本语句执行之前,标签控件的Caption属性为默认值,则标签控件
的Name属性和Caption属性在执行本语句之前的值分别为().
A:、
B:、
C:、
D:、

答案：C

答案：C
第71题
货币型数据需()字节.

A:2
B:4
C:6
D:8

答案：D

第72题
表达式2+3*4^5-SIN(X+1)2中最先进行的运算是().
A:4^5
B:3*4
C:x+1
D:SIN

答案：C

第73题
循环结构For I%= -1 to –17 Step –2 共执行()次.
A:5
B:6
C:8
D:9

答案：D

第74题
语句item 1 将删除dext等于()的项目..
A:0
B:2
C:3
D:1

答案：D

第75题
如果设计时在属性窗口将命令按钮的()属性设置为False,
则运行时按钮从窗体上消失.
A:Visible
B:Enabled
C:DisabledPicture
D:Default

答案：A

第76题
不管一个对象的属性如何设置,程序运行时始终都能接收焦点的
方法是().
A:用Tab键
B:用鼠标
C:用方向键
D:不能实现

答案：D

第77题
变量未赋值时,数值型变量的值为().
A:0
B:空
C:1
D:无任何值

答案：A

第78题
以下这段在FORM的CLICK事件中的程序运行后的结果是().
CurrentX=1500
CurrentY=500
Line-(3000,2000)
Line-(1500,2000)
Line-(1500,500)

A:三条直线
B:矩形
C:三角形
D:等腰直角三角形

答案：D

第79题
下列对变量的定义中,不能定义A为变体变量的是().
A:DIM A AS DOUBLE
B:DIM A AS VARIANT
C:DIM;A
D:A=24

答案：A

第80题

当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个
覆盖该窗体被移开之后,如果要保持该所画图形的完整性,可以选
择触发()事件来完成图形的重画工作.
A:Paint
B:Load
C:Click
D:Active

答案：A

第81题
为了在运行时能显示窗体左上角的控制框(系统菜单),必须().
A:把窗体的Contro1Box属性设置为Fale,其他属性任意
B:把窗体的Con trolBox属性设置为True,并且把BoderStyle属性设置为1-5
C:把窗体的C ontrolBox属性设置为False,同时把BoderStyle属性调协为非0值
D:把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值

答案：B

第82题
要在垂直位置上移动控件,应利用控件的()属性.
A:Left
B:Width
C:Top
D:Height

答案：C

第83题
Rnd函数不可能产生的()值.
A:0
B:1
C:0.1234
D:.00005

答案：B

第84题
要把一个命令按钮设置成无效,应设置其哪一属性值().
A:Visible
B:Enabled
C:Default
D:Cancel

答案：B

第85题
()对象不能作为控件的容器.
A:Form
B:PictureBox
C:Shape
D:Frame

答案：C

第86题
要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的
()属性.
A:Picture
B:Alignment
C:Border
D:Align

答案：D

第87题
以下叙述中错误的是().
A:打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B:保存VisualBasic程序时,应分别保存窗体文件及工程文件
C:VisualBasic应用程序只能以解释方式执行
D:事件可以由用户引发,也可以由系统引发

答案：C

第88题
将CommandDialog1通用对话框以打开对话框打开,可选以下()方法.
A:showopen
B:showcolor
C:showsave
D:showfont

答案：A

第89题
Line(100,100)-Step(400,400)将在窗体()画一直线.
A:(200,200)到(400,400)
B:(100,100)到(300,300)
C:(100,100)到(500,500)

D:(100,100)到(400,400)

答案：C

第90题
vb 中的坐标系最小刻度为().
A:缇
B:象素
C:厘米
D:一个标准字符宽度

答案：A

三、多项选择
第1题
下列语句哪些是错误的语句（）？
A:Const Imax As Integer=&o155
B:Const _Ga As String=
C:Dim aa,bb As Integer,cc As String
D:yy=8,uu=9

答案：BD

第2题
设A=，下列（）的函数值为。
A:Mid(A,10,4)
B:Left(A,4)
C:Right(A,4)
D:Mid(A,10,14)

答案：ACD

第3题
下面有关数组的说法那些是错误的（）？
A:数组存放的是具有相同数据类型的多个数据
B:数组的下标允许是常数、表达式或变量
C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小

答案：BCD

第4题
要选择列表框List1的第6项，可以使用语句（）。

A:ed(6)=True
B:ed(5)=True
C:dex=5
D:ed=5

答案：BC

第5题
下列说法中哪些是正确的（）？
A:逻辑型数据占1个字节
B:长整型数据占4个字节
C:单精度型数据占4个字节
D:一个汉字在Visual Basic中占1个字节

答案：BCD

第6题
下列哪些标识符不符合变量的命名规则（）？
A:hyu
B:$$abc
C:4w
D:y.u
E:ty%
F:_n8

答案：BCDEF

第7题
在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。
A:DAO
B:ADO
C:OAD
D:RDO

答案：ABD

第8题
请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
D :DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部
元素都初始化为空字符串

答案：BCD

第9题
下列说法哪些是正确的（）？
A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出

答案：ABD

第10题
窗体也是一个对象，它具有（）的特征。
A:属性
B:过程
C:事件
D:方法

答案：ACD

四、程序填空
第1题

'---------------------------------------- ---------------
'【程序填空】
'----------------- --------------------------------------

'功能：窗体中有Text1-Text7共7个文本框，单击按钮Command1在
' Text7中显示前6个文本框中的数值的最大数

'----------------- --------------------------------------
Private Sub Command1_Click()
Dim a, b, c, d, e, f, m As Integer
a = Val(): b = Val(): c = Val()
d = Val(): e = Val(): f = Val()
Call max(a, b, c, m)
Call max(m, d, e, m)
Call max(m, f, f, m)
'**********SPACE**********
= 【?】
End Sub

'**********SPACE**********
Sub max(x, y, z 【?】)

If x > y Then
m = x
Else
m = y
End If
'**********SPACE**********
If m < 【?】 Then
m = z
End If
End Sub

答案：
1). m 或 Cstr(m) 或 Str(m)
2). ,m
3). z

第2题
'---------------------------------- ---------------------
'【程序填空】
'----------- --------------------------------------------

'功能：以下程序的功能是：生成 20 个 200 到 300 之间
' 的随机整数，输出其中能被 5 整除的数并求出它们的和

'------------- ------------------------------------------
Private Sub Command1_Click()
Dim s As Integer
Dim x As Integer, i As Integer
'**********SPACE**********
s = 【?】
For i = 1 To 20
Randomize
'**********SPACE**********
X = Int(【?】 * 100 + 200)
'**********SPACE**********
If X 【?】 5 = 0 Then
Print X
s = s + X
End If

Next i
Print ＝
End Sub

答案：
1). 0
2). Rnd 或 Rnd(1) 或 Rnd()
3). Mod

第3题 < br>'---------------------------------------------- ---------
'【程序填空】
'----------------------- --------------------------------
' 功能：输入一个数,若大于0,则显示；若小于0，
' 则显示；若等于则显示零。
'--------------------------------------------- ----------
Private Sub Command1_Click( )
x = Val()
Select Case x
'**********SPACE**********
【?】
n =
Case Is < 0
'**********SPACE**********
【?】
'**********SPACE**********
【?】
n = 零
End Select
End Sub

答案：
1). Case Is > 0
2). n =
3). Case 0 或 Case Else 或 Case Is = 0

第4题
'------------------------ -------------------------------
'【程序填空】
'- -------------------------------------------------- ----

'功能：完成程序，使程序输出值为 15

'------------------------------------------------- ------
Private Sub Command1_Click()
'**********SPACE**********
Dim i, j, x,【?】 As Integer
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
'**********SPACE**********
For 【?】 = 1 To 2
'**********SPACE**********
x = x + 【?】
Next k
Next j
Next i
Print x
End Sub

答案：
1). k
2). k
3). 6

第5题
'------------------------ -------------------------------
'【程序填空】
'- -------------------------------------------------- ----

'功能：写出程序运行后，单击窗体，Form1上显示的内容
' sum 函数的功能为累加求和
' isum = 1
' isum = 3
' isum = 6
' isum = 10
' isum = 15

'-------------- -----------------------------------------
Private Sub Form_Click()
Dim I As Integer, isum As Integer
'**********SPACE**********

For I = 1 To 【?】
isum = sum(I)
'**********SPACE**********
＝【?】
Next I
End Sub

Private Function sum(n As Integer)
Static j As Integer
'**********SPACE**********
【?】 j + n
sum = j
End Function

答案：
1). 5
2). + isum 或 & isum
3). j =
第6题
'-------------- -----------------------------------------
'【程序填空】
'--------------------------------- ----------------------

'功能：该程序通过For循环计算一个表达式的值，这个表达式是
' 12+23+34+45

'---------------------------- ---------------------------
Private Sub Command1_Click()
'**********SPACE**********
Dim 【?】 As Double, x As Double
Dim n As Long
Dim i As Integer
'**********SPACE**********
sum = 【?】
n = 0
For i = 1 To 5
x = n i
n = n + 1
'**********SPACE**********
sum = 【?】
Next
sum
End Sub

答案：
1). sum
2). 0
3). sum + x 或 x + sum
第7题
'------------ -------------------------------------------
'【程序填空】
'--------------------------------- ----------------------

'功能：用户单击命令按钮后，程序将文本框Text1中的文本反转显示，
' 同时在文本框Text2中显示文本框Text1中字符串的个数。

'--------- ----------------------------------------------
Private Sub Command1_Click()
If =
Exit Sub
= 0
Else
'**********SPACE**********
=【?】 ()
End If
End Sub

Private Sub Form_Load()
=
= 0
End Sub

Private Function MyFun(s1 As String) As String
Dim Pos As Integer
Dim Str1 As String
Dim intC As Integer
Const Sp As String =
'**********SPACE**********
Pos = Len(【?】)
For intC = Pos To 1 Step -1
Str1 = Str1 & Mid(s1, intC, 1)
Next intC
'**********SPACE**********
MyFun = 【?】
= Pos

End Function

答案：
1). MyFun
2). s1
3). Str1

第8题
'--------------- ----------------------------------------
'【程序填空】
'--------------------------------- ----------------------

'功能：本程序用辗转相除法求自然数m 、n的最大公约数和最小公倍数，求最大公约数的算
法如下:
' (1) 对于己知两数m、n，使得m>n;
' (2) m除以n得余数r;
' (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)
' (4) m=n，n=r再重复执行(2)
' 原两数相乘除以最大公约数即为最小公倍数。程序如下:

'-------------- -----------------------------------------

Private Sub Form_Click()
Dim m%, n%, mn%
n = Val(InputBox(
m = Val(InputBox(
If n <= 0 Or m <= 0 Then
MsgBox 数据出错
Exit Sub
End If
'**********SPACE**********
【?】
'**********SPACE**********
If 【?】 Then
t = m
m = n
n = t
End If
'**********SPACE**********
Do While 【?】
'**********SPACE**********

【?】
m = n
n = r
Loop
最大公约数=
最小公倍数=
End Sub

答案：
1). mn=n*m 或 mn=m*n
2). n>m 或 m 3). n <> 0 或 0 <> n
4). r = m Mod n

第9题
'--------------- ----------------------------------------
'【程序填空】
'--------------------------------- ----------------------

'功能：输入任何一个英文字母x,
' 若x的值为则显示x的大写字母；
' 若x的值为则显示x的小写字母；
' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

'------ -------------------------------------------------
Private Sub Command1_Click()
x =
'**********SPACE**********
【?】
'**********SPACE**********
Case 【?】
n = UCase(x)
Case
n = LCase(x)
Case Else
'**********SPACE**********
【?】
End Select
End Sub

答案：
1). Select Case x
2).

3). n = Trim(x) + 或 n = x +

五、程序改错
第1题
'--------------- ---------------------------------
'【程序改错】
'------------------------------------------------

'题目:给定年号与月份，判断该年是否闰年,并根据给出的
' 月份来判断是什么季节和该月有多少天？
' （闰年的条件是：年号能被4整除但不能被100整除，
' 或者能被400整除。）

'---------------------------------------- --------
Option Explicit
Private Sub Form_Click()
Dim Year As Integer, Month As Integer, flag As Integer
Year = InputBox(输入年号：
Month = InputBox(输入月份：
'**********FOUND**********
If Year Mod 4 = 0 And Year Mod 100 <> 0 And Year Mod 400 <> 0 Then
'**********FOUND**********
flag = 0
MsgBox 闰年
Else
flag = 0
MsgBox 非闰年
End If
'**********FOUND**********
Select Case flag
Case 1
MsgBox 该月有31天，春季
Case 2
If flag = 1 Then MsgBox 该月有29天，春季该月有28
天，春季
Case 3
MsgBox 该月有31天，春季
Case 4
MsgBox 该月有30天，夏季
Case 5

MsgBox 该月有31天，夏季
Case 6
MsgBox 该月有30天，夏季
Case 7
MsgBox 该月有31天，秋季
Case 8
MsgBox 该月有31天，秋季
Case 9
MsgBox 该月有30天，秋季
Case 10
MsgBox 该月有31天，冬季
Case 11
MsgBox 该月有30天，冬季
Case 12
MsgBox 该月有31天，冬季
End Select
End Sub

答案：
1). If Year Mod 4 = 0 And Year Mod 100 <> 0 Or Year Mod 400 = 0 Then 或 If Year
Mod 400 = 0 Or Year Mod 4 = 0 And Year Mod 100 <> 0 Then
2). Flag = 1
3). Select Case Month

第2题
'--------------------------------------------- ---
'【程序改错】
'----------------------------- -------------------

'题目：下面程序用于将十个数字从小到大排序

'---------------------------------------- --------
Option Explicit
Option Base 1
Private Sub Form_Click()
Cls
Dim a(10) As Integer
Dim i As Integer, j As Integer, temp As Integer
'**********FOUND**********
For i = 0 To 10
If i Mod 2 = 0 Then a(i) = i Else a(i) = -i
Print a(i);
Next

Print
For i = 1 To 10
For j = 1 To 10 - i
'**********FOUND**********
If a(j) < a(j + 1) Then
temp = a(j): a(j) = a(j + 1): a(j + 1) = temp
End If
'**********FOUND**********
Next i, j
For i = 1 To 10
Print a(i);
Next
End Sub

答案：
1). For i = 1 To 10
2). If a(j) > a( j + 1 ) Then 或 If a( j + 1 ) 3). Next j, i

第3题
'---------------------------------- --------------
'【程序改错】
'------------------ ------------------------------

'题目：以下程序功能是输入三个数，由大到小排序。

'----------- -------------------------------------
Option Explicit
Dim A As Integer
Dim B As Integer
Dim C As Integer
Private Sub Form_Click()
Dim nTemp As Integer
A = Val(InputBox(输入正整数
B = Val(InputBox(输入正整数
C = Val(InputBox(输入正整数
'**********FOUND**********
If A <= C Then
nTemp = A
A = B
B = nTemp
End If
'**********FOUND**********

If B <= C Then
nTemp = A
A = C
C = nTemp
End If
'**********FOUND**********
If A <= B Then
nTemp = B
B = C
C = nTemp
End If

Print
End Sub

答案：
1). If A <= B Then 或 If B >= A Then
2). If A <= C Then 或 If C >= A Then
3). If B <= C Then 或 If C >= B Then

第4题
'------------------- -----------------------------
'【程序改错】
'--- ---------------------------------------------

'题目：程序功能为打印下列图形：
' *
' **
' ***
' ****
' *****

'--------- ---------------------------------------
Option Explicit
Private Sub Form_Click()
Cls
Dim i As Integer
Dim j As Integer
'**********FOUND**********
For i = 1 To 7
'**********FOUND**********
For j = 1 To 5
Print

'**********FOUND**********
loop j
Print
Next i
End Sub

答案：
1). For i = 1 To 5
2). For j = 1 To i
3). Next j 或 Next

第5题
'----------------------------------- -------------
'【程序改错】
'------------------- -----------------------------

'题目：下面程序用于将十个数字从小到大排序

'-------------- ----------------------------------
Option Explicit
Option Base 1
Private Sub Form_Click()
Cls
Dim a(10) As Integer
Dim i As Integer, j As Integer, temp As Integer
'**********FOUND**********
For i = 0 To 10
If i Mod 2 = 0 Then a(i) = i Else a(i) = -i
Print a(i);
Next
Print
For i = 1 To 10
For j = 1 To 10 - i
'**********FOUND**********
If a(j) < a(j + 1) Then
temp = a(j): a(j) = a(j + 1): a(j + 1) = temp
End If
'**********FOUND**********
Next i, j
For i = 1 To 10
Print a(i);
Next
End Sub

' 计算如图1所示的表达式，并在标签框Label1上显示。

'--------------------------------------------- ---
Option Explicit
Private Sub Form_Click()
Dim n As Integer, sum As Double, k As Integer
n = Val(InputBox(请输入自然数n(n>0 且n<30)
'**********FOUND**********
Do While n > 0 Or n < 30
n = Val(InputBox(请重输入
Loop
sum = 0
k = 0
Do
'**********FOUND**********
k = sum + k
sum = sum + 1 (k * (k + 1))
'**********FOUND**********
Loop Until k > n
n =
End Sub

答案：
1). Do While n <= 0 Or n >= 30 或 Do While n <= 0 Or n>= 30
2). k = k + 1 或 k = 1 + k
3). Loop Until k >= n 或 Loop Until n <= k

第8题
'----------------------------------- -------------
'【程序改错】
'------------------- -----------------------------

'题目：下面程序用于将十个数字从小到大排序

'-------------- ----------------------------------
Option Explicit
Option Base 1
Private Sub Form_Click()
Cls
Dim a(10) As Integer
Dim i As Integer, j As Integer, temp As Integer
'**********FOUND**********
For i = 0 To 10

If i Mod 2 = 0 Then a(i) = i Else a(i) = -i
Print a(i);
Next
Print
For i = 1 To 10
For j = 1 To 10 - i
'**********FOUND**********
If a(j) < a(j + 1) Then
temp = a(j): a(j) = a(j + 1): a(j + 1) = temp
End If
'**********FOUND**********
Next i, j
For i = 1 To 10
Print a(i);
Next
End Sub

答案：
1). For i = 1 To 10
2). If a(j) > a( j + 1 ) Then 或 If a( j + 1 ) 3). Next j, i

第9题
'----------------------------------- -------------
'【程序改错】
'------------------- -----------------------------

'题目：输出40以内能够被3整除的数，要求输出结果为5
' 个数一行。

'---------------------------------------- --------
Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
'**********FOUND**********
i = 1
For x = 1 To 40
If (x 3) = (x 3) Then
'**********FOUND**********
Print x
i = i + 1

长春理工大学光电-高二数学教案

长沙电力职业学院-语文作文素材

战区划分-教师专业技术总结

莫言演讲稿-法务工作总结

幼儿园家长教育心得-浪漫的个性签名

日语初学者-开学第一周

云南财经大学分数线-品管部工作计划

逊克-保护水资源的重要性

秋的声音-期末复习题 (1):山东畜牧兽医学院

党员权利保障条例-证婚人发言稿

长春理工大学光电-高二数学教案

长沙电力职业学院-语文作文素材

战区划分-教师专业技术总结

莫言演讲稿-法务工作总结

幼儿园家长教育心得-浪漫的个性签名

日语初学者-开学第一周

云南财经大学分数线-品管部工作计划

逊克-保护水资源的重要性

您可能关注的内容

为你推荐

分类导航 :

期末复习题 (1)

党员权利保障条例-证婚人发言稿

长春理工大学光电-高二数学教案

长沙电力职业学院-语文作文素材

战区划分-教师专业技术总结

莫言演讲稿-法务工作总结

幼儿园家长教育心得-浪漫的个性签名

日语初学者-开学第一周

云南财经大学分数线-品管部工作计划

逊克-保护水资源的重要性

相关推荐

建筑学常用英语词汇

出租车计费器

专升本英语考试题

【精品作文】形容一个人很帅的句子

青岛版小学数学六年级上册教案全册

中国三十六位军事家