VB选择题.docx
《VB选择题.docx》由会员分享，可在线阅读，更多相关《VB选择题.docx（12页珍藏版）》请在冰豆网上搜索。
VB选择题
（1）下列关于VB编程的说法中，不正确的是________。
A.事件是能被对象识别的动作
B.方法指示对象的行为
C.属性是描述对象特征的数据
D.VB程序采用的运行机制是面向对象
（2）英文缩写“OOP”的含义是_______。
A.事件驱动的编程机制
B.结构化程序设计语言
C.面向对象程序设计
D.可视化程序设计
（3）6.0的_______版本，可供专业编程人员开发功能强大的组内分布式应用程序。
A.企业版
B.学习版
C.专业版
D.初级版
（4）有说明语句：
Dimx!
，则x是________类型的变量。
A.整型
B.单精度浮点型
C.长整型
D.双精度浮点型
（5）下面所列符号中，_________不是数据类型说明符。
A.!
B.%
C.?
D.#（6）下列逻辑表达式中，值为True的是________。
A."a">"AT"
B."A"<"9"
C."A">"a"
D."AT"<"AND"
（7）下列所列中，是日期型常量。
A.#2/1/02#
B.{2/1/02}
C.2/1/02
D."2/1/02"
（8）窗体对象的__________属性可用于设置窗体上的控制菜单。
A.MinButton
B.MaxButton
C.ControlBox
D.DrowMode
（9）执行语句receive=MsgBox（"AAAA",,"BBBB","",5）后，所产生的信息框的标题是_______。
A.AAAA
B.BBBB
C.空
D.出错，不能产生信息框
（10）在使用InputBox时，必须设置的参数是________。
A.无
B.提示
C.标题
D.缺省
（11）以下Case语句中错误的是_______。
A.CaseIs>10AndIs<5
B.Case3,5,Is>10
C.CaseIs>10
D.Case0to10
（12）下面语句中，正确的是________。
A.Ifx<>ythenprint"x不等于y"
B.Ifx≠yprint"x不等于y"
C.Ifx≠yprint"x不等于y"
D.Ifx≠ythenprint"x不等于y"
（13）如果在窗体上画一个命令按钮Command1，然后编写如下事件代码
PrivateSubCommand1_click（）
X=2
Fori=1to10Step2
X=x+i
Nexti
Printx
EndSub
那么，程序运行后，单击命令按钮，其窗体上显示的结果是__。
A.57
B.38
C.26
D.27
（14）循环语句Fori=20To10Step-2的循环次数为__________。
A.6
B.4
C.不循环
D.5
（15）数组说明语句：
Dimc（-1To1,1To5），则下列表示数组c的元素选项中正确的是_________。
A.c（1,0）
B.c（i+j）
C.c（i）（j）
D.c（i,j）
（16）若有数组说明语句：
Dimt（1To10），则t被定义为________。
A.字符串型数组
B.变体类型数组
C.动态数组
D.整型数组
（17）下面叙述中，错误的是__________。
A.自定义类型只能在窗体模块的通用声明段进行声明
B.在窗体模块中定义自定义类型时必须使用Private关键字
C.自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型
D.自定义类型必须在窗体模块或标准模块的通用声明段进行声明
（18）由Array函数建立的数组，其变量必须是_________类型。
A.字符型
B.整型
C.变体型
D.字符串类型
（19）在代码中，定义了一个子过程：
SubP（a,b）
…
EndSub
下面调用该过程的格式正确的___________。
A.P（）
B.P10,20,30
C.P10
D.P10,20
（20）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimxAsString*1，yAsString，i%
x="a"
Fori=Asc（x）ToAsc（x）+4
y=y&Chr（i）
Nexti
Printy
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是___________。
A.a
B.aaaa
C.32
D.abcde
（21）设已定义函数过程f，它有三个整型数值参数，再设a,b和c为实型变量，则调用该函数过程使用的语句为________。
A.fa+b,b+c,c+a
B.f
C.f（a+b,b+c）
D.f（a+b,b+c,c+a）
（22）有如下程序：
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger
a=10:
b=20
Callpl（a,b）
Print"a=";a;"b=";b
EndSub
PrivateSubpl（ByValxAsInteger,yAsInteger）
x=5
y=x+y
EndSub
程序运行时，单击窗体后，窗体上显示的值是________。
A.a=5b=20
B.a=10b=20
C.a=10b=25
D.a=5b=25
（23）在过程的定义中，使用关键字________来修饰形式参数，可以使之按值传递。
A.ByVal
B.ByRef
C.Reference
D.Value
（24）以下描述中，正确的是________。
A.过程的定义和过程的调用均可以嵌套
B.过程的定义可以嵌套，但过程的调用不能嵌套
C.过程的定义和过程的调用均不能嵌套
D.过程的定义不可以嵌套，但过程的调用可以嵌套
（25）下列叙述中，正确的是________。
A.在调用过程时，所有局部变量被系统初始化为0或空字符串
B.在窗体的Form_Load事件过程中定义的变量是全局变量
C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.局部变量的作用域可以超出所定义的过程
（26）在VisualBasic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是_________。
A.UnLoand
B.Show
C.Load
D.Hide
（27）在VisualBasic中，下列控件中，________控件可以包含其他控件。
A.CheckBox
B.TextBox
C.Image
D.Frame
（28）为了装入一个VisualBasic应用程序，下列说法中，正确的是________。
A.分别装入工程文件和标准模块文件（.bas）
B.只装入窗体文件（.frm）
C.只装入工程文件（.vbp）
D.分别装入工程文件、窗体文件和标准模块文件
（29）文本框控件没有__________属性。
A.Caption
B.Visible
C.Enabled
D.BackColor
（30）如果列表框List中没有被选择的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是______。
A.移去最后一项
B.移去第一项
C.发生错误
D.移去最后加入列表的一项
（31）Check1为复选框，Command1为命令按钮框，Text1为文本框，Option1为单选框，则以下赋值语句错误的是_____。
A.Command1.Caption="Exit"
B.Check1.Caption="grayed"
C.Option1.Value="grayed"
D.Text1.Text="我的文档"
（32）为菜单项中某字母添加热键的方法是在该字母前加______。
A."-"
B."&"
C."@"
D."#"
（33）下面所列中，鼠标单击事件名为________。
A.DblClick
B.MouseUp
C.MouseDown
D.Click
（34）用户释放键盘上任意一个键时，被触发的事件是_______。
A.KeyPress
B.KeyDown
C.KeyUp
D.Key
（35）程序题（16）
建立并输出10*10的上三角矩阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整
PrivateSubForm_click（）
Dima%（1to10,1to10）,i%,j%
Randomize
Fori=1To10
Forj____
a（i,j）=Int（Rnd*9）+1
PrintTab（j*5）;a（i,j）;
Nextj
Print
Nexti
EndSub
A.=1To10-i
B.=1To10
C.=iTo10
D.=1Toi
（36）程序题（12）
PrivateSubform_click（）
s=0
i=1
DoWhilei<=100
IfiMod10<>0Then
s=s+i
i=i+1
Else
i=i+1
EndIf
Loop
Prints
EndSub
运行后，输出的结果是_______
A.4000
B.4050
C.4500
D.5050
（37）程序题（14）
建立并输出10*10的方阵，其中每个数都是随机数且范围是[1，9]，把程序补充完整
PrivateSubForm_click（）
Dima%（1to10,1to10）,i%,j%
Randomize
Fori=1To10
Forj=1To10
a（i,j）=_________
PrintTab（j*5）;a（i,j）;
Nextj
Print
Nexti
EndSub
A.Int（Rnd*9）+1
B.Int（Rnd*9）
C.Int（Rnd）
D.Rnd*9
（38）程序题（48）
执行下列程序段后，输出结果为______
x=1
Fori=0To20Step10
x=x+iMod4
Nexti
Printx
A.5
B.30
C.3
D.7
（39）程序题（66）
PrivateSubform_click（）
s=0
i=1
DoWhilei<=10
IfiMod2<>0Then
s=s+i
i=i+1
Else
i=i+1
EndIf
Loop
Prints
EndSub
运行后，输出的结果是_______
A.20
B.10
C.25
D.55
（40）程序题（43）
以下程序输出结果为“####”,请填空;
PrivateSubForm_click（）
DimaAsInteger,bAsInteger,cAs
升级会员 