1、【
单选题
】
下列关于复选框的说法,正确的是( )。
[1分]
、
复选框的Enabled属性用于决定该复选框是否可见
、
复选框的Value属性用于决定该复选框是否被选中
、
复选框的Tabindex属性用于决定该复选框在控件数组中的序号
、
复选框的Visible属性用于决定该复选框是否可用
答案:
2、【
单选题
】
以F叙述中错误的是( )。
[1分]
、
一个工程中只能有一个Sub Main过程
、
窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
、
窗体的Hide方法和Unload方法的作用完全相同
、
若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体
答案:
3、【
单选题
】
以下说法中正确的是( )。
[1分]
、
MouseUp事件是鼠标向上移动时触发的事件
、
MouseUp事件过程中的X,Y参数用于修改鼠标位置
、
在MouseUp事件过程中可以判断用户是否使用了组合键
、
在MouseUp事件过程中不能判断鼠标的位置
答案:
4、【
单选题
】
设有如下程序:
Private Sub Form Click( )
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+l
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后,单击窗体,则在窗体上显示的是( )。
[1分]
答案:
5、【
单选题
】
算法的空间复杂度是指( )。
[1分]
、
算法在执行过程中所需要的计算机存储空间
、
算法所处理的数据量
、
算法程序中的语句或指令条数
、
算法在执行过程中所需要的临时工作单元数
答案:
6、【
单选题
】
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮,运行后的窗体外观如图所示:
设有如下的类型和变量声明:
Private Type Person
name As STRING*8
major As String*20
End Type
Dim P As Person
设文本框中的数据已正确地赋值给Person类型的变量P,当点击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是( )。
[1分]
、
Open"C:\Test2.dat"For Output As#1
Put#1,1,p
Close#1
、
0pen"c:\Test2.dat"For Random As#1
Get#1,1,P
Close#1
、
Open”C:\Test2.dat”For Random As#1 Len—Len(p)
Put#1,1,P
Close#1
、
Open"C:\Test2.dat"For Random As#1 Len=Len(p)
Get#1,1,P
Close#1
答案:
7、【
单选题
】
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写下列程序:
Private Sub rune(L AS Labe1)
Caption="1234"
End Sub
Private Sub Form Load( )
Labe11.Caption="ABCDE"
Labe12.Caption=10
End Sub
Private Sub Command1Click( )
a=Va1(Label2.Caption)
Call func(Label1)
Label2.Caption a
End Sub
程序运行后,单击命令按钮,则在两个标签中显示的内容分别为( )。
[1分]
、
ABCD和10
、
1234和100
、
ABCD和100
、
1234和10
答案:
8、【
单选题
】
下面不能在信息框中输出“VB”的是( )。
[1分]
、
MsgBox"VB"
、
MsgBox("VB")
、
MsgBox("VB")
、
Call MsgBox"VB"
答案:
9、【
单选题
】
下列有关文件叙述中,正确的是( )。
[1分]
、
以0utput方式打开一个不存在的文件时,系统将显示出错信息
、
以APPend方式打开的文件,即可以进行读操作,也可以进行写操作
、
在随机文件中,每个记录的长度是固定的
、
无论是顺序文件还是随机文件,其打开的语句和打开方式都是完全相同的
答案:
10、【
单选题
】
下列排序方法中,最坏情况下比较次数最少的是( )。
[1分]
、
冒泡排序
、
简单选择排序
、
直接插入排序
、
堆排序
答案:
11、【
单选题
】
执行如下两条语句后,窗体上显示的是( )。
a=9.8596
Print Format(a,"$00,00.00")
[1分]
、
0,009.86
、
$9.86
、
9.86
、
$0,009.86
答案:
12、【
单选题
】
数据库管理系统中负责数据模式定义的语言是( )。
[1分]
、
数据定义语言
、
数据管理语言
、
数据操纵语言
、
数据控制语言
答案:
13、【
单选题
】
下列叙述中错误的是( )。
[1分]
、
列表框和组合框都有List属性
、
列表框有Selected属性,而组合框没有
、
列表框和组合框都有Style属性
、
组合框有Text属性,而列表框没有
答案:
14、【
单选题
】
设有如下程序:
Private Sub Form Click( )
Cls
a$="1234j6"
For i=1 To 6
Print Tab(12-i);________
Next i
End Sub
程序运行后,单击窗体,要求结果如图所示,则在______处填入的内容为( )。
[1分]
、
Left(a$,i)
、
Mid(a$,8-i,i)
、
Right(a$,i)
、
Mid(a$,7,i)
答案:
15、【
单选题
】
有如下程序:
Private Type stu
X As String
Y As Integer
End Type
Private Sub Command1 Click( )
Dim a As stu
X="ABCD"
Y=12345
Print a
End Sub
程序运行时出现错误,错误的原因是( )。
[1分]
、
Type定义语句没有放在标准模块中
、
变量声明语句有错
、
赋值语句不对
、
输出语句Print不对
答案:
16、【
单选题
】
设t=2,b=3,c=4,d=5,则下面语句输出的是( )。
Print3>2*b Or a=c And b<>c Or c>d
[1分]
答案:
17、【
单选题
】
软件生命周期可分为定义阶段,开发阶段和维护阶段。详细设计属于( )。
[1分]
、
定义阶段
、
开发阶段
、
维护阶段
、
上述三个阶段
答案:
18、【
单选题
】
算法的时间复杂度是指( )。
[1分]
、
算法的执行时间
、
算法所处理的数据量
、
算法程序中的语句或指令条数
、
算法在执行过程中所需要的基本运算次数
答案:
19、【
单选题
】
结构化程序设计的3种基本结构是( )。
[1分]
、
过程、子程序和分程序
、
顺序、选择和重复
、
递归、堆栈和队列
、
调用、返回和转移
答案:
20、【
单选题
】
若在窗体模块的声明部分声明了如下自定义类型和数组:
Private Type rec
Code As Integer
Caption As St ring
End Type
Dim art(5)As rec
则下面的输出语句中正确的是( )。
[1分]
、
Print arr.Code(2),art.Caption(2)
、
Print art.Code,arr.Caption
、
Print arr(2).Code,arr(2).Caption
、
Print Code(2),Caption(2)
答案:
21、【
单选题
】
默认情况下,下面声明的数组的元素个数是( )。
Dim(5,-2 To 2)
[1分]
答案:
22、【
单选题
】
下列描述不正确的是( .)。
[1分]
、
某个子过程中声明的局部变量,其使用范围仅限定于该子过程内
、
某个子过程中声明的局部变量,其生命周期仅限于该子过程被执行过程中
、
不同子过程中的局部变量可以具有相同的名称
、
不同子过程中具有相同的名称的局部变量是同一变量
答案:
23、【
单选题
】
请阅读程序:
Sub subP(b( )As Integer)
For i=1 To4
b(i)=2*i
Next i
End Sub
Private Sub Commandl Click( )
Dim a(1 To 4)As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a( )
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,则输出结果是( )。
[1分]
、
2
4
6
8
、
5
6
7
8
、
10
12
14
16
、
出错
答案:
24、【
单选题
】
设窗体上有一个名为List1的列表框,并编写下面的事件过程:
Private Sub List1_Click( )
Dim ch As String
ch=List1.List(List1.Listlndex)
List1.RemoveItem List1.Listlndex
List1.Addltem ch
End Sub
程序运行时,单击一个列表项,则产生的结果是( )。
[1分]
、
该列表项被移到列表的最前面
、
该列表项被删除
、
该列表项被移到列表的最后面
、
该列表项被删除后又在原位置插入
答案:
25、【
单选题
】
在窗体上画1个命令按钮,并编写如下事件过程:
private Sub Command1_Click( )
For i=5 To 1 Step-0.8
Print Int(i);
Next i
End Sub
运行程序,单击命令按钮,窗体上显示的内容为( )。
[1分]
、
5 4 3 2 1 1
、
5 4 3 2 1
、
4 3 2 1 1
、
4 4 3 2 1 1
答案:
26、【
单选题
】
数据库应用系统中的核心问题是( )。
[1分]
、
数据库设计
、
数据库系统设计
、
数据库维护
、
数据库管理员培训
答案:
27、【
单选题
】
下列( )标识符不能作为Visual Basic的变量名。
[1分]
、
ABCabe
、
bl234
、
28wed
、
crud
答案:
28、【
单选题
】
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能:
Private Sub Command l Click( )
Dim n%,k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List 1.Removeltem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为( )。
[1分]
、
For k=List1.ListCount-1 To 0 Step-1
、
For k=0 To List1.ListCount
、
For k=1 To List1.ListCount-1
、
For k=1 To List1.ListCount
答案:
29、【
单选题
】
阅读下面的程序段:
a==0
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+l
Next k
Next j
Next i
执行上面的程序段后,a的值为( )。
[1分]
答案:
30、【
单选题
】
单击命令按钮时,下列程序段的执行结果是( )。
Private Sub Command1 Click( )
Dim a As Integer,b As Integer,C As Integer
a=2:b=4:c=6
Call S1(a.b)
Print"a=";a;"b=";b;"c=";c
Call S2(a,b)
Print"a=";a;"b=";b;"c=";c;
End Sub
Private Sub S1(X.As Integer,Y As Integer)
Dim C As Integer
x=2*X:y=y+2:c=x+y
End Sub
Sub S2(x As Integer,ByVal Y As Integer)
Dim e As Integer
x=2*x:Y=Y+2:e=x+y
End Sub
[1分]
、
a=4 b=6 c=6
a=4 b=6 c=6
、
a=8 b=6 c=6
a=8 b=6 c=6
、
a=4 b=6 c=6
a=8 b=6 c=6
、
a=8 b=6 c=6
a=4 b=6 c=6
答案:
31、【
单选题
】
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是( )。
[1分]
、
Private Sub P1 MouseMove(Button As Integer,Shift As Integer,X As Single,Y
As Single)
Print X Y
End Sub
、
Private Sub P1 MouseDown(Button As Integer,Shift As Integer,X As Single,Y
As Single)
Picture.Print X,Y
End Sub
、
Private Sub P1 MouseMove(Button As Integer,Shift As Integer,X As Single,Y
As Single)
P1.Print X,Y
End Sub
、
Private Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y
As Single)
P1.Print X,Y
End Sub
答案:
32、【
单选题
】
有如下程序:
Option Base 1
Private Sub Command1 Click( )
Dim arr(10)
arr=Array(10,35,28,90,54,68,72,90)
For Eaeh a In arr
If a>50Then
Sum=Sum+a
End If
Next a
End Sub
运行上述程序时出现错误,错误之处是( )。
[1分]
、
数组定义语句不对,应改为Dim arr
、
没有指明For循环的终值
、
应在For语句之前增加Sum=0
、
Next a应改为Next
答案:
33、【
单选题
】
程序调试的任务是( )。
[1分]
、
设计测试用例
、
验证程序的正确性
、
发现程序中的错误
、
诊断和改正程序中的错误
答案:
34、【
单选题
】
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程:
Private Sub Command1 Click( )
X!=Val(Text1.Text)
Select Casc x
Case Is<-10,Is>=20
Print"输入错误"
Case Is<0
Print 20-x
Case Is<10
Print 20
Case Is<=20
Print x+10
End Seleet
End Sub
程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是( )。
[1分]
答案:
35、【
单选题
】
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:
Private Sub Command1 Click( )
Static x As Variant
n=0
x=Array(1,2,3,4,5,6,7,8,9,10)
While n<=4
x(n)=x(n+5)
Print x(n):
n=n+1
Wend
End Sub
运行程序,单击命令按钮Command1,窗体上显示的是( )。
[1分]
、
1 2 3 4 5
、
6 7 8 9 10
、
2 3 4 5 6
、
6 2 3 4 5
答案:
36、【
单选题
】
软件测试的目的是( )。
[1分]
、
评估软件可靠性
、
发现并改正程序中的错误
、
改正程序中的错误
、
发现程序中的错误
答案:
37、【
单选题
】
以下描述中错误的是( )。
[1分]
、
在多窗体应用程序中,可以有多个当前窗体
、
多窗体应用程序的启动窗体可以在设计时设定
、
多窗体应用程序中每个窗体作为一个磁盘文件保存
、
多窗体应用程序可以编译生成一个EXE文件
答案:
38、【
单选题
】
下列关于二叉树的叙述中,正确的是( )。
[1分]
、
叶子结点总是比度为2的结点少一个
、
叶子结点总是比度为2的结点多一个
、
叶子结点数是度为2的结点数的两倍
、
度为2的结点数是度为1的结点数的两倍
答案:
39、【
单选题
】
下面是求最大公约数的函数的首部:
Function gcd(ByVal X As Integer,ByVal y As Integer)As Integer
若要输出8、12、16这3个数的最大公约数,下面正确的语句是( )。
[1分]
、
Print gcd(8,12),gcd(12,16),gcd(16,8)
、
Print gcd(8,12,16)
、
Print gcd(8),gcd(12),gcd(16)
、
Print gcd(8,gcd(12,16))
答案:
40、【
单选题
】
滚动条可以响应的事件是( )。
[1分]
、
Load
、
Scroll
、
Click
、
MouseDown
答案: