- 相关推荐
2017计算机vb考试题库
一、选择题
1、任何控件都有的属性是( )。
A.BackColor
B.Caption
C.Name
D.BorderStyle
2、设计数据库的存储结构属于( )
A.需求分析
B.概念设计
C.逻辑设计
D.物理设计
3、某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是( )。
A.在工程属性对话框中把"启动对象"设置为Form2
B.在Forml 的Load 事件过程中加入语句Load Form2
C.在Form2的Load 事件过程中加入语句Form2.Show
D.把Form2的TabIndex 属性设置为l ，把Form1的TabIndex 属性设置为2
4、设有如下通用过程：
Public Function Fun(xStr As Stri ng)As Stri ng
Di mt Str As Stri ng ，strLAs Integer
tStF=""
strL=Len(xStr)
i =1 Do While i <=strL/2
tStr =Tstr &Mid(xStr ，i ，1)&Mid(xStr ，strL-i+1，1)
i =i +l
Loop
Fun =tStr
End Function
在窗体上画一个名称为Co mmand1的命令按钮。然后编写如下的事件过程：
Private Sub Co mmandI_Click()
Di mS1As Stri ng
S1="abedef"
Pri m UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
5、下列关于栈的描述正确的是( )。
A.在栈中只能插入元素而不能删除元素
B.在栈中只能删除元素而不能插入元素
C.栈是特殊的线性表，只能在一端插入或删除元素
D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素
6、下列程序段的运行结果是( )。
Sub sele( )
Di mn As Integer
i =21：n =3
Do While i >n
i =i -n
Loop
Print i
End Sub
A.2
B.4
C.5
D.3
7、复选框的Value 属性为0时，表示该复选框( )。
A.未被选中
B.被选中
C.框内有灰色的勾
D.操作有误
8、在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(见图)。下面能实现此功能的事件过程是( )。
A.Private Sub Check1_Click(Index As Integer)
Text1.Text =""
For k =0To 3
If Check1(k).value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格 End If Next k
End Sub
B.Private Sub Check1_Click(Index As Integer)
For k =0To 3
If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格
End If
Next k
End Sub
C.Private Sub Check1_Click(Index As Integer)
Text1.Text ="" For k =0To 3 If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(Index).Caption &""双引号中是空格
End If
Next k
End Sub
D.Private Sub Check1_Click(Index As Integer)
Text1.Text ="" For k =0To 3
If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格
Exit For
End If
Next k
End Sub
9、在窗体上添加一个命令按钮，名为Co mmand1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出
( )。
For i =1To 4
For j=1To 3
x=3
For k =1To 2
x=x+3
Next k
Next j
Next i
Textl .Text =Str(x)
A.3
B.6
C.9
D.12
10、下列关于Sub 过程的叙述正确的是( )。
A.一个Sub 过程必须有一个Exit Sub 语句
B.一个Sub 过程必须有一个End Sub 语句
C.在Sub 过程中可以定义一个Function 过程
D.可以用Goto 语句退出Sub 过程
11、下列叙述中正确的是( )。
A.在窗体的Form_Load 事件过程中定义的变量是全局变量
B.局部变量的作用域可以超出所定义的过程
C.在某个Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.在调用过程时，所有局部变量被系统初始化为0或空字符串
12、编写如下两个事件过程：
Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift 键也未锁定大写键时)运行程序，如果按键盘上的"A"键，则程序输出的结果是( )。
A.A
a
B.a
A
C.A
A
D.a
a
13、在窗体上画一个命令按钮，名称为Co mmand1，然后编写下列代码：
Option Base 0
Private Sub Co mmand1_Click()
Di m A1(4)As Integer ，A2(4)As Integer
For k =0To 2
A1(k +1)=InputBox("请输入一个整数")
A2(3-k)=A1(k +1)
Next k Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为( )。
A.0
B.1
C.2
D.3
14、下面语句正确的是( )。
A.If x<3*y and="" x="">y Then y =x^3
B.If x<3*y and="" x="">y Then y =3x
C.If x<3*y x="">y Then y =x^3
D.If x<3*y and="" x="">y Then y =x**3
15、下面程序的输出结果是( )。
Private Sub Co mmand1_Click()
Ch$="ABCDEF"
proc ch ：Print ch
End Sub
Private Sub proc(ch As Stri ng)
s =""
For k =Len(ch)To 1Step -1
s =s &Mid(ch ，k ，1)
Next k
ch =s
End Sub
A.ABCDEF
B.FEDCBA
C.A
D.F
16、语句Di ma(-3To 4，3To 6)As Integer 定义的数组元素个数是( )。
A.18
B.28
C.21
D.32
17、以下叙述中错误的是( )。
A.一个工程中只能有一个Sub Main 过程
B.窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体
C.窗体的Hide 方法和Unload 方法的作用完全相同
D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
18、在窗体上先后画2个图片框，名称分别为Picture1和banana，banana 中添加了香蕉图片，如图1所示，且将banana.Drag Mode 属性设置为1。要求程序运行时，可以用鼠标把banana 拖拽到Picture1中，如图2所示。能实现此功能的事件过程是( )。
A.Private Sub Form_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
banana . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
B.Private Sub banana_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture 1 . Top +Y
End Sub
C.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
D.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
banana . Move banana . Left +X，banana . Top +Y
End Sub
19、用Print 方法在Forml 窗体中显示出4个#号的正确代码为( )。
A.Debug .Print"####"
B.Print"####"
C.Forml-Print"####"
D.Forml .Print"####"
20、一个模块内部各个元素彼此结合的紧密程度的度量称为( )
A.耦合性
B.内聚性
C.复杂性
D.数据传输特性
21、函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Si nx As Si ngle
Cosx As Si ngle
End Type
Private Sub Form_Click()
Di m Y As Si ngle
Di mi As Integer
Di m Ksc As Ang
Open ____________
Y =3.14159/180
For i =1To 90
Ksc .K =i
Ksc .Si nx=Si n(i*Y)
Ksc .Cosx=Cos(i +Y)
________
Next i
Close #2
Elld Stub
A."..Datal .txt"For Rando mAs #1Len =10 Put #1，i ，Ksc
B."..Datal .txt"For Rando m As #1Len =10 Put #1，Y ，Ksc
C."..Datal .txt"For Rando m As #1 Put #1，i ，Ksc
D."..Datal .txt"For Rando m As #1 Put #1，Y ，Ksc
22、下列程序运行时输出的结果是( )。
Option Base 1
Const a=10
Private Sub Form_Click0
Di mx(a)As Integer
k =-1
For i =1To a
x(i)=i*k
k =(-1)*k
Next i
For i =1To 10
Print x(i)
Next i
End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
23、某人为计算n!(O
Private Function fun(n As Integer)As Long
Di m P As Long
P=l
For k =n -1To 2Step -1
p =p*k
Next k
fun =p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是( )。
A.把p =1改为p =11
B.把For k =n -1To 2Step -1改为For k =1To n -1
C.把For k =n -1To 2Step -1改为For k =1To n
D.把Fo rk --n -1To 2Step -1改为For k =2To n
24、要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是( )。
A.设置BorderStyle 的值为Fi xed Tool Wi ndow
B.设置BorderStyle 的值为Sizable Tool Wi ndow
C.设置BorderStyle 的值为Fi xed Dialog
D.设置BorderStyle 的值为Sizable
25、设在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)
Const Alt =4
Const Key_F2=&H71
altdown %=(Shift And Alt)>0
f2down %=(KeyCode =Key_F2)
If altdown %And f2down %Then
Text1.Text ="abl"
End If
End Sub
程序运行后，清除文本框中原有内容，如果按Shift +F2键，则在文本框中显示的是( )。
A.Alt +F2
B.abl
C.随机出几个数
D.不发生变化
26、在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Co mmand1)，然后编写下列事件过程：
Private Sub Co mmand1_Click()
x=0
DO While x<50
x=(x+2)*(x+3)
n =n +l
Loop
Text1.Text =Str(n)
Text2.Text =Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )。
A.1和0
B.2和72
C.3和50
D.4和168
27、下列叙述中错误的是( )。
A.软件测试的目的是发现错误并改正错误
B.对被调试的程序进行"错误定位"是程序调试的必要步骤
C.程序调试通常也称为Debug
D.软件测试应严格执行测试计划，排除测试的随意性
28、一个工程必须包含的文件的类型是( )。
A.*.vbp*.frm*.frx
B.*.vbp*.cls*.bas
C.*.bas*.ocx*.res
D.*.frm*.cls*.bas
29、在文本框中输入字符时，通过( )事件过程可以得到字符的ASCII 码值。
A.Change
B.GotFocus
C.KeyPress
D.LostFocus
30、在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是( )。
A.并
B.交
C.投影
D.笛卡儿乘积
31、有两个关系R ，S 如下：
由关系R 通过运算得到关系S，则所使用的运算为( )。
A.选择
B.投影
C.插入
D.连接
32、一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再一次出栈，则元素出栈的顺序是( )。
A.12345ABCDE
B.EDCBA54321
C.ABCDEl2345
D.54321EDCBA
33、在窗体上建立通用对话框需要添加的控件是( )。
A.Data 控件
B.Form 控件
C.Co mmonDialog 控件
D.VBComboBox 控件
34、在窗体上画2个命令按钮，名称分别为Co mmand1、Co mmand2，然后编写下列事件过程。
Const n =5，m=4
Di ma(m，n)
Private Sub Co mmand1_Click()
k =1
For i =1To m
For j=1To n
a(i ，j)=k
k =k +1
Next j
Next i
End Sub
Private Sub Co mmand2_Click()
summ=0
For i =1To m
For j=1To n
If i =1Or i =m Then
summ=summ+a(i ，j)
Else
If j=1Or j=n Then
summ=summ+a(i ，j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click()的作用是在二维数组a 中存放1个m 行n 列的矩阵;过程Command2_Click()的作用是( )。
A.计算矩阵外围一圈元素的累加和
B.计算矩阵除外围一圈以外的所有元素的累加和
C.计算矩阵第1列和最后一列元素的累加和
D.计算矩阵第1行和最后一行元素的累加和
35、下列关于复选框的说法，正确的是( )。
A.复选框的Enabled 属性用于决定该复选框是否可见
B.复选框的Value 属性用于决定该复选框是否被选中
C.复选框的Tabi ndex 属性用于决定该复选框在控件数组中的序号
D.复选框的Visi ble 属性用于决定该复选框是否可用
36、按照"后进先出"原则组织数据的数据结构是( )。
A.队列
B.栈
C.双向链表
D.二叉树
37、当一个复选框被选中时，它的Value 属性的值是( )。
A.3
B.2
C.1
D.0
38、已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下：
Option Base 1
Private Sub Co mmand1_Click( )
Di msum As Integer
Sum=0
For i =1To 4
For j=1To 3
Sum=sum+score(i ，j)
Next j
Print "第"&i &"个学生的总分是：";sum Next i
End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是( )。
A.把外层循环语句For i =1TO 4改为For i =1To 3内层循环语句For j=1TO 3改为For j=1TO 4
B.把sum=0移到For i =1TO 4和For j =1TO 3之间
C.把sum=sum+score(i ，j)改为sum=sum+score(j，i)
D.把sum=sum+score(i ，j)改为sum=score(i ，j)
39、设有数组定义语句：Di ma(5)As Integer ，List1为列表框控件。下列给数组元素赋值的语句错误的是( )。
A.a(3)=3
B.a(3)=InputBox("i nput data")
C.a(3)=List1.ListIndex
D.a=Array(1，2，3，4，5，6)
40、下列( )标识符不能作为Visual Basic 的变量名。
A.ABCabe
B.b1234
C.28wed
D.crud
【计算机vb考试题库】相关文章：
2017计算机二级VB考试试题07-17
计算机应用考试题库201607-17
计算机等级考试二级VB模拟试题及答案09-18
2017年计算机统考试题题库及答案03-29
2024计算机一级考试题库06-28
计算机二级考试《VB》第二章复习重点09-05
计算机一级考试题库操作题04-10
计算机应用基础模拟试题题库11-18