VB选择题.docx
- 文档编号:7325767
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:21
- 大小:23.49KB
VB选择题.docx
《VB选择题.docx》由会员分享,可在线阅读,更多相关《VB选择题.docx(21页珍藏版)》请在冰豆网上搜索。
VB选择题
05年9月
6)在软件设计中,不属于过程设计工具的是(d)。
A)PDL(过程设计语言)B)PAD图
C)N-S图D)DFD图
16)在窗体上画一个命令按钮,名称为Command1,然后编写下列事件过程:
PrivateSubCommand1_Cilck()
a$="softwareandhardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBoxa$,,b$,c$,1
EndSub
运行程序后,单击命令按钮,则在弹出的信息框的标题栏中显示的是(c)。
A)softwareandhardwareB)software
C)hardwareD)-1
17)在窗体上有一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本
框的Text属性设置为空白,然后编写下列事件过程:
PrivateSubCommand1_Click()
a=InputBox("Enteraninteger")
b=InputBox("Enteraninteger")
Text1.Text=b+a
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显
示的内容是(a)。
A)108B)18C)810D)出错
19)在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编
写下列事件过程:
PrivateSubForm_Load()
List1.AddItem"Iterm1"
List1.AddItem"Iterm2"
List1.AddItem"Iterm3"
EndSub
PrivateSubCommand1_Click()
List1.List(List1.Listcount)="AAAA"
EndSub
程序运行后,单击命令按钮,其结果为(b)。
A)把字符串"AAAA"添加到列表框中,但位置不能确定
B)把字符串"AAAA"添加到列表框的最后(即“Item3”的后面)
C)把列表框中原有的最后一项改为"AAAA"
D)把字符串"AAAA"插入到列表框的最前面(即“Item1”的前面
27)下列关于函数过程的叙述中,正确的是(d)。
A)如果不指明函数过程参数的类型,则该参数没有数据类型
B)函数过程的返回值可以有多个
C)当数组作为函数过程的参数时,既能以传值方式传递,也能以引用方式传递
D)函数过程形参的类型与函数返回值的类型没有关系
(30)窗体上有一个名为Text1的文本框,并编写下列程序:
PrivateSubForm_Load()
Show
Text1.Text=““
Text1.SetFocus
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAssingle,YAsSingle)
Print"程序设计"
EndSub
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
Print"VisualBasic";
EndSub
程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容
是(c)。
A)VisualBasicB)程序设计
C)VisualBasic程序设计D)a程序设计
(31)有下表所列的菜单结构:
标题名称层次
显示appear1(主菜单)
大图标bigicon2(子菜单)
小图标smallicon3(子菜单)
要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。
下
列正确的事件过程是(c)。
A)PrivateSubbigicon_Click()B)PrivateSubbigicon_Click()
bigicon.Checked=FalseMe.appear.bigicon.Checked=True
EndSubEndSub
C)PrivateSubbigicon_Click()D)PrivateSubbigicon_Click()
bigicon.Checked=Trueappear.bigicon.Checked=True
EndSubEndSub
(34)在工程文件中有一个标准模块,其中定义了下列记录类型:
TypeBooks
NameAsString*10
TelNumAsString*20
EndType
要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。
下列能够完成该操作的事件过程是(a)。
A)PrivateSubCommand1_Click()
DimBAsBooks
Open"c:
\Person.txt"ForOutputAs#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write#1,B.Name,B.TelNum
Close#1
EndSub
B)PrivateSubCommand1_Click()
DimBAsBooks
Open"c:
\Person.txt"ForInputAs#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Print#1,B.Name,B.TelNum
Close#1
EndSub
C)PrivateSubCommand1_Click()
DimBAsBooks
Open"c:
\Person.txt"ForOutputAs#1
Name=InputBox("输入姓名")
TelNom=InputBox("输入电话号码")
Write#1,B
Close#1
EndSub
D)PrivateSubCommand1_Click()
DimBAsBook
Open"c:
\Person.txt"ForInputAs#1
Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Print#1,B.Name,B.TelNum
Close#1
EndSub
06年4月
8)“商品”与“顾客”两个实体集之间的联系一般是(d)。
A)一对一
B)一对多
C)多对一
D)多对多
(10)数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是(c)。
A)DB包含DBS和DBMS
B)DBMS包含DB和DBS
C)DBS包含DB和DBMS
D)没有任何关系
12)下列叙述中错误的是(c)。
A)一个VisualBasic应用程序可以含有多个标准模块文件
B)一个VisualBasic工程可以含有多个窗体文件
C)标准模块文件可以属于某个指定的窗体文件
D)标准模块文件的扩展名是.bas
(18)设x=4,y=6,则下列不能在窗体上显示出“A=10”的语句是(a)。
A)PrintA=x+y
B)Print"A=";x+y
C)Print"A="+Str(x+y)
D)Print"A="&x+y
(28)窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小
于500,文本框Text2中输入的数据小于1000,否则重新输入。
为了实现以上功能,
在下列程序中问号(?
)处应填入的内容是(c)。
PrivateSubText1_LostFocus()
CallCheckInput(Text1,500)
EndSub
PrivateSubText2_LostFocus()
CallCheckInput(Text2,1000)
EndSub
SubCheckInput(tAs?
xAsInteger)
IfVal(t.Text)>xThen
MsgBox"请重新输入!
"
EndIf
EndSub
A)TextB)SelText
C)ControlD)Form
(30)为了使列表框中的项目呈多列显示,需要设置的属性为(a)。
A)ColumnsB)Style
C)ListD)MultiSelect
(33)窗体上有1个名称为CD1的通用对话框,1个名称为Command1的命令按钮。
命令
按钮的单击事件过程下列:
PrivateSubCommand1_Click()
CD1.FileName=““
CD1.Filter="AllFiles|*.*|(*.DoC)|*.Doc|(*.Txt)|*.txt"
CD1.FilterIndex=2
CD1.Action=1
EndSub
关于以上代码,错误的叙述是(c)。
A)执行以上事件过程,通用对话框被设置为“打开”文件对话框
B)通用对话框的初始路径为当前路径
C)通用对话框的默认文件类型为*.Txt
D)以上代码不对文件执行读写操作
(35)下列关于文件的叙述中错误的是(b)。
A)使用Append方式打开文件时,文件指针被定位于文件尾
B)当以输入方式(Input)打开文件时,如果文件不存在,则建立一个新文件
C)顺序文件各记录的长度可以不同
D)随机文件打开后,既可以进行读操作,也可以进行写操作
06年9月
(5)数据库设计的4个阶段是:
需求分析、概念设计、逻辑设计和(d)。
A)编码设计
B)测试阶段
C)运行阶段
D)物理设计
(14)有下列用户定义类型:
TypeStudent
numberAsString
nameAsString
ageAsInteger
EndType
则下列正确引用该类型成员的代码是(b)。
A)Student.name="李明"B)DimsAsStudent
s.name="李明"
C)DimsAsTypeStudentD)DimsAsType
s.name="李明"s.name="李明"
(15)设a=5,b=6,c=7,d=8,执行下列语句后,x的值为(b)。
x=IIF((a>b)And(c>d),10,20)
A)10B)20
C)TrueD)False
(20)在窗体上画一个命令按钮和两个标签,其名称分别为Command1、Label1和Label2,
然后编写下列事件过程:
PrivateSubCommand1_Click()
a=0
Fori=1To10
a=a+1
b=0
Forj=1To10
a=a+1
b=b+2
Nextj
Nexti
Label1.Caption=Str(a)
Label1.Caption=Str(b)
EndSub
程序运行后,单击命令按钮,在标签Label1和Label2中显示的内容分别是(d)。
A)10和20B)20和10
C)200和110D)110和20
(23)在窗体上画一个命令按钮,名称为Command1,然后编写下列事件过程:
OptionBase0
PrivateSubCommand1_Click()
DimA(4)AsInteger,B(4)AsInteger
Fork=0To2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Nextk
PrintB(k)
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为(b)。
A)0B)2
C)3D)4
(34)设有语句:
Open"d:
\Test.txt"ForOutputAs#1,下列叙述中错误的是(c)。
A)若d盘根目录下无Test.txt文件,则该语句创建此文件
B)用该语句建立的文件的文件号为1
C)该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息
D)执行该语句后,就可以通过Print#语句向文件Test.txt中写入信息
07年4月
(8)在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是(a)。
A)并B)交C)投影D)笛卡尔乘积
(9)在E-R图中,用来表示实体之间联系的图形是(c)。
A)矩形B)椭圆形C)菱形D)平行四边形
(12)下列表达式中不能判断x是否为偶数的是(d)。
A)x/2=Int(x/2)B)xMod2=0
C)FiX(x/2)=x/2D)x\2=0
(19)若在某窗体模块中有下列事件过程:
PrivateSubCommand1_Click(IndexAsInteger)
二级VisualBasic语言程序设计试卷第3页(共11页)
……
EndSub
则下列叙述中正确的是(d)。
A)此事件过程与不带参数的事件过程没有区别
B)有1个名称为Command1的窗体,单击此窗体则执行此事件过程
C)有1个名称为Command1的控件数组,数组中有多个不同类型控件
D)有1个名称为Command1的控件数组,数组中有多个相同类型控件
(20)下列循环语句中在任何情况下都至少执行一次循环体的是(c)。
A)DoWhile<条件>B)While<条件>
循环体循环体
LoopWend
C)DoD)DoUntil<条件>
循环体循环体
LoopUntil<条件>Loop
(21)在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,
则在程序中应使用的语句是(a)。
A)Cd1.Action=2B)Cd1.Action=1
C)Cd1.ShowSave=TrueD)Cd1.ShowSave=0
(22)下列关于菜单的叙述中错误的是(b)。
A)各级菜单中的所有菜单项的名称必须惟一
B)同一子菜单中的菜单项名称必须惟一,但不同子菜单中的菜单项名称可以相同
C)弹出式菜单用PopupMenu方法弹出
D)弹出式菜单也用菜单编辑器编辑
(23)已知有下列过程:
PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)
……
EndSub
正确调用此过程的语句是(d)。
A)Callproc1(5)B)Callproc15,"abc",False
C)proc1(12,"abc",True)D)proc15,"abc"
(31)在窗体上画1个名称为Command1的命令按钮,然后编写下列程序:
PrivateSubCommand1_Click()
Printfun("ABCDEFG")
EndSub
Functionfun(stAsString)Asstring
stlen=Len(st)
temp=““
Fork=1Tostlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Nextk
fun=temp
EndFunction
程序运行时,单击命令按钮,则在窗体上显示的是(b)。
A)ABCDEFGB)AGBFCE
C)GFEDCBAD)AGBFCED
(32)在窗体上先后画2个图片框,名称分别为Picture1和banana,banana中添加了香蕉图
片,如图1所示,且将banana.DragMode属性设置为1。
要求程序运行时,可以用鼠
标把banana拖拽到Picture1中,如图2所示。
能实现此功能的事件过程是(c)。
图1图2
A)PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
banana.MovePicture1.Left+X,Picture1.Top+Y
EndSub
B)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.MovePicture1.Left+X,Picture1.Top+Y
EndSub
C)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.MovePicture1.Left+X,Picture1.Top+Y
EndSub
D)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
banana.Movebanana.Left+X,banana.Top+Y
EndSub
07年9月
(8)一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
(a)。
A)219B)221C)229D)231
(10)下列叙述中正确的是(a)。
A)为了建立一个关系,首先要构造数据的逻辑关系
B)表示关系的二维表中各元组的每一个分量还可以分成若干数据项
C)一个关系的属性名表称为关系模式
D)一个关系可以包括多个二维表
(15)设在窗体Form1上有一个列表框List1,其中有若干个项目。
要求单击列表框中某一
项时,把该项显示在窗体上,正确的事件过程是(a)。
A)PrivateSubList1_Click()
PrintList1.Text
EndSub
B)PrivateSubForm1_Click()
PrintList1.Text
EndSub
C)PrivateSubList1_Click()
PrintForm1.Text
EndSub
D)PrivateSubForm1_Click()
List1.PrintList1.Text
EndSub
(20)某人设计了下列程序用于计算并输出7!
(7的阶乘):
PrivateSubCommand1_Click()
t=0
Fork=7To2Step-1
t=t*k
Next
Printt
EndSub
执行程序时,发现结果是错误的。
下列修改方案中能够得到正确结果的是(a)。
A)把t=0改为t=1
B)把Fork=7To2Step-1改为Fork=7To1Step-1
C)把Fork=7To2Step-1改为Fork=1To7
D)把Next改为Nextk
(28)为达到把a、b中的值交换后输出的目的,某人编程下列:
PrivateSubCommand1_Click()
a%=10:
b%=20
Callswap(a,b):
Printa,b
EndSub
PrivateSubswap(ByValaAsInteger,ByValbAsInteger)
c=a:
a=b:
b=c
EndSub
在运行时发现输出结果错了,需要修改。
下面列出的错误原因和修改方案中正确的是
(c)。
A)调用swap过程的语句错误,应改为Callswapa,b
B)输出语句错误,应改为Print"a","b"
C)过程的形式参数有错,应改为swap(ByRefaAsInteger,ByRefbAsInteger)
D)swap中3条赋值语句的顺序是错误的,应改为a=b:
b=c:
c=a
(33)有一个名称为Fom1的窗体,上面没有控件,设有下列程序(其中方法PSet(X,Y)的
功能是在坐标X、Y处画一个点):
DimcmdmaveAsBoolean
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs
Single)
cmdmave=True
EndSub
PrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs
Single)
IfcmdmaveThen
Form1.PSet(X,Y)
EndIf
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSinggle)
cmdmave=False
EndSub
此程序的功能是(d)。
A)每按下鼠标键一次,在鼠标所指位置画一个点
B)按下鼠标键,则在鼠标所指位置画一个点;放开鼠标键,则此点消失
C)不按鼠标键而拖动鼠标,则沿鼠标拖动的轨迹画一条线
D)按下鼠标键并拖动鼠标,则沿鼠标拖动的轨迹画一条线,放开鼠标键则结束画线
(34)某人设计了下列函数fun,功能是返回参数a中数值的位数
Functionfun(aAsInteger)AsInteger
Dimn%
n=1
Whilea\10>=0
n=n+1∶a=a\10
Wend
fun=n
EndFunction
在调用该函数时发现返回的结果不正确,函数需要修改,下列修改方案中正确的是
(b)。
A)把语句n=1改为n=0B)把循环条件a\10>=0改为a\10>0
C)把语句a=a\10改为a=aMod10D)把语句fun=n改为fun=a
(35)在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1
的文本框,初始内容为空。
程序运行时,单击任何复选框,则把所有选中的复选框后
面的文字罗列在文本框中,如图所示。
下列能实现此功能的事件过程是(a)。
A)PrivateSubCheck1_Click(IndexAsInteger)
Text1.Text=““
Fork=0To3
IfCheck1(k).Value=1Then
Text1.Text=Text1.Text&Check1(k).Caption&““'双引号中是空格
EndIf
Nextk
EndSub
B)PrivateSubCheck1_Click(IndexAsInteger)
Fork=0To3
IfCheck1(k).Value=1Then
Text1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格
EndIf
N
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 选择题