试卷详情
-
二级VISUAL BASIC笔试-151
-
[单项选择]以下能够正确退出循环的是( )。
A. i=10
B. i=1
C. i=10
D. i=1
-
[填空题]队列是限定在表的一端进行插入和在另一端进行删除操作的线性表。允许删除的一端称作______。
-
[单项选择]在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6,KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为( )。
A. a
B. A
C. aaaaaa
D. AAAAAA
-
[单项选择]关于自定义数据类型,下面叙述中不正确的是( )。
A. 自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明
B. 在窗体模块中定义自定义数据类型时必须使用Private关键字
C. 自定义数据类型只能在窗体模块的通用声明段进行声明
D. 自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型
-
[单项选择]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:
Private Sub Command1_Click( )
Dim i As Integer,n As Integer
For i=0 To 50
i=j+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的是( )。
A. 2
B. 3
C. 4
D. 5
-
[单项选择]数据独立性是数据库技术的重要特点之。所谓数据独立性是指( )。
A. 数据与程序独立存放
B. 不同的数据被存放在不同的文件中
C. 不同的数据只能被对应的应用程序所使用
D. 以上三种说法都不对
-
[单项选择]软件调试的目的是( )。
A. 发现错误
B. 改善软件的性能
C. 改正错误
D. 验证软件的正确性
-
[单项选择]设x=4,y=8,z=7,则以下表达式的运算结果是( )。
x<y And(Not y>z)Or z<x
A. 1
B. -1
C. True
D. False
-
[单项选择]下列数据结构中,能用二分法进行查找的是( )。
A. 无序线性表
B. 线性链表
C. 二叉链表
D. 顺序存储的有序表
-
[填空题]引用列表框(List1)最后一个列表项应使用的语句是______。
-
[单项选择]为了使模块尽可能独立,要求( )。
A. 内聚程度要尽量高,耦合程度要尽量强
B. 内聚程度要尽量高,耦合程度要尽量弱
C. 内聚程度要尽量低,耦合程度要尽量弱
D. 内聚程度要尽最低,耦合程度要尽量强
-
[单项选择]设有如下程序:
Option Base ( )
Private Sub Form_Click( )
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
-
[单项选择]下列程序在运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click( )
Dim x(10)
For i=1 To 10
x(i)=10-i+1
Next i
For i=10 To 1 Step-2
Print x(i)
Next i
End Sub
A. 1 3 5 7 9
B. 9 7 5 3 1
C. 1 2 3 4 5 6 7 8 9 10
D. 10 9 8 7 6 5 4 3 2 1
-
[单项选择]在学校中,“班级”与“学生”两个实体集之间的联系属于( )关系。
A. 一对一
B. 一对多
C. 多对一
D. 多对多
-
[单项选择]下列叙述中,不属于设计准则的是( )。
A. 提高模块独立性
B. 使模块的作用域在该模块的控制域中
C. 设计成多入口、多出口模块
D. 设计功能可预测的模块
-
[单项选择]将文本框的( )属性设置为True时,文本框可以输入或显示多行文本,且会自动 换行。
A. Text
B. ScrollBars
C. MultiLine
D. Enabled
-
[单项选择]编写如下事件过程:
Private Sub Form Activate( )
Dim score(1 To 3) As Integer
Dim i As Integer,t As Variant
For i=3 To 1 Step-l
score(i)=2*i
Next i
For Each t In score
Print t;
Next
End Sub
程序运行后窗体上显示( )。
A. 6 4 2
B. 2 4 6
C. 2
D. 6
-
[单项选择]在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。
A. Private Sub Text1_Change()
B. Private Sub Command1_Click()
C. Private Sub Form1_Click()
D. Private Sub Command1_Click()
-
[填空题]在E-R图中,矩形表示______。
-
[单项选择]下列选项中不属于软件生命周期开发阶段任务的是( )。
A. 软件测试
B. 概要设计
C. 软件维护
D. 详细设计
-
[填空题]在关系模型中,若属性A是关系R的主码,属性A的取值不能为空,称为______ 约束。
-
[填空题]在窗体上有一个名称为Label1的标签和一个名称为Timer1的计时器,并编写有如下几个事件过程:
Private Sub Form Load( )
Timer1.Enabled=False
Timer1.Interval=______
End Sub
Private Sub Form_Click( )
Timer1.Enabled=______
End Sub
Private Sub Timer1_Timer( )
Label1.Caption=______
End Sub
程序运行后,单击窗体,将在标签中显示当前时间,每隔1s钟变换一次,请填空。
-
[单项选择]以下( )对象不能作为容器。
A. Frame
B. From
C. PictureBox
D. Image
-
[单项选择]以下事件过程的功能是:从已存在于磁盘上的顺序文件Num1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件Num2.txt中。则在以下横线处合适的语句是( )。
Private Sub Form_Click( )
Dim x As Single,y As Single
Open "Num1.txt" For Input As #1
Open "Num2.txt" For Output As #2
Do While Not EOF(1)
______
Print x
y=x^2
Print y
Loop
Close #1,#2
End Sub
A. Input #1,y Print#2,x,y
B. Input #2,x Print #1,x,y
C. Print #1,x Input#2,x,y
D. Input #1,x Print #2,x,y
-
[填空题]以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n)的一维数组中,请填写空白处,完成该程序。
Option Base 1
Private Sub Command1_Click( )
Dim a(1 To 4,1 To 5):Dim b( )
ReDim______
For i=1 To 4
For j=1 To 5
a(i,j)=i*j
Next j
Next i
Call Transf(a,4,5,B)
End Sub
Sub Transf(a( ),m,n,b( ))
Dim x As Integer
x=1
For i=1 To m
For j=1 To n
b(x)=______
x=x+1
Next j
Next i
End Sub
-
[单项选择]设a是整型变量,与函数IIf(a>0,-a,
A. 有相同结果的代数式是( )。A)
B. -
C. a
D. -a
-
[单项选择]对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是( )。
A. 冒泡排序为n(n-1)/2
B. 简单插入排序为n
C. 希尔排序为n
D. 快速排序为n/2
-
[单项选择]用Line Input语句从顺序文件读出数据时,每次读出一行数据。所谓一行是指遇到( )分隔符,即认为一行的结束。
A. 文件结束符
B. 回车符
C. 空格
D. Tab字符
-
[单项选择]下列队列的描述中,正确的是( )。
A. 队列属于非线性表
B. 队列在队尾删除数据
C. 队列按“先进后出”进行数据操作
D. 队列按“先进先出”进行数据操作
-
[单项选择]以下对文件分类的划分不正确的是( )。
A. 文件分为程序文件和数据文件
B. 文件分为有结构文件和无结构文件
C. 文件分为ASCII文件和二进制文件
D. 文件分为顺序文件和随机文件
-
[单项选择]在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:
Private Sub Command1_Click( )
Dim rec As animal
Open "c:/vbTest.dat" For Random As #1 Len=Len(ree)
rec.animalName="cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
记录类型定义如下:
Private Type animal
animalName As String*20
aColor As String*10
End Type
下列叙述中正确的是( )。
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B. 如果文件c:/vbTest.dat不存在,则Open命令执行失败
C. 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D. 语句“Put #1,,rec”将animal类型的两个数据元素写到文件中
-
[单项选择]设有如下通用过程:
Public Sub Fun(a( ) As Integer,x As Integer)
For i=1 To 4
x=x*a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim arr(5)As Integer,n As Integer
n=1
For i=1 To 4
arr(i)=i+i
Next
Fun arr,n
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是( )。
A. 30
B. 25
C. 20
D. 15
-
[单项选择]8.6787E+8写成普通的十进制数是( )。
A. 86787000
B. 867870000
C. 8678700
D. 8678700000
-
[单项选择]下列程序的执行结果为( )。
n=0
j=1
Do Until n>2
n=n+1:j=j+n*(n+1)
Loop
Print n;j
A. 0 1
B. 3 7
C. 3 21
D. 3 13
-
[填空题]在面向对象方法中,类的实例称为______。
-
[单项选择]窗体上命令按钮Command1的事件过程如下:
Option Base 1
Private Sub Command1_Click( )
Dim a(4,4)As Variant
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(i,j)
Next j
Next i
End Sub
该程序执行后,输出结果是( )。
A. 9
B. 7
C. 9
D. 8
-
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drive1、Dir1和File1,为了使它们同步操作,必须触发______事件和______事件,在这两个事件中执行的语句分别为______和______。
-
[填空题]符合结构化原则的三种基本控制结构是顺序结构、______和循环结构。
-
[单项选择]下列程序段的执行结果为( )。
x=Int(Rnd+3)
Select Case x
Case 5
Print "A Row"
Case 4
Print "B Row"
Case 3
Print "C Row"
Case Else
Print "D Row"
End Select
A. A ROW
B. B Row
C. C ROW
D. D Row
-
[单项选择]在窗体上画一个名称为Text1的文本框,然后画一个名称为Hscroll1的滚动条,其Min和Max属性分别为0和1000。程序运行后,如果移动滑块,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。
A. Private Sub Hscroll1_Change()
B. Private Sub Hscroll1_Click()
C. Private Sub Hscroll1_Change()
D. Private Sub Hscroll1_Click()
-
[单项选择]下列程序执行后,其输出结果为( )。
Dim a(5)
For i=0 To 4
a(i)=i+1
m=i+1
If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3)
a(4)=i
Print a(i);
Next i
A. 1 1 1 4 4
B. 1 2 3 4 1
C. 1 2 1 4 4
D. 1 1 1 4 1
-
[单项选择]运行下列程序时,输出的结果是( )。
Private Sub Form_Click( )
Dim x
x=Array("Software","and","Hardware","System")
For i=LBound(x,1)To UBound(x,1)
If Left(x(i),1)="S" Then Print x(i);
Next i
End Sub
A. Software
B. SoftwareSystem
C. 出错信息
D. SoftwareandHardwareSystem