visual basic二级笔试.docx
《visual basic二级笔试.docx》由会员分享，可在线阅读，更多相关《visual basic二级笔试.docx（11页珍藏版）》请在冰豆网上搜索。
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键
答案：
D
（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
（2）（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）2412
1215
答案：
C
（33）在窗体上画一个命令按钮，然后编写下列程序
PrivateSubCommand3_Click（）
Tcl2
Tcl3
Tcl4
EndSub
SubTcl（aAsInteger）
StaticxAsInteger
x=x+a
Printx;
EndSub
程序运行后，单击命令按钮，输出结果为
A）234
B）259
C）354
D）243
答案：
B
（3）（34）下面程序段，运行后的结果是PrivateSubCommand1_Click（）
Dimb%（1To4）,i%,t#
Fori=1To4
b（i）=i
Nexti
t=Tof（b（））
Print"t=";t,
EndSub
FunctionTof（a（）AsInteger）
Dimt#,i%
t=1
Fori=2ToUBound（A）
t=t*a（i）
Nexti
Tof=t
EndFunction
A）t＝18
B）t＝24
C）t＝30
D）t＝32
答案：
B
（35）单击按钮时，以下程序运行后的输出结果是
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger,zAsInteger
x=1:
y=2:
z=3
CallGod（x,x,z）
Printx;x;z
CallGod（x,y,y）
Printx;y;y
EndSub
PrivateSubGod（xAsInteger,yAsInteger,zAsInteger）
x=3*z+1
y=2*z
z=x+y
EndSub
A）6612
71111
B）8510
51111
C）9612
91015
D）81010
5910
答案：
A
填空题：
（1）在树结构中，树根结点没有【1】。
答案：
前件
解析：
在树结构中，每一个结点只有一个前件，称为父结点，没有前件的结点只有一个，称为树的根结点；每一个结点可以有多个后件，它们都称为该结点的子结点。
没有后件的结点称为叶子结点。
（2）Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向【2】的设计方法。
答案：
数据结构
解析：
结构化分析方法主要包括：
面向数据流的结构化分析方法（SA-Structuredanalysis），面向数据结构的Jackson方法（JSD-Jacksonsystemdevelopmentmethod）和面向数据结构的结构化数据系统开发方法（DSSD-Datastructuredsystemdevelopmentmethod）。
（3）面向对象的模型中，最基本的概念是对象和【3】。
答案：
类
解析：
面向对象模型中，最基本的概念是对象和类。
对象是现实世界中实体的模型化；将属性集和方法集相同的所有对象组合在一起，可以构成一个类。
（4）软件设计模块化的目的是【4】。
答案：
降低复杂性
解析：
模块化是指解决一个复杂问题时自顶向下逐层把软件系统划分成若干模块的过程，由此分解来降低复杂性。
（5）数据模型按不同应用层次分成3种类型，它们是概念数据模型、【5】和物理数据模型。
答案：
逻辑数据模型
解析：
数据模型按不同层次分成概念数据模型、逻辑数据模型和物理数据模型三类。
（6）在VisualBasic的立即窗口内输入以下语句
X＝65
?
Chr$（X）
在窗口中显示的结果是【6】。
答案：
A
解析：
Chr$（）是求ASCII字符的函数，格式是Chr$（表达式），其中"表达式"应该是合法的ASCII码值，Chr$（）函数把"表达式"的值转换为相应的ASCII字符。
本题中X＝65对应的ASCII码是字符A，所以显示的结果应该是A。
（7）下列程序是判断一个整数（>=3）是否为素数，请补充完整。
DimnAsInteger
n=InputBox（"请输入一个整数（>=3）"）
k=Int（Sqr（n））
i=2
swit=0
Whilei<=kAndswit=0
IfnModi=0Then
【7】
Else
【8】
EndIf
Wend
Ifswit=0Then
Printn;"是一个素数。
"
Else
Printn;"不是一个素数。
"
EndIf
答案：
swit=0
swit=1
解析：
素数是只能被1和本身整除的正整数，在本题的程序中，swit是一个标志变量，如果"swit＝0"，则表示n不能被整除；如果能被一个整数整除，则swit变为1；
While循环执行的条件有两个，一个是"I<=k",另一个是"swit=0",必须两个条件同时成立才执行循环，当I>k时，显然不必再检查n是否能被I整除；而如果"swit=1"，则表示n已被整除，肯定不是素数，也不必检查了。
只有"I<=k"和"swit=0"两者同时成立时才需要检查"n是否为素数"，循环只有一个判断操作，即判断n能否被I整除，如果不能，则I=I+1。
以便为下一次判断作准备。
（8）下面程序是用来打印九九乘法表的，请补充完整。
DimiAsInteger,jAsInteger,Str1$
Str1=""
Fori=1To9
Forj=1To9
If【9】Then
Str1=Str1+Str$（j）+"×"+Str$（i）+"="+Str$（Val（ij））
Else
Str1=Str1&Chr（13）
【10】
EndIf
Nextj
Nexti
PrintStr1
答案：
j<=i
j>i
解析：
（1）Exit语句总是出现在If语句或SelectCase语句内部，而If语句或SelectCase语句在循环内嵌套，用Exit语句中断循环。
函数首先定义了两个Integer型变量i、j，并将空格赋给Str1；第一个For循环的变量I从1到9步长为1，第二个循环的变量i也是从1到9步长为1，循环体为选择结构，它是用来输出i*j的值，所以j的值应该小于此时i的值，那么If的判断语句为j<=i，当满足条件时执行Then后面的语句，即输出i*j的值，如果不满足执行Else后面的语句，并跳出内循环。
（9）在窗体上有一个命令按钮，然后编写如下程序：
FunctionTrans（ByValnumAsLong）AsLong
DimkAsLong
k=1
DoWhilenum
k=k*（numMod10）
num=num＼10
Loop
Trans=k
PrintTrans
EndFunction
PrivateSubCommand1_Click（）
DimmAsLong
DimsAsLong
m=InputBox（"请输入一个数"）
s=Trans（m）
EndSub
程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为【11】,在输入
对话框中输入"987"输出【12】,在输入对话框中输入"879"，输出结果为【13】。
答案：
504
504
解析：
关键字ByVal用来实现传值，也就是说在定义通用过程时，如果形参前面有关键字Byval，则该参数用传值方式传递，否则用传址方式传递；在Sub过程中，先将输入的"456"赋给变量m，m作为参数，调用Trans过程；在Trans过程中以num作为DoWhile的循环条件；在循环体中，调用Mod函数，将num的个位数字与k相乘，然后赋给k，第一次循环时，num的值是789，所以k的值为9，执行num=num＼10后，num的值为78，循环三次后，num变为0，退出循环，k值等于9×8×7＝504，并将k的值作为返回值；当输入"987"或"879"时执行相同的操作，结果都为504。
可以看出，此程序可用于求一个数值各位上数值的乘积。
（10）下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
SubPR（）
Randomize
Dima（10）
Forj=1To10
a（i）=Int（【14】）
If【15】Thenk=k+1
Printa（j）
Nextj
Print
Printk/10
EndSub
答案：
（99*Rnd）+1
a（j）Mod5=0
解析：
小于100的随机正整数用（99*Rnd）+1来表示；求倍数用取模来表示，即a（j）Mod5=0，用k作计数器，累计计算能被5整除的数的个数。
升级会员 