二级VISUAL BASIC笔试-366

试卷详情

二级VISUAL BASIC笔试-366
[单项选择]在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load（　）
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Command1_Click（　）
Text1.Text = Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]下列正确的Visual Basic注释语句是
A. Dim a(10)As Integer Rem这是一个VB程序
B. 这是一个VB程序
C. a=1:b=2:Rem这是一个VB程序：c=3
D. If Shift=6 And Button=2 Then
[单项选择]为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图宋代替传统的程序流程图，通常也将这种图称为
A. PAD图
B. N-S图
C. 结构图
D. 数据流图
[填空题]因为顺序栈的空间有限，因此在插入运算时，可能会发生【1】。
[填空题]在Visual Basic中，用于管理文件系统的3个控件是文件列表框、目录列表框和【10】。
[单项选择]为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效，必须将它的Style属性设置为
A. 0
B. 1
C. True
D. False
[单项选择]在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（　）
For i=1 To 4
If i=1 Then x=i
If i ＜= 4 Then x=x+1
Print x；
Next i
End Sub
程序运行后，单击命令按钮，其输出的结果为
A. 1 2 3 4
B. 2 3 4 5
C. 2 3 4 4
D. 3 4 5 6
[填空题]如果类C继承类B，类B继承类A，则类C继承类A，这说明继承具【3】。
[单项选择]有如下程序
Private Sub Command1_Click（　）
a = 100
Do
s=s+a
a=a+1
Loop While a＞120
Print a
End Sub
程序运行后，单击命令按钮，其输出的结果为
A. 100
B. 120
C. 201
D. 101
[填空题]有下列程序：
Private Sub Command1_Click（　）
Dim i As Integer
Dim arrY(5)As Integer
For i = 0 To 4
arrY (i) = 5
Next i
Dim arrZ(5)As String
For i = 0 To 4
arrZ(i)= "hello"
Next i
Dim arrX(2)AS Variant
arrX(1)=arrY（　）
arrX(2)=arr2（　）
Text1.Text=arrX(1) (2)
Text2.Text=arrX(2) (3)
End Sub
程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是【14】和【15】。
[单项选择]设s=8，t=7，x=6，y=5，下列表达式的值是
4＞3 * t Or s = x And t ＜＞ x Or x ＞ y
A. 1
B. True
C. False
D. 2
[填空题]启动窗体在“工程属性”对话框中指定，为了打开该对话框，应执行【7】菜单中的【8】命令。
[单项选择]在一棵二叉树上第8层的结点数最多是
A. 8
B. 16
C. 128
D. 256
[单项选择]对采用二分查找法进行查找运算的查找表，要求按 ______ 方式进行存储。
A. 顺序存储
B. 链式存储
C. 顺序存储且结点按关键字有序
D. 链式存储且结点按关键字有序
[填空题]数据库管理系统常见的数据模型有层次模型、网状模型和【5】 3种。
[单项选择]阅读下列程序：
Function func(n As Integer)As Integer
Sum = 0
For i = 1 To n
Sum = Sum + (i + 1)* i
Next i
func = Sum
End Function.
Private Sub Command1_Click （　）
Dim a As Integer
a= 5
s = func (
A. 60
B. 70
C. 15
[单项选择]设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是
A. Text1.MaxLength=0
B. Text1.Enabled=False
C. Text1.Text=False
D. Text1.Index=0
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（　）
Dim i As Integer
Dim sum As Integer
Dim sum1 As Integer
Dim a(1 To 20)，x
For i = 1 To 10
a(i)=i
Next i
For Each x In a
If x Mod 2 = 0 Then
sum1=sum1+x
Else
sum = sum+x
End If
Next x
Print sum；sum1
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A. 25 30
B. 10 20
C. 20 30
D. 1 10
[填空题]下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。
Option Base 1
Private Sub form_Click（　）
Dim k As Integer
Dim Total As Integer
Dim n
n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For k = 1 To UBound(n)
If 【13】 Then
Total = Total + n(k)
End If
Next k
Print Total
End Sub
[单项选择]软件测试中根据测试用例设计方法的不同可分为黑盒测试和白盒测试，它们
A. 前者属于静态测试，后者属于动态测试
B. 前者属于动态测试，后者属于静态测试
C. 都属于静态测试
D. 都属于动态测试
[单项选择]当用鼠标左键单击窗体(Form1)时所发生的事件是
A. Load1_Click
B. Load_Click
C. Form1_Click
D. Form_Click
[单项选择]用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是
A. List
B. ListIndex
C. Text
D. ListCount
[单项选择]数据库中对全部数据的整体逻辑结构的描述，作为数据库的
A. 内模式
B. 外模式
C. 概念模式
D. 子模式
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（　）
Static a As Integer，b As Integer
Cls
b = b + 3
a = a + b
Print a，b
End Sub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为
A. 8 16
B. 6 6
C. 15 18
D. 18 9
[单项选择]下列描述中不是链表优点的是
A. 逻辑上相邻的结点物理上不必相邻
B. 插入、删除运算操作方便，不必移动结点
C. 所需存储空间比线性表节省
D. 无需事先估计存储空间的大小
[填空题]设一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为【2】。
[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String *20
End Type
Private Sub Command1_Click（　）
Dim Maxsize, NextChar, MyChar
Open "d:/temp/female.txt" For Input As #1
Maxsize = LOF(1)
For NextChar = Maxsize To 1 Step -1
Seek #1, NextChar
MyChar = Input(1, #1)
Next NextChar
Print EOF(I)
Close 31
End Sub
程序运行后，单击命令按钮，其输出的结果为
A. True
B. False
C. 0
D. Null
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（　）
Dim x As Integer, y As Integer
x = 6: y = 7
Do
y = y - x
Debug. Print y;
x=x+1
Loop While x＜= 0
Print y; x
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A. 7 9
B. 34 0
C. 1 7
D. 死笔循环
[填空题]能判断是否到达文件尾的函数是【12】。
[单项选择]Visual Basic程序中语句行的续行符是
[单项选择]下面叙述中正确的是
A. Spc函数既能用于Print方法，也能用于表达式
B. Space函数既能用于Print方法，也能用于表达式
C. Spc函数与Space函数均生成空格，没有区别
D. 以上说法均不对
[单项选择]下列4个表达式中，其中一个值与其他3个大小不同的是
A. 15
B. &HA
C. 1111
D. &O17
[单项选择]变量未赋值时，数值型变量的值为0，字符串变量的值为
A. False
B. 空串" "
C. Null
D. 没任何值
[单项选择]在窗体上画一个按钮，然后再复制5个，形成名称为Command1的6个控件数组，删除其中Index=4的一个。有下列程序：
Private Sub Command1_Click(Index As Integer)
Print Command1.Count；
Print Command1.LBound；
Print Command1.UBound；
End Sub
程序运行后，单击任一命令按钮，则窗体上显示的内容是
A. 0 0 0
B. 5 0 5
C. 4 0 4
D. 4 1 5
[单项选择]在以下事件中，Private表示
Private Sub sub1(x As Integer，y As Integer)
...
End Sub
A. 此过程可以被其他过程调用
B. 此过程只可以被本窗体模块中的其他过程调用
C. 此过程不可以被任何其他过程调用
D. 此过程只可以被本工程中的其他过程调用
[填空题]为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须将该图像框的Stretch属性设置为【11】。
[单项选择]为了使窗体的大小可以改变，必须将它的BorderStyle属性设置为
A. 1
B. 2
C. 3
D. 4
[单项选择]设关系R是4元关系，关系S是一个5元关系，关系T是R与S的笛卡儿积，即T=R×S，则关系T是 ______ 元关系。
A. 9
B. 11
C. 20
D. 40
[单项选择]在下列选项中，不是算法一般应该具有的基本特征的是
A. 确定性
B. 可行性
C. 无穷性
D. 拥有足够的情报
[单项选择]如果文本框的Enabled属性被设置为False，则运行时
A. 文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上
B. 文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C. 文本框中的文本将变成灰色，用户仍然能改变文本框中的内容
D. 文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容
[填空题]一个控件在窗体上的位置由【6】属性决定，其大小由Width和Height属性决定。
[填空题]以下程序用宋输出20个在开区间(10，87)中的随机整数R，每行输出4个整数。请完善下列程序。
Private Sub Command1_Click（　）
For I = 1 To 10
R = 【9】
Print R；
If I Mod 4=0 Then Print
Next I
End Sub
[填空题]一个模块被多个模块调用，调用这个模块的模块个数称为【4】。
[单项选择]结构化程序设计的3种基本控制结构是
A. 过程、子程序和分程序
B. 顺序、选择和重复
C. 递归、堆栈和队列
D. 调用、返回和转移
[单项选择]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Command1，然后编写如下两个事件过程：
Private Sub Command1_Click（　）
strText=InputBox("请输入")
Text1.Text=strText
End Sub
Private Sub Text1_Change（　）
Labell.Caption=Right(Trim(Text1.Text)，3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入Visual，则在标签中显示的内容是
A. 空
B. Visual
C. Vis
D. ual
[单项选择]编写如下事件过程：
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i＞= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click（　）
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A. rehcaet
B. tahreee
C. themee
D. eerthea
[单项选择]执行以下Command1的Click事件过程，在窗体上显示
Option Base 0
Private Sub Command1_Click（　）
Dim a
a = Array("a", "b", "c", "d", "e", "f", "g")
Print a(1); a(3); a(5)
End Sub
A. abc
B. bdf
C. ace
D. 出错
[单项选择]在排序方法中，将整个无序序列分割成若干小的子序列并分别进行排序的方法，称为
A. 希尔排序
B. 冒泡排序
C. 插入排序
D. 选择排序