二级VISUALBASIC模拟题31真题无答案.docx
《二级VISUALBASIC模拟题31真题无答案.docx》由会员分享，可在线阅读，更多相关《二级VISUALBASIC模拟题31真题无答案.docx（17页珍藏版）》请在冰豆网上搜索。
二级VISUALBASIC模拟题31真题无答案
二级VISUALBASIC模拟题2018年（31）
（总分97,考试时间90分钟）
一、选择题
1.在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarr（10）
Fori=6To10
arr（i）=i-5
Nexti
Label1.Caption=arr（0）+arr（arr（10）/arr（6））
EndSub
运行程序，单击命令按钮，则在标签中显示的是
A.0B.1
C.2D.3
2.下面是求最大公约数的函数的首部
Functiongcd（ByValxAsInteger,ByValyAsInteger）AsInteger
若要输出8、12、16这3个数的最大公约数，下面正确的语句是
A.Printgcd（8,12）,gcd（12,16）,gcd（16,8）
B.Printgcd（8,12,16）
C.Printgcd（8）,gcd（12）,gcd（16）
D.Printgcd（8,gcd（12,16））
3.窗体上有一个名称为Command1的命令按钮，并有如下程序：
PrivateSubCommand1_Click（）
DimmAsInteger,nAsInteger
m=InputBox（"输入第一个数"）
n=InputBox（"输入第二个数"）
DoWhilem＜＞n
DoWhilem＞n
m=m-n
Loop
DoWhilen＞m
n=n-m
Loop
Loop
Printm
EndSub
该程序的功能是______。
A.求数值m和n的最大公约数B.求数值m和n的最小公倍数
C.求数值m和n中的较大数D.求数值m和n中的较小数
4.在窗体上画一个命令按钮（名称为Command1），并编写如下代码：
FunctionFun1（ByValaAsInteger,bAsInteger）AsInteger
DimtAsInteger
t=a-b
b=t+a
Fun1=t+b
EndFunction
PrivateSubCommand1_Click（）
DimxAsInteger
x=10
PrintFun1（Fun1（x,（Fun1（x,x-1）））,x-1）
EndSub
程序运行后，单击命令按钮，输出结果是______。
A.10B.0
C.11D.21
5.下列数据模型中，具有坚实理论基础的是
A.层次模型B.网状模型
C.关系模型D.以上3个都是
6.结构化程序所要求的基本结构不包括______。
A.顺序结构B.GOTO跳转
C.选择（分支）结构D.重复（循环）结构
7.阅读下列程序：
DimSWAsBoolean
Functionfunc（XAsInteger）AsInteger
IfX＜20Then
Y=X
Else
Y=20+X
EndIf
func=Y
EndFunction
PrivateSubForm_MouseDown（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）
SW=False
EndSub
PrivateSubForm_MouseUp（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）
SW=True
EndSub
PrivateSubCommand1_Click（）
DimintNumAsInteger
intNum=InputBox（""）
IfSWThen
Printfunc（intNum）
EndIf
EndSub
程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为
A.0B.20
C.40D.无任何输出
8.下列说法中正确的是
为了装入一个VisualBasic应用程序，应当
A.只装入窗体文件（.frm）
B.只装人工程文件（.vbp）
C.分别装入工程文件和标准模块文件（.bas）
D.分别装入工程文件、窗体文件和标准模块文件
9.下列排序方法中，最坏情况下比较次数最少的是______。
A.冒泡排序B.简单选择排序
C.直接插入排序D.堆排序
10.假定有以下程序段
Fori=1To3
Fori=5To1Step-1
Printi*j
Nextj
Nexti
则语句Printi*j的执行次数是
A.15B.16
C.17D.18
11.可以用作其他控件容器的控件有______。
A.窗体、列表框、图像B.窗体、文本框、框架
C.窗体、框架、图片框D.窗体、标签、图片框
12.假定有如下语句：
answer$=MsgBox（"String1"，，"string2"，"String3"，2）
执行该语句后，将显示一个信息框，单击其中的“确定”按钮，则answer$的值为______。
A.String1B.String2
C.String3D.1
13.过程语句中，使用的＜参数表＞可以是下列哪种____。
A.常量或变量名B.表达式或变量名
C.数组元素或变量名D.变量名或数组名
14.下列函数中，能够得到一个字符串的一组函数是____
A.Leh函数、Right函数、Mid函数
B.LTrim函数、RTrim函数、Trim函数
C.Len函数、LCase函数、UCase函数
D.Space函数、Len函数、Trim函数
15.下列可作为VisualBasic中所允许的形式的数是
A.10^（1.256）B.D32
C.2.5ED.12E3
16.改变驱动器列表框的Drive属性值将激活______事件。
A.ChangeB.Scroll
C.KeyDownD.KeyUp
17.设有如下事件过程：
PrivateSubForm_Click（）
x=0
Whilex＜10
x=x+1:
x=x*x
Wend
Printx
EndSub
运行程序，单击窗体，输出结果是
A.16B.19
C.20D.25
18.在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。
程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见图）。
下面能实现此功能的事件过程是____。
A.PrivateSubCheck1_Click（IndexAsInteger）Text1.Text=""Fork=0To3IfCheck1（k）.Value=1ThenText1.Text=Text1.Text&Check1（k）.Caption&"""双引号中是空格EndIfNextkEndSub
B.PrivateSubCheck1_Click（IndexAsInteger）Fork=0To3IfCheck1（k）.Value=1ThenText1.Text=Text1.Text&Check1（k）.Caption&"""双引号中是空格EndIfNextkEndSub
C.PrivateSubCheck1_Click（IndexAsInteger）Text1.Text=""Fork=0To3IfCheck1（Index）.Value=1ThenText1.Text=Text1.Text&Check1（Index）.Caption&"""双引号中是空格EndIfNextkEndSub
D.PrivateSubCheck1_Click（IndexAsInteger）Text1.Text=""Fork=0To3IfCheck1（k）.Value=1ThenText1.Text=Text1.Text&Check1（k）.Caption&"""双引号中是空格ExitForEndIfNextkEndSub
19.假定有以下循环结构：
DoUntil条件表达式
循环体
Loop
则以下正确的描述是______。
A.如果“条件表达式”的值是0，则一次循环体也不执行
B.如果“条件表达式”的值不为0，则至少执行一次循环体
C.不论“条件表达式”的值是否为“真”，至少要执行一次循环体
D.如果“条件表达式”的值恒为0，则无限次执行循环体
20.设x为一整型变量，且语句的开始为：
SelectCasex，则不符合语法规则的Case子句是
A.CaseIs＞20B.Case1To10
C.Case0＜IsAndIS＜20D.Case2，3，4
21.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是______。
A.它的Y1、Y2属性的值相等
B.它的X1、X2属性的值相等
C.它的x1、Y1属性的值分别与X2、Y2属性的值相等
D.它的X1、X2属性的值分别与Y1、Y2属性的值相等
22.设有如下程序：
PrivateSubForm_Click（）
Cls
a$="123456"
Fori=1To6
PrintTab（12-i）;______
Nexti
EndSub
程序运行后，单击窗体，要求结果如图所示，则在______处填入的内容为______。
A.Left（a$,i）B.Mid（a$,8-i,i）
C.Right（a$.,i）D.Mid（a$,7,i）
23.下列关于文件的叙述中错误的是______。
A.以Input方式打开文件时，如果文件不存在，则建立一个新文件
B.顺序文件各记录的长度可以不同
C.使用Append方式打开文件时，文件指针被定位到文件尾
D.随机文件打开后，既可以读，也可以写
24.设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程：
PrivateSubHScroll1_Change（）
Text1=HScroll1
EndSub
在程序运行时，当把滚动框移动到最左边时，文本框中显示的是100；当把滚动框移动到最右边时，文本框中显示的是1。
根据这些信息，下面的判断中错误的是______。
A.滚动条的Max和Min属性的值分别是1和100
B.滚动条的Max和Min属性的值分别是100和1
C.文本框中显示的是滚动条Value属性的值
D.如果把滚动框移动到中间位置，文本框中将显示50
25.下列控件中，没有Caption属性的是______。
A.单选按钮B.复选框
C.列表框D.框架
26.以下关于过程及过程参数的描述中，错误的是______。
A.调用过程时可以用控件名称作为实际参数
B.用数组作为过程的参数时，使用的是“传地址”方式
C.只有函数过程能够将过程中处理的信息传回到调用的程序中
D.窗体（Form）可以作为过程的参数
27.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是______。
A.如果工程中含有SubMain过程，则程序一定首先执行该过程
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D.任何时刻最多只有一个窗体是活动窗体
28.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
EndSub
程序运行后，单击命令按钮，其输出结果为______。
A.9B.6
C.12D.15
29.窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如下图所示），还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：
PrivateSubCommand1_Click（）
DimstrAsString,sAsString,kAsInteger
s=Text1
Str=""
Fork=List1.ListCount-1to0Step-1
IfInStr（List.List（k）,s）＞0then
str=str&List1.List（k）&""
EndIf
Nextk
Ifstr=""Then
Text2="没有匹配的项目"
Else
Text2=str
EndIf
EndSub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。
A..京B.北京南京
C.南京D.没有匹配的项目
30.有如下程序：
PrivateSubCommand1_Click（）
DimkAsInteger，mAsInteger
DimpAsInteger
k=4：
m=1
p=PC（k，m）：
Printp；
p=PC（k，m）：
Printp
EndSub
PrivateFunctionPC（aAsInteger，bAsInteger）
StaticmAsInteger，iAsInteger
m=0：
i=2
i=i+m+1
m=i+a+b
PC=m
EndFunction
程序运行后，输出的结果为
A.46B.66
C.88D.1012
31.下列数据结构中属于非线性结构的是______。
A.队列B.线性表
C.二叉树D..栈
32.为了使列表框中的项目分为多列显示，需要设置的属性为
A.ColumnsB.Style
C.ListD.MultiSelect
33.设a=4，b=5，c=6，执行语句Printa＜bAndb＜c窗体上显示的是
A.TrueB.False
C.出错信息D.0
34.窗体上的三个命令按钮构成名称为command1的控件数组，如图所示。
程序如下：
PrivateSubCommand1_Click（IndexAsInteger）
IfIndex=1Then
Print"计算机等级考试"
EndIf
IfIndex=2Then
PrintCommand1
（2）.Caption
EndIf
EndSub
运行程序，单击“命令按钮2”，则如下叙述中正确的是______。
A.PrintCommand1
（2）.Caption语句有错
B.在窗体上显示“命令按钮2”
C.在窗体上显示“命令按钮3”
D.在窗体上显示“计算机等级考试”
35.某二叉树中度为2的结点有10个，则该二叉树中有____个叶子结点。
A.9B.10
C.11D.12
二、填空题
1.列程序的功能是将数据1，2，…，10写入顺序文件Base.txt中，请填空。
PrivateSubForm_Click（）
DimiAsInteger
Open________As#1
Fori=1To10
Print#1,i
Next
Close#1
EndSub
2.在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。
程序实现的功能是：
窗体上有文本框Text1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。
Check1的单击事件过程如下：
PrivateSubCheck1_Click（）
If______Then
Text1.FontUnderline=Tree
ElseIf______Then
Text1.FontUndefiine=False
EndIf
EndSub
3.当对象得到焦点时，会触发GotFocus事件，当对象失去焦点时将触发______事件。
4.按照排序过程涉及的存储设备的不同，排序可分为______和______。
5.软件维护活动包括以下几类：
改正性维护、适应性维护、________维护和预防性维护。
6.软件生命周期分为软件定义期、软件开发期和软件维护期，详细设计属于______中的一个阶段。
7.设有如下程序
OptionBase1
PrivateSubCommand1_Click（）
Dimarrl
DimMinAsInteger，iAsInteger
arrl=Array（12，435，76，-24，78，54，866，43）
Min=____
Fori=2To8
Ifarrl（i）＜MinThen
Nexti
Print“最小值是：
”；Min
EndSub
以上程序的功能是：
用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。
请填空。
8.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
PrivateSubForm_Click____
Text1.Text=“VB程序设计”
EndSub
PrivmeSubText1_Change（）
Picture1.Print"VBProgramming"
EndSub
程序运行后，单击窗体，则在文本框中显示的内容是________，而在图片框中显示的内容是________。
9.为了把寻个VisualBASIC应用程序装入内存，只要装入________文件即可。
10.有如下Sub过程：
Subind（aAsInteger）
StaticxAsInteger
x=x+a
Printx：
EndSub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为________。
PrivateSubCommand1_Click（）
Ind2
EndSub
11.在两种基本测试方法中，________测试的原则之一是保证所测模块中每一个独立路径至少要执行一次。
12.下列过程的功能是：
用来计算并输出S=1+1/2+1/3+…+1/100的值。
请完善程序。
FunctionSumF（nAsInteger）AsSingle
s=0
Fori=1Ton
s=______
Nexti
SuraF=s
EndFunction
PrivateSubForm_Click____
Sum1=SumF（100）
Print
Print"sum1=":
sum1
EndSub
13.软件开发过程主要分为需求分析、设计、编码与测试4个阶段，其中______阶段产生“软件需求规格说明书”。
14.关系模型的完整性规则是对关系的某种约束条件，包括实体完整性、______和自定义完整性。
15.Jackson结构化程序设计方法是英国的M．Jackson提出的，它是一种面向________的设计方法。
升级会员 