本栏目下题库来源于互联网,轻速云承诺对于用户导入平台的题库是严格保密的,不会在此呈现!
轻速云给您提供更好的在线考试系统服务!
2007年9月全国计算机等级考试二级VB语言程序设计
1、【 单选题
软件是指(    )。 [2分]
程序
程序和文档
算法加数据结构
程序、数据与相关文档的完整集合
答案:
2、【 单选题
软件调试的目的是(    )。 [2分]
发现错误
改正错误
改善软件的性能
验证软件的正确性
答案:
3、【 单选题
在面向对象方法中,实现信息隐蔽是依靠(    )。 [2分]
对象的继承
对象的多态
对象的封装
对象的分类
答案:
4、【 单选题
下列叙述中,不符合良好程序设计风格要求的是(    )。 [2分]
程序的效率第一,清晰第二
程序的可读性好
程序中要有必要的注释
输入数据前要有提示信息
答案:
5、【 单选题
下列叙述中正确的是(    )。 [2分]
程序执行的效率与数据的存储结构密切相关
程序执行的效率只取决于程序的控制结构
程序执行的效率只取决于所处理的数据量
以上3种说法都不对
答案:
6、【 单选题
下列叙述中正确的是(    )。 [2分]
数据的逻辑结构与存储结构必定是一一对应的
由于计算机存储空间是向量式的存储结构,因此,数据的存储结构一定是线性结构
程序设计语言中的数据一般是顺序存储结构,因此,利用数组只能处理线性结构
以上3种说法都不对
答案:
7、【 单选题
冒泡排序在最坏情况下的比较次数是(    )。 [2分]
n(n+1)/2
nlog2n
n(n-1)/2
n/2
答案:
8、【 单选题
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为(    )。 [2分]
219
221
229
231
答案:
9、【 单选题
下列叙述中正确的是(    )。 [2分]
数据库系统是一个独立的系统,不需要操作系统的支持
数据库技术的根本目标是要解决数据的共享问题
数据库管理系统就是数据库系统
以上3种说法都不对
答案:
10、【 单选题
下列叙述中正确的是(    )。 [2分]
为了建立一个关系,首先要构造数据的逻辑关系
表示关系的二维表中各元组的每一个分量还可以分成若干数据项
一个关系的属性名表称为关系模式
一个关系可以包括多个二维表
答案:
11、【 单选题
要使一个文本框可以显示多行文本,应设置为True的属性是(    )。 [2分]
Enabled
MultiLine
MaxLenth
Width
答案:
12、【 单选题
在窗体上有一个名为Textl 的文本框。当光标在文本框中时,如果按下字母“A”,则可被调用的事件过程是(    )。 [2分]
Form_KeyPress( )
Textl_LostFocus( )
Textl_Click( )
Textl_Change( )
答案:
13、【 单选题
设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下列正确的事件过程是(    )。 [2分]
Private Sub Commandl_Click( )
Textl.GotFocus
End Sub
Private Sub Commandl_Click( )
Commandl.GotFocus
End Sub
Private Sub Commandl_Click( )
Textl.SetFocus
End Sub
Private Sub Commandl_Click( )
Commandl.SetFocus
End sub
答案:
14、【 单选题
执行下列程序后输出的是(    )。
Private Sub Commandl_Click( )
Ch$="ABCDEFGH"∶Print Mid(Right(ch$,6),Len(Left(ch$,4),2)
End Sub [2分]
CDEFGH
ABCD
FG
AB
答案:
15、【 单选题
设在窗体Form1上有一个列表框List1,其中有若干个项目。要求单击列表框中某一项时,把该项显示在窗体上,正确的事件过程是(    )。 [2分]
Private Sub List1_Click( )
Print List1.Text
End Sub
Private Sub Form1_Click( )
Print List1.Text
End Sub
Private Sub List1_Click( )
Print Form1.Text
End Sub
Private Sub Form1_Click( )
List1.Print List1.Text
End Sub
答案:
16、【 单选题
若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指(    )。 [2分]
按钮左端到窗体左端的距离
按钮左端到图片框左端的距离
按钮中心点到窗体左端的距离
按钮中心点到图片框左端的距离
答案:
17、【 单选题
为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”。若通过程序设置该标题,则应使用的语句是(    )。 [2分]
CD1.DialogTitle="对话框窗口"
CD1.Action="对话框窗口"
CD1.FileName="对话框窗口"
CD1.Filter="对话框窗口"
答案:
18、【 单选题
在窗体上有如图所示的控件,各控件的名称与其标题相同,并有下列程序:
    
Private Sub Form_Load( )
Command2.Enabled=False∶Check1.Value=1
End Sub
刚运行程序时,看到的窗体外观是(    )。
    [2分]
 
 
 
 
答案:
19、【 单选题
设在窗体中有一个名称为List1 的列表框,其中有若干个项目,如图所示。要求选中某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是(    )。
    [2分]
Private Sub Command1_Click( )
Listl Clear
End Sub
Private Sub Command1_Click( )
List1.Clear List1.ListIndex
End Sub
Private Sub Command1_Click( )
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command1_Click( )
List1.RemoveItem
End Sub
答案:
20、【 单选题
某人设计了下列程序用于计算并输出7!(7的阶乘):
Private Sub Command1_Click( )
t=0
Fork=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时,发现结果是错误的。下列修改方案中能够得到正确结果的是(    )。 [2分]
把t=0改为t=1
把For k=7 To 2 Step-1改为For k=7 To 1 Step-1
把For k=7 To 2 Step-1改为For k=1 To 7
把Next改为Next k
答案:
21、【 单选题
若窗体中已经有若干个不同的单选按钮,要把它们改为一个单选按钮数组,在属性窗口中需要且只需要进行的操作是(    )。 [2分]
把所有单选按钮的Index属性改为相同值
把所有单选按钮的Index属性改为连续的不同值
把所有单选按钮的Caption属性值改为相同
把所有单选按钮的名称改为相同,且把它们的Index属性改为连续的不同值
答案:
22、【 单选题
窗体上有文本框Textl和一个菜单,菜单标题、名称如表,结构见图。要求程序执行时单击“保存”菜单项,则把其标题显示在Textl文本框中。下面可实现此功能的事件过程是(    )。
    [2分]
Private Sub save_Click( )
Text1.Text=file.save.Caption
End Sub
Private Sub save _Click( )
Text1.Text=save.Caption
End Sub
Private Sub file_Click( )
Text1.Text=file.save.Caption
End Sub
Private Sub file_ Click( )
Text1.Text=save.Caption
End Sub
答案:
23、【 单选题
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程下列。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。
Private Sub  Timer1_Timer( )
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现以上目的,那么,他应做的修改是(    )。 [2分]
通过属性窗口把计时器的Interval属性设置为2000
通过属性窗口把计时器的Enabled属性设置为False
把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
答案:
24、【 单选题
形状控件的Shape属性有6种取值,分别代表6种几何图形。下列不属于这6种几何图形的是(    )。
    [2分]
 
 
 
 
答案:
25、【 单选题
下列关于文件的叙述中错误的是(    )。 [2分]
随机文件中各条记录的长度是相同的
打开随机文件时采用的文件存取方式应该是Random
向随机文件中写数据应使用语句Print #文件号
打开随机文件与打开顺序文件一样,都使用Open语句
答案:
26、【 单选题
设窗体上有一个图片框Picture1,要在程序运行期间装入当前文件夹下的图形文件File1.jpg,能实现此功能的语句是(    )。 [2分]
Picture1.Picture="File1.jpg"
Picture1.Picture=LoadPicture("File1.jpg")
LoadPicture("File1.jpg")
Call LoadPicture("File1.jpg")
答案:
27、【 单选题
下列程序执行时,在窗体上显示的是(    )。
Private Sub Command1_Click( )
Dim a(10)
For k=1 To 10
a(k)=11-k
Next k
Print a(a(3)\a(7)Mod a(5))
End Sub [2分]
3
5
7
9
答案:
28、【 单选题
为达到把a、b中的值交换后输出的目的,某人编程下列:
Private Sub Command1_Click( )
a%=10:b%=20
Call swap(a,b):Print a,b
End Sub
Private Sub swap(ByVal a As Integer,ByVal b As Integer)
c=a:a=b:b=c
End Sub
在运行时发现输出结果错了,需要修改。下面列出的错误原因和修改方案中正确的是(    )。 [2分]
调用swap过程的语句错误,应改为Call swap a,b
输出语句错误,应改为Print"a","b"
过程的形式参数有错,应改为swap(ByRef a As Integer,ByRef b As Integer)
swap中3条赋值语句的顺序是错误的,应改为a=b:b=c:c=a
答案:
29、【 单选题
有下列函数:
Function fun(a As Integer, n As Integer)As Integer
Dim m As Integer
While a>=n
a=a-n∶m=m+1
Wend
fun=m
End Function
该函数的返回值是(    )。 [2分]
a乘以n的乘积
a加n的和
a减n的差
a除以n的商(不含小数部分)
答案:
30、【 单选题
下列程序的输出结果是(    )。
Private Sub Command1_Click( )
ch$="ABCDEF"
proc ch∶Print ch
End Sub
Private Sub proc(ch As String)
s=“ “
For k=Len(ch) To 1 Step -1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub [2分]
ABCDEF
FEDCBA
A
F
答案:
31、【 单选题
某人编写了一个能够返回数组a中10个数中最大数的函数过程,代码下列:
Function MaxValue(a( )As Integer)As Integer
Dim max%∶max=1
For k=2 To 10
If a(k)>a(max)Then
max=k
End If
Next k
MaxValue=max
End Function
程序运行时,发现函数过程的返回值是错的,需要修改,下列的修改方案中正确的是(    )。 [2分]
语句max=1应改为 max=a(1)
语句For k=2 To 10应改为For k=1 To 10
If 语句中的条件a(k)>a(max)应改为a(k)>max
语句MsxValue=max应改为MaxValue=a(max)
答案:
32、【 单选题
在窗体上画一个名称为Command1的命令按钮,然后编写下列事件过程:
Private Sub Command1_Click( )
Dim n%,b,t
t=1:b=1:n=2
Do
b=b*n∶t=t+b∶n=n+1
Loop Until n>9
Print t
End Sub
此程序计算并输出一个表达式的值,该表达式是(    )。 [2分]
9!
10!
1!+2!+…+9!
1!+2!+…+10!
答案:
33、【 单选题
有一个名称为Fom1的窗体,上面没有控件,设有下列程序(其中方法PSet(X,Y)的功能是在坐标X、Y处画一个点):
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
cmdmave =True
End Sub
Private Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
If cmdmave Then
Form1.PSet(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Singgle)
cmdmave=False
End Sub
此程序的功能是(    )。 [2分]
每按下鼠标键一次,在鼠标所指位置画一个点
按下鼠标键,则在鼠标所指位置画一个点;放开鼠标键,则此点消失
不按鼠标键而拖动鼠标,则沿鼠标拖动的轨迹画一条线
按下鼠标键并拖动鼠标,则沿鼠标拖动的轨迹画一条线,放开鼠标键则结束画线
答案:
34、【 单选题
某人设计了下列函数fun,功能是返回参数a中数值的位数
Function fun(a As Integer)As Integer
Dim n%
n=1
While a\10>=0
n=n+1∶a=a\10
Wend
fun=n
End Function
在调用该函数时发现返回的结果不正确,函数需要修改,下列修改方案中正确的是(    )。 [2分]
把语句n=1改为n=0
把循环条件a\10>=0改为a\10>0
把语句a=a\10改为a=a Mod 10
把语句fun=n改为fun=a
答案:
35、【 单选题
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中,如图所示。下列能实现此功能的事件过程是(    )。
    [2分]
Private Sub Check1_Click(Index As Integer)
Text1.Text=“ “
For k=0 To 3
If Check1(k).Value=1 Then
Text1.Text=Text1.Text & Check1(k).Caption & “ “  '双引号中是空格
End If
Next k
End Sub
Private Sub Check1_Click(Index As Integer)
For k=0 To 3
If Check 1(k).Value=1 Then
Text1.Text=Text1.Text & Check1(k).Caption &" "  '双引号中是空格
End If
Next k
End Sub
Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3
If Check1(Index).Value=1 Then
Text1.Text1=Text1.Text & Check1(Index).Caption &" "
'双引号中是空格
End If
Next k
End Sub
Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3
If Checkl(k).Value=1 Then
Text1.Text=Text1.Text & Checkl(k).Caption &" " '双引号中是空格
Exit For
End If
Next k
End Sub
答案:
36、【 填空题
软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性,其中最重要的是    。 [每空2分]
答案: ["无歧义性"]
37、【 填空题
在两种基本测试方法中,   测试的原则之一是保证所测模块中每一个独立路径至少要执行一次。 [每空2分]
答案: ["白盒"]
38、【 填空题
线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表,循环队列是队列的   存储结构。 [每空2分]
答案: ["顺序"]
39、【 填空题
对下列二叉树进行中序遍历的结果为   。
    [每空2分]
答案: ["ACBDFEHGP"]
40、【 填空题
在E-R图中,矩形表示   。 [每空2分]
答案: ["实体"]
12 下一页 末页
2页,共45个题库
2页,共45个题库
轻速云给您提供更好的在线考试系统服务!
推荐
推荐题库
众多企事业单位的信赖之选
36万+企事业单位的共同选择
查看更多合作案例
众多企事业单位的信赖之选
开始使用轻速云组织培训考试
四步组织一场考试答题,一键搭建企业培训平台
免费使用 免费使用 预约演示
咨询热线
400-886-8169
周一到周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1 轻速云科技提供专业的在线考试系统、在线培训系统
联系我们
客服热线客服热线:400-886-8169 | 周一至周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1
轻速云科技提供专业的在线考试系统、在线培训系统
在线咨询 400-886-8169