VB模拟选择题.docx
- 文档编号:8919025
- 上传时间:2023-05-16
- 格式:DOCX
- 页数:28
- 大小:31.79KB
VB模拟选择题.docx
《VB模拟选择题.docx》由会员分享,可在线阅读,更多相关《VB模拟选择题.docx(28页珍藏版)》请在冰点文库上搜索。
VB模拟选择题
湖南省高校计算机等级考试模拟试题
VisualBasic部分
一、单项选题
1、从功能上讲,VisualBasic6.0有3种版本,下列不属于这3种版本的是()。
A、学习版B、标准版C、专业版D、企业版
2、为了同时改变一个活动控件的高度和宽度,正确的操作是()。
A、拖拉控件4个角上的某个小方块
B、只能拖拉位于控件右下角的小方块
C、只能拖拉位于控件左下角的小方块
D、不能同时改变控件的高度和宽度
3、VB把开发一个应用程序视为一项工程,用创建工程的方法来创建一个应用程序,并利用()窗口来管理工程。
A、工程资源管理器B、属性
C、窗体D、窗体布局
4、下列哪个是“面向对象的程序设计”的缩写。
A、OLEB、OOPC、OCXD、ODBC
5、不属于VB三种工作模式的是():
A、设计模式B、运行模式C、调试模式D、中断模式
6、关于VB中程序运行的方式,以下说法正确的是()。
A、只能使用解释运行模式
B、只能使用编译运行模式
C、既不能使用解释运行模式,也不能使用编译运行模式
D、既能使用解释运行模式,又能使用编译运行模式
7、在VB6.0的集成开发环境中调试程序时,用户可直接在()窗口中用Print方式或直接在程序中用Debug.print方法显示表达式的值。
A、代码B、属性
C、窗体D、立即
8、一个VB工程中工程文件的扩展名是()。
A、.vbpB、.frmC、.frxD、.bas
9、下列关于VB6.0的安装,说法错误的是()。
A、有三种安装方式:
典型安装、自定义安装和最小安装
B、VB6.0可从VisualStudio6.0产品的第一张盘上安装
C、VB6.0的联机帮助文件会随VB6.0系统而自动安装
D、系统安装好后,可根据需要添加或删除某些组件
10、下列语句有语法错误的是()。
A、a=5B、b=aC、b=“a”D、5=a
11、执行下面的语句后,所产生的信息框的标题是()。
a=MsgBox(“aaaa”,5,”bbbb”)
A、bbbbB、aaaaC、空D、5
12、假定Picture1,Form1,text1,label1分别为图片框、窗体、文本框、标签的名称,程序代码如下,单击图片框时,清除下列哪个对象的内容()。
PrivateSubPicture1_Click()
Cls
EndSub
A、Picture1B、text1C、Form1D、Label1
13、语句x=inputbox(“pleaseinputanumber”,”input”,3)的作用为()。
A、此句含有语法错误,无法判断
B、显示一个输入框,其默认值为3
C、用于信息输出
D、显示一个对话框,可以同时输入3个值
14、下列语句中,()语句可以使窗体移动到(200,40),并将高度设置为3000,宽度为6000。
A、Command1.Move200,40,6000,3000
B、Move200,40,6000,3000
C、Move40,200,6000,3000
D、Move200,40,3000,6000
15、StrReverse(”abcD”)的值为()。
A、dCBAB、dcbaC、DcbaD、DABC
16、关于逻辑型数据,下列说法错误的是()。
A、逻辑型数据只有两种可能值:
True或者False
B、当把逻辑值转换为数值时False转为0,True转为1
C、当把其他类型数据转换为逻辑数据时,非0数转换为True,0转换为False
D、逻辑型数据以2个字节存储
17、产生大于等于10且小于20的随机整数的表达式为()。
A、Int(Rnd(10)+10)B、Int(Rnd*10+10)
C、Int(Rnd*10+11)D、Int(Rnd*20-10)
18、数学式子sin25。
写成VB表达式是()。
A、sin25B、sin(25)C、sin(25。
)D、sin(25*3.14/180)
19、“+”用作字符串连接符时,下列说法正确的是()。
A、连接符两旁的操作符只能为数值型
B、连接符两旁的操作符只能为字符型
C、连接符两旁的操作符既可为数值型,也可为字符型
D、连接符两旁的操作符既不能为数值型,也不能为字符型
20、“&”用作字符串连接符时,下列说法正确的是()。
A、连接符两旁的操作符只能为数值型
B、连接符两旁的操作符只能为字符型
C、连接符两旁的操作符既可为数值型,也可为字符型
D、连接符两旁的操作符既不能为数值型,也不能为字符型
21、在标准模块的声明部分中,下列语句的作用为()。
OptionExplicit
A、一个可执行语句,无特殊作用
B、规定此模块中的任何变量都需要先声明再使用
C、表明此模块为标准模块
D、无特殊作用,可删除
22、对于定义Dimmy1,my2,my3assingle,以下说法中正确的为()。
A、my1,my2与my3都被定义为单精度型
B、my1被定义为变体类型,my2,my3被定义为单精度型
C、my1,my2被定义为变体类型,my3被定义为单精度型
D、my1,my2,my3都被定义为变体类型
23、若要使标签成为透明,可通过设置()属性来实现。
A.BackCOlorB.BackStyleC.BorderStyleD.ForeColor
24、运行时,若要获得文本框中所选定的文本,可通访问()属性来实现。
A.SelStartB.SelLengthC.TextD.SelText
25、户在组合框中所输入的数据,可通过访问组合框对象的()属性来获得。
A.TextB.ListC.ListindexD.ListCount
26、要将文本框中的字体设为“粗体”,可设置()的属性为True。
A.FontBoldB.BackItalicC.FontNameD.FontSize
27、要将文本框前景颜色设为蓝色,可设置()的属性为vbBlue。
A.ForColorB.BackColorC.BackStyleD.BorderStyle
28、本框的双击事件是()。
A.ValueB.DblClick()C.NameD.Click()
29、若要将命令按钮设置为默认按钮,可设置()属性为True来实现。
A.CancelB.ValueC.EnabledD.Default
30、标签的边框由()属性的设置来决定。
A.BackCOlorB.BackStyleC.BorderStyleD.AutoSize
31、要使标签的大小自动与所显示的文本相适应,可通过设置()属性的值为True来实现。
A.AutoSizeB.AlignmentC.ApperanceD.Visible
32、本框中内容的对齐方式,由()属性值决定。
A.TextB.NameC.CaptionD.Alignment
33、若要设置文本框最大可接收的字符数,可通设置()属性值来实现。
A.MulltlineB.LengthC.MinD.MaxLenght
34、要求向文本框输入密码时,只在文本框中显示&号,则应当在此文本框的属性窗口中设置()。
A.Text属性值为& B.Caption属性值为&
C.password属性值为空 D.Passwordchar属性值为&
35、要获得垂直滚动条Vscrollbar控件所能表示的最大值,可通过调用该控件的()属性来实现。
A.ValueB.MaxC.MinD.LargeCHange
36、要获得滚动条的当前值,可通过访问()属性来实现。
A.TextB.ValueC.MaxD.Min
37、要设置定时器的定时间隔设为10秒,应将()属性值设为10000。
A.IntervalB.ValueC.EnabledD.Text
38、图片框(PictureBox)中显示的图形,由对象的()属性决定。
A.PictureB.ImageC.IconD.LoadPic
39、要将图片"D:
\PIC\CAR.JPG"载入到当前的图片框(PictureBox)中,应用()命令。
A.LoadFileB.LoadPictureC.LoadPicD.LoadJPG
40、要获得当前列表项的数目,可通过访问()属性来实现。
A.ColumnsB.TextC.ListIndexD.ListCount
41、检查框(复选框)的当前状态可通过()属性来访问。
A.ValueB.CheckedC.SelectedD.Caption
42、打开通用对话框的“另存为”对话框的方法是()
A.ShowOpenB.ShowSaveC.ShowColorD.ShowFont
43、以下()可从通用对话框的“打开”对话框中返回用户选择的文件名。
A.FileNameB.PathC.FontNameD.Color
44、语句:
dimstudent(10,5,4)定义的是一个()维数组。
A.1B.2C.3D.4
45、语句:
dimS(-1to5)定义的数组有()个元素。
A.7B.6C.5D.4
46、已知Eng
(1)=90,Math
(1)=80,Comp
(1)=95,Total
(1)=Eng
(1)+Math
(1)+Comp
(1),则Total
(1)=()。
A.265B.90C.80D.95
47、下面的数组定义语句正确的是()。
A.Dima[3,4]B.Dima[3;4]C.Dima(3,4)D.Dima(3;4)
48、用于遍历对象集合所有元素的语句是()。
A.Dowhile…LoopB.ForEach…NextC.While…WendD.For…Next
49、有以下数组声明语句:
OptionBase1:
DimA(3,2to4),则数组A有()个元素。
A.3B.4C.12D.9
50、已知一命令按钮的单击事件的代码如下,第一次单击该按钮输出的值为2,第三次单击该按钮输出的值为()。
PrivateSubCommand1_Click()
StaticStu(3)AsInteger
Fori=2To3
Stu(i)=Stu(i)+i
Nexti
PrintStu
(2);
EndSub
A.2B.4C.6D.8
51、已知在“通用”代码有以下语句:
Dimtt()asInteger
则,在某一事件代码中使用()是正确的。
A.Redimtt(3,4)asbooleanB.Redimtt(4)asStringC.Redimtt(10)D.Redimtt()
52、以下过程是窗体Form1的()事件。
PrviateSubForm_Click()
……
EndSub
A.单击B.双击C.装载D.按键
53、在以下事件过程中,Private表示()。
A.此过程可以被任何其它过程调用
B.此过程只可以被本窗体模块中的其它过程调用
C.此过程不可以被任何其它过程调用
D.此过程不可以被本工程中的任何过程调用
PrivateSubtxtName_Change()
……
EndSub
54、在以下事件过程中,Public表示()。
A.此过程不可以被本模块中的过程调用
B.此过程只可以被本窗体模块中的其它过程调用
C.此过程不可以被任何其它过程调用
D.此过程不可以被本工程中的任何模块调用
PublicSubtxtName_Change()
……
EndSub
55、在子过程中的任意位置要退出当前子过程,应用()命令。
A.EndFunctionB.ExitC.ExitFunctionD.ExitSub
56、以下定义的函数()是按“传值”方式传递参数的。
A.PublicFunctionSum(x,y)
B.PublicFunctionSum(ByValx,ByValy)
C.PublicFunctionSum(xasInteger,yasInteger)
D.PublicFunctionSum(x%,y%)
57、以下函数的定义中,()是错误的。
A.PublicFunctionSum(x;y)
B.PublicFunctionSum(ByValx,ByValy)
C.PublicFunctionSum(xasInteger,yasInteger)
D.PublicFunctionSum(x%,y%)
58、以下递归函数中,正确的是()。
A.PublicFunctionFn(nasInteger)
Ifn=0ThenFn=1ElseFn=Fn*n
EndFunction
B.PublicFunctionFn(nasInteger)
Ifn=0ThenFn=1ElseFn=Fn(n)*n
EndFunction
C.PublicFunctionFn(nasInteger)
Ifn=0ThenFn=1ElseFn=Fn(n-1)*n
EndFunction
D.PublicFunctionFn(nasInteger)
Ifn=0ThenFn=1ElseFn=Fn(n+1)*n
EndFunction
59、已知一窗体中有如下函数过程和一命令按钮Command1,则单击Command1时,输出结果为()。
PublicFunctionFun(x,y)
Fun=1
Fori=1Toy
Fun=Fun*x
Nexti
EndFunction
PrivateSubCommand1_Click()
PrintFun(3,4)
EndSub
A.3B.4C.81D.256
60、已知一窗体上命令按钮Command1的Click事件代码如下,则单击Command1后,文本显示的文字为()。
PrivateSubCommand1_Click()
Text1.Text="湖南省"&"计算机"+"等级考试"
Text1.ForeColor=vbRed
Text1.BackColor=vbGreen
Text1.FontBold=True
EndSub
A.湖南省计算机等级考试
B.计算机
C.等级考试
D.计算机等级考试
61、VB提供的三种访问文件的模式中,不包括()。
A.顺序文件B.数据库文件C.随机文件D.二进制文件
62、以下VB语句中,()的功能是复制指定文件。
A.KillB.FileCopyC.NameD.MkDir
63、以下是Command1的单击事件,单击Command1后,在当前目录下创建了一个名为a.txt的文件,该文件内容为()。
PrivateSubCommand1_Click()
Open"a.txt"ForOutputAs#1
Print#1,"计算机";"等级考试"
Close#1
EndSub
A.等级考试B.计算机等级考试C.计算机D.计算机;等级考试
64、已知一名为“Student.txt”的文件,其内容如下:
张小三,98,87,99
李四明,77,88,93
陈大光,89,56,65
则以下程序段执行的结果为()。
PrivateSubCommand1_Click()
Open"student.txt"ForInputAs#1
While(NotEOF
(1))
Input#1,Nam,Chn,Eng,Cmp
Sum=Chn+Eng+Cmp
PrintSum;
Wend
Close#1
EndSub
A.284258210
B.988799
C.778893
D.895665
65、以下关于while-wend循环的说法中正确的为()。
A、与dowhile-loop循环完全一致
B、不能用dowhile-loop循环来代替
C、其循环中不能使用exitwhile退出循环
D、while-wend不能实现所有循环要求
66、For语句的格式如下,下列说法错误的是()。
for<循环变量>=<初值>to<终值>[step<步长>]
[<循环体>]
[exitfor]
next[<循环变量>]
A、步长只能为正数,不能为负数
B、步长为1时,可略去不写
C、初值、终值和步长都是数值表达式
D、next后的循环变量与for语句中的循环变量必须相同
67、要控制窗体启动时,在屏幕上的位置,可通过()属性来设置。
A.Top和LeftB.Left和RightC.StartUpPositionD.WindowState
68、窗体中的鼠标指针形状,可以通过()属性来设置。
A.MouseIconB.MousePointerC.PictureD.Icon
69、若要将窗体隐藏起来,实现的方法为()。
A.UnloadB.ClsC.WindowStateD.Hide
70、在窗体中利用Print方法输出文本信息时,信息的输出位置由()属性设置。
A.LeftB.TopC.x,yD.CurrentX,CurrentY
71、当窗体的大小被调整时,将会发生的事件有()
A.MoveB.ResizeC.PaintD.Click
72、若要将一普通窗体设置为MDI窗体的子窗体,应将()属性值设为True。
A.EnabledB.VisibleC.MdiChildD.Moveable
73、关闭MDI窗体时,会触发的事件是()。
A.LoadB.ClickC.ResizeD.QueryUnload
74、菜单设计器中,要将当前菜单项下移一个位置,应按()按钮。
A.“左箭头”B.“右箭头”C.“上箭头”D.“下箭头”
75、活弹出式菜单的命令是()。
A.LoadB.ShowC.SetFocusD.PopupMenu
76、要将菜单项的某字母设置为热键,在菜单设计中,应在菜单项的标题的该字母前加()字符。
A./B.@C.&D.\
77、要想通过单击Form2上的Command1,从内存中清除Form2窗体,则可在Command1的单击事件中,使用()命令。
A.LoadForm2B.Form2.Show
C.UnloadForm2D.Form2.hide
78、要想通过单击Form2上的Command1,从屏幕(而非内存中)上清除Form2窗体,则可在Command1的单击事件中,使用()命令。
A.LoadForm2B.Form2.Show
C.UnloadForm2D.Form2.hide
79、要想通过Form2窗体中的过程调用Form1窗体中的Public变量Stu,则可用()方式实现。
A.Form1.StuB.Form2.StuC.StuD.Form2.Form1.Stu
80、若要在图片框中绘制一个椭圆,可使用()方法来实现。
A.CircleB.LineC.PointD.Pset
81、若要获得某一点的颜色值,可通过()方法来实现。
A.CircleB.LineC.PointD.Pset
82、以下关于VB中的图形坐标的度量单位的说法正确的是()。
A.只有一种单位:
Twip
B.只有一种单位:
Cm
C.只有一种单位:
Point
D.可以有多种单位
二、程序填空
【试题1】出售金鱼的问题:
商人将养的一缸金鱼分五次出售,第一次卖出全部的一半加二分之一条;第二次卖出余下的三分之一加三分之一条;第三次卖出余下的四分之一条;第四次卖出余下的五分之一加五分之一条;最后卖出余下的11条。
问原来渔缸中共有几条鱼?
PrivateSubcmdSaleGoldFish_Click()
Dimi,j,n,xAsInteger
n=0
i=23
Do
x=i
j=1
DoWhilej<=4Andx>=11
If((x+1)Mod(j+1)=0)Then
x=_____________________
Else
x=0
___________________
EndIf
j=j+1
Loop
If(j=5Andx=11)Then
PrintTab(5);"开始金鱼数为:
";i
n=1
EndIf
i=i+2
LoopWhile(n=0)
EndSub
【答案】59
【试题2】在
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 模拟 选择题