VB题库附答案含多套试题.docx
《VB题库附答案含多套试题.docx》由会员分享，可在线阅读，更多相关《VB题库附答案含多套试题.docx（78页珍藏版）》请在冰豆网上搜索。
VB题库附答案含多套试题
《VisualBasic程序设计》模拟考试
（1）在深度为5的满二叉树中，叶子结点的个数为
A）32
B）31
C）16
D）15
B
（2）若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是
A）bdgcefha
B）gdbecfha
C）bdgaechf
D）gdbehfca
D
（3）一些重要的程序语言（如C语言和Pascal语言）允许过程的递归调用。
而实现递归调用中的存储分配通常用
A）栈
B）堆
C）数组
D）链表
A
（4）软件工程的理论和技术性研究的内容主要包括软件开发技术和
A）消除软件危机
B）软件工程管理
C）程序设计自动化
D）实现软件可重用
B
（5）开发软件时对提高开发人员工作效率至关重要的是
A）操作系统的资源管理功能
B）先进的软件开发工具和环境
C）程序人员的数量
D）计算机的并行处理能力
B
（6）在软件测试设计中，软件测试的主要目的是
A）实验性运行软件
B）证明软件正确
C）找出软件中全部错误
D）发现软件错误而执行程序
D
（7）数据处理的最小单位是
A）数据
B）数据元素
C）数据项
D）数据结构
C
（8）索引属于
A）模式
B）内模式
C）外模式
D）概念模式
B
（9）下述关于数据库系统的叙述中正确的是
A）数据库系统减少了数据冗余
B）数据库系统避免了一切冗余
C）数据库系统中数据的一致性是指数据类型一致
D）数据库系统比文件系统能管理更多的数据
A
（10）数据库系统的核心是
A）数据库
B）数据库管理系统
C）模拟模型
D）软件工程
B
（11）下列说法错误的是
A）窗体文件的扩展名为.frm
B）一个窗体对应一个窗体文件
C）VisualBasic中的一个工程只包含一个窗体
D）VisualBasic中一个工程最多可以包含255个窗体
C
（12）下列四组控件属性中，属性值的类型不相同的一组是
A）Label控件的Enabled属性与TextBox控件的Enabled属性
B）OptionButton控件的Value属性与CheckBox控件的Value属性
C）Command控件的Default属性与Command控件的Cancel属性
D）Command控件的Visible属性与Form控件的Visible属性
B
（13）下列方法中不能退出VisualBasic的是
A）按Alt+Q组合键
B）按下Alt+F组合键，然后按Esc键
C）打开"文件"菜单，执行"退出"命令
D）按F10键，然后按F键，再按X键
B
（14）任何控件都有的属性是
A）BackColor
B）Caption
C）Name
D）BorderStyle
C
（15）可以实现从键盘输入一个作为双精度变量a的值的语句是
A）a=InputBox（）
B）a=InputBox（"请输入一个值"）
C）a=Val（InputBox（"请输入一个值"））
D）a=Val（InputBox（））
C
（16）下列符号常量的声明中，不合法的是
A）ConstaAsSingle=1.1
B）Consta="OK"
C）ConstaAsDouble=Sin
（1）
D）ConstaAsInteger="12"
C
（17）在VisualBasic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?
A）"属性"对话框
B）"程序代码"窗口
C）"选项"对话框
D）对象浏览器
C
（18）下列语句中，获得列表框List1中项目个数的语句是
A）x=List1.ListCount
B）x=ListCount
C）x=List1.ListIndex
D）x=ListIndex
A
（19）要获得当前驱动器应使用驱动器列表框的属性是
A）Path
B）Drive
C）Dir
D）Pattern
B
（20）如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过
A）8K
B）16K
C）32K
D）64K
C
（21）当在滚动条内拖动滚动块时触发
A）KeyUp事件
B）KeyPress事件
C）Scroll事件
D）Change事件
C
（22）设有声明语句
Dimb（-1To10,2To9,20）AsInteger
则数组b中全部元素的个数
A）2310
B）2016
C）1500
D）1658
B
（23）设在窗体上有个文本框，然后编写如下的事件过程：
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
ConstAlt=4
ConstKey_F2=&H71
altdown%=（ShiftAndAlt）>0
f2down%=（KeyCode=Key_F2）
Ifaltdown%Andf2down%Then
Text1.Text="BBBBB"
EndIf
EndSub
上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是
A）Alt+F2
B）BBBBB
C）随机出几个数
D）文本框平均内容无变化
D
（24）设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是
A）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
IfButton=2ThenPopupMenuBs,2
EndSub
B）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
PopupMenuBs
EndSub
C）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
PopupMenuBs,0
EndSub
D）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
If（Button=vbLeftButton）Or（Button=vbRightButton）ThenPopupMenuBs
EndSub
A
（25）下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则
PrivateSubCommand1_Click（）
CommonDialog1.CancelError=True
CommonDialog1.Flags=cdlCFEffectsOrcdlDFBoth
CommonDialog1.Action=4
CommonDialog1.ShowFont
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
EndSub
A）Text1的字体不发生变化
B）Text1的字体发生变化
C）Text1的字体和颜色发生变化
D）程序出错！
D
（26）要将名为MyForm的窗体显示出来，正确的使用方法是
A）MyForm.Show
B）Show.MyForm
C）MyFormLoad
D）MyFormShow
A
（27）下列程序段的执行结果为
a=5
Fork=1To0
a=a+k
Nextk
Printk;a
A）-16
B）-116
C）15
D）1121
C
（28）下列程序段的执行结果为
a=3
b=1
ForI=1To3
f=a+b
a=b
b=f
Printf
NextI
A）436
B）459
C）634
D）728
B
（29）下列程序段的执行结果为
I=9
x=5
Do
I=I+1
x=x+2
LoopUntilI>=7
Print"I=";I
Print"x=";x
A）I＝4x＝5
B）I＝7x＝15
C）I＝6x＝8
D）I＝10x＝7
D
（30）以下程序段运行时从键盘上输入字符"-"，则输出结果为
op$=InputBox（"op="）
Ifop$="+"Thena=a+2
Ifop$="-"Thena=a-2
Printa
A）2
B）-2
C）0
D）+2
B
（31）以下程序段的输出结果为
Diml,a（10）,p（3）
k=5
Fori=0To10
a（i）=i
Nexti
Fori=0To2
p（i）=a（i（i+1））
Nexti
Fori=0To2
k=k+p（i）2
Nexti
Printk
A）20
B）21
C）56
D）32
B
（32）下列程序的执行结果为
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=12:
y=20
CallValue（x,y）
Printx;y
EndSub
PrivateSubValue（ByValmAsInteger,ByValnAsInteger）
m=m*2:
n=n-5
Printm;n
EndSub
A）2012
2015
B）1220
1225
C）2415
1220
D）24121215
C
（33）在窗体上画一个命令按钮，然后编写下列程序
PrivateSubCommand3_Click（）
Tcl2
Tcl3
Tcl4
End
升级会员 