试卷详情
-
二级VISUAL BASIC笔试-95
-
[填空题]有如下事件过程:
Private Sub Form Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 【14】 。
-
[填空题]下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。
Private Sub Form_Click( )
Dim i As Integer
Open 【9】 As #1
For i=1 To 10
Print #1 ,i
Next
Close #1
End Sub
-
[单项选择]InputBox函数返回值的类型为
A. 数值
B. 字符串
C. 变体
D. 数值或字符串
-
[单项选择]在单链表中,增加头结点的目的是
A. 方便运算的实现
B. 使单链表至少有一个结点
C. 标识表结点中首结点的位置
D. 说明单链表是线性表的链式存储实现
-
[单项选择]各种运算符间的优先顺序从高到低是
A. 比较运算符→算术运算符→逻辑运算符
B. 比较运算符→逻辑运算符→算术运算符
C. 算术运算符→比较运算符→逻辑运算符
D. 算术运算符→逻辑运算符→比较运算符
-
[单项选择]下面程序运行后的输出结果是
Private Sub Command1_Click( )
For j=1 To 10
If j Mod 3<>0 Then a=a+j/3
Next
Print a
End Sub
A. 20
B. 10
C. 3
D. 9
-
[单项选择]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如
Private Sub Command1_Click( )
CommonDialogl. Flags = vbOFNHideReadOnly
CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt
CommonDialogl. FilterIndex = 1
CommonDialogl. ShowOpen
MsgBox CommonDialogl. FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
A. All Files(*.*)
B. Text Files(*.txt)
C. Batch Files(*.bat)
D. All Files(*. *)
-
[单项选择]如果一个变量未经定义就直接使用,则该变量的类型为
A. Integer
B. Byte
C. Boolean
D. Variant
-
[单项选择]执行语句Open"C:/StuData.dat"For Input As #2后,系统
A. 将C盘当前文件夹下名为StuData.dat的文件的内容读入内存
B. 在C盘当前文件夹下建立名为StuData.dar的顺序文件
C. 将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中
D. 将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dar的文件中
-
[单项选择]如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是
A. Redim a As Integer
B. Static a As Integer
C. Publica As Integer
D. Dim a As Integer
-
[单项选择]下列程序执行后,变量a的值为
Dim a,b,C,d as single
a=100:b=20:c=1000
if b>a Then
d=a:a=b:b=d
End if
if c > a Then
d=b:b=c:c=d
End if
A. 0
B. 1000
C. 20
D. 100
-
[单项选择]设已经在“菜单编辑器”中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其“可见”属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是
A. Private Sub Form_MouseDown(Button As Integer,Shift As Integer,
B. Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,
C. Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
D. Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
-
[单项选择]软件工程的出现是由于
A. 程序设计方法学的影响
B. 软件产业化的需要
C. 软件危机的出现
D. 计算机的发展
-
[填空题]下列程序的功能是:将数据1,2,..,8写入顺序文件Num. txt中请补充完整。
Private Sub Form_Click ( )
Dim i As Integer
Open "Num. txt" For Output As #1
For i = 1 To 8
【13】
Next
Close #1
End Sub
-
[填空题]下面程序的功能是统计字符串中“i”的个数,请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub
-
[单项选择]软件开发离不开系统环境资源的支持,其中必要的测试数据属于
A. 硬件资源
B. 通信资源
C. 支持软件
D. 辅助资源
-
[单项选择]若要求从文本框中输入密码时在文本框中只显示“*”号,则应当在此文本框的属性窗口中设置
A. Text属性值为。
B. Caption属性值为。
C. password属性值为空
D. Passwordchar属性值为*
-
[单项选择]分布式数据库系统不具有的特点是
A. 数据分布性和逻辑整体性
B. 位置透明性和复制透明性
C. 分布性
D. 数据冗余
-
[单项选择]有如下一个函数过程:
Function Fun(a As Integer)
Static c
b=0:b=b+1:c=c+1
Fun=a+b+c
End Function
在窗体上添加一个命令按钮,事件过程如下:
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print Fun(
A. ;
-
[填空题]设有如下通用过程:
Public Sub Fun(a( ),ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程:
Private Sub Command1_Click( )
Dim arr(5)As variant
For i=1 To 5
arr(i)=i
Next
n=10
Call Fun(arr( ),n)
Text1.Text=n
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是 【8】 。
-
[单项选择]在数据流图(DFD) 中,带有名字的箭头表示
A. 模块之间的调用关系
B. 程序的组成成分
C. 控制程序的执行顺序
D. 数据的流向
-
[单项选择]假设线性表的长度为n,则在最坏情况下,冒泡排序需要的比较次数为
A. log2n
B. n2
C. On1.5
D. n(n-1)/2
-
[单项选择]线性表L=(a1,a2,a3,…ai,…an),下列说法正确的是
A. 每个元素都有一个直接前件和直接后件
B. 线性表中至少要有一个元素
C. 表中诸元素的排列顺序必须是由小到大或由大到小
D. 除第一个元素和最后一个元素外,其余每个元素都有一个且只有一个直接前件和直接后件
-
[单项选择]下列不属于Visual Basic特点的是
A. 对象的链接与嵌入
B. 结构化程序设计
C. 编写跨平台应用程序
D. 事件驱动程序编程机制
-
[单项选择]当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
A. Name
B. Enabled
C. Caption
D. Visible
-
[填空题] 【4】 是数据库设计的核心。
-
[单项选择]在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Private Sub Command1_Click( )
Dim a(5,5)
For i=1 To 3
For j=1 To 4
a(i,j)=i*j
Next
Next
For n=1 To2
For m = 1 To3
Print a(m,n);
Next
Next
End Sub
程序运行后,单击命令按钮,输出结果是
A. 2 4 6 1 2 3
B. 1 2 3 2 4 6
C. 1 2 3 4 5 6
D. 6 5 4 3 2 1
-
[单项选择]下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click( )
Dim x (10)As Integer,y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
-
[填空题]在算法正确的前提下,评价一个算法的两个标准是 【1】 。
-
[单项选择]下列各选项说法错误的一项是
A. 文件对话框可分为两种,即打开(Open)文件对话框和保存(Save As)文件对话框
B. 通用对话框的Name属性的默认值为CommonDialogX,此外,每种对话框都有自己的默认标题
C. 打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定一个文件,并以这个文件名保存当前文件
D. DefaultEXT属性和DialogTitle属性都是打开对话框的属性,但非保存对话框的属性
-
[填空题]如果存在如下过程:
Private Function Fun( a( ) As Integer)
Dim First As Integer, Last As Integer, i As Integer
First = LBound(a)
Last=UBound (a)
Max = a(First)
For i=First To Last
If a(i)>Max Then Max =a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c =Fun(m)
Print c
End Sub
单击命令按钮,其输出结果为 【10】 。
-
[单项选择]定义有5个整数型元素的数组,正确的语句是
A. Dim a(4)As Integer
B. Option Base 1:Dim a(5)
C. Dim a &(5)
D. Dime a(5)As Integer
-
[单项选择]下列事件过程运行后输出结果是
Private Sub Command1_Click( )
Print Formats(123,456,"###,##%")
End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
-
[填空题]下列程序的功能是:当x<50时,y =0.8 xx;当50≤x≤100时,y=0.7 xx;当x>100时,
Private Sub Command1_Click( )
Dim x As Single
x = InputBox("请输入x的值" )
Select Case x
Case Is<50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【12】
Print "输入数据出界!"
End Select
Print x, y
End Sub
-
[单项选择]在窗体模块中用Public定义的变量的作用范围是
A. 整个程序的所有模块中
B. 该窗体模块中
C. 标准模块中
D. 其他窗体模块中
-
[单项选择]以下用户自定义函数
Function Func(a As Integer, b As Integer) As Integer
Static m As Integer, i As Integer
m=0:i=2
i=i+m+i
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim k As Integer,m As Integer,p As Integer
k=4:m=1
P=Func(k,m)
Print p
End Sub
程序运行后,单击命令按钮,输出结果为
A. 8
B. 9
C. 10
D. 11
-
[填空题]下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,... ,90。请在空白处填入适当的内容,将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click( )
Dim Y As Single
Open 【15】
Y=3. 14159 / 180
For i=1 To 90
Ksc. K=i
Ksc. Sinx = Sin ( i * Y)
Ksc. Cosx = Cos ( i * Y)
Put #2, i, Ksc
Next i
Close #2
End Sub
-
[填空题]在KeyPress事件过程中,KeyAscii是所按键的 【7】 值。
-
[单项选择]算法分析的目的是
A. 找出数据结构的合理性
B. 找出算法中输入和输出之间的关系
C. 分析算法的易懂性和可靠性
D. 分析算法的效率以求改进
-
[单项选择]产生[10,27]之间的随机整数的Visual Basic表达式是
A. Int[(Rnd(1)*27)+10
B. Int(Rnd(1)*28)+10
C. Int(Rnd(1)*27)+11
D. Int(Rnd(1)*28)+11
-
[单项选择]下列数据模型中,具有坚实理论基础的是
A. 层次模型
B. 网状模型
C. 关系模型
D. 以上3个都是
-
[填空题]软件危机出现于60年代末,为了解决软件危机,人们提出了 【3】 的原理来设计软件,这就是软件工程诞生的基础。
-
[单项选择]单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click( )
Dim a As Integer, b As Integer, c As Integer
a=3:b :4:c =5
Print SecProc ( c, b,
-
[单项选择]为了在列表框中使用Ctrl和Shift键进行多个列表项的选择,应将列表框的Multi-select属性设置为
A. 0
B. 1
C. 2
D. 3
-
[填空题]在关系模型中,把数据看成一个二维表,每一个二维表称为一个 【5】 。
-
[填空题]在用通用对话框的ShowOpen显示“打开”文件对话框时,指定其中的文件类型为文本文件的格式为 【6】 。
-
[单项选择]关系表中的每一横行称为一个
A. 元组
B. 字段
C. 属性
D. 码
-
[单项选择]在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:
Private Sub TxtA_KeyPress(Keyascii as integer)
……
End Sub
若焦点位于文本框中,则能够触发KeyPress事件的操作是
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
-
[单项选择]在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。
Private Sub Form_Load( )
List1.AddItem "Item 1"
List1.AddItem "Item 2"
List1.AddItem "Item 3"
End Sub
Private Sub Command1_Click( )
List1.List(List1.Listcount)="AAAA"
End Sub
程序运行后,单击命令按钮,其结果为
A. 把字符串"AAAA"添加到列表框中,但位置不能确定
B. 把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C. 把列表框中原有的最后一项改为"AAAA"
D. 把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)