试卷详情
-
二级VISUAL BASIC笔试-402
-
[单项选择]在程序运行时,下面的叙述中正确的是______。
A. 用鼠标右键单击窗体中无控件的部分,会执行窗体的Form_Load事件过程
B. 用鼠标左键单击窗体的标题栏,会执行窗体的Form_Click事件过程
C. 只装入而不显示窗体,也会执行窗体的Form_Load事件过程
D. 装入窗体后,每次显示该窗体时,都会执行窗体的Form_Click事件过程
-
[单项选择]执行如下两条语句后,窗体上显示的是______。
a=9.8596
Print Format(a,"$00 ,00.00")
A. 0,009.86
B. $9.68
C. 9.68
D. $ 00,09.86
-
[单项选择]若在某窗体模块中有如下事件过程:
Private Sub Command1_Click(Index As Integer)
End Sub
则以下叙述中正确的是______。
A. 此事件过程与不带参数的事件过程没有区别
B. 有一个名称为Command1的窗体,单击此窗体则执行此事件过程
C. 有一个名称为Command1的控件数组,数组中有多个不同类型控件
D. 有一个名称为Command1的控件数组,数组中有多个相同类型控件
-
[填空题]在最坏情况下,简单插入排序需要______次比较。
-
[填空题]设窗体上有一个名称为Combo1的组合框,并有以下程序:
Private Sub ComboLKeyPress(KeyAscii As Integer)
If (7) =13 Then 回车符的ASCⅡ码是13
For k=0 To (8) -1
If Combo1.Text=Combo1.List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1.Text<>" "Then
Combo1.AddItem (9)
End If
End If
End Sub
程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中的文本添加到列表的尾部。请填空。
-
[单项选择]以下能够触发文本框Change事件的操作是______。
A. 文本框失去焦点
B. 文本框获得焦点
C. 当文本框不可用时
D. 改变文本框的内容
-
[单项选择]下面程序段执行结果为______。
x=Int(Rnd( )+4)
Select Case x
Case 5
Print "excellent"
Case 4
Print "good"
Case 3
Print "pass"
Case Else
Print "fail"
End Select
A. excellent
B. good
C. pass
D. fall
-
[单项选择]如果一个变量未经定义就直接使用,则该变量的类型为______。
A. Integer
B. Byte
C. Boolean
D. Variant
-
[填空题]设有如下的记录类型:
Dim stul as student
Type student
number As String
name As String
age As Integer
End Type
则引用该记录成员number的代码是______。
-
[单项选择]在结构化程序设计中,模块划分的原则是______。
A. 各模块应包括尽量多的功能
B. 各模块的规模应尽量大
C. 各模块之间的联系应尽量紧密
D. 模块内具有高内聚度、模块间具有低耦合度
-
[填空题]假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体隐藏,显示窗体Form2,请将下面的程序补充完整。
Private Sub Command1_Click( )
Form1. (11)
Form2. (12)
End Sub
-
[单项选择]窗体文件的扩展名是______。
A. .bas
B. .cls
C. .frm
D. .res
-
[填空题]描述"X是小于500的非负整数"的Visual Basic表达式是______。
-
[单项选择]下列叙述中正确的是______。
A. 数据的逻辑结构与存储结构是一一对应的
B. 算法的时间复杂度与空间复杂度一定相关
C. 算法的效率只与问题的规模有关,而与数据的存储结构无关
D. 算法的时间复杂度是指执行算法所需要的计算工作量
-
[单项选择]设有如下通用过程:
Public Function Fun(xStr As String) As String
Dim tStr As String,strL As Integer
tStr=" "
strL=Len(xStr)
i=1
Do While i<=strL/2
tStr=tStr& Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click( )
Dim S1 As String
S1="abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是______。
A. abcdef
B. AFBECD
C. ABCDEF
D. DEFABC
-
[单项选择]执行以下程序段
a $="Visual Basic Programming"
b $="C++"
c $=UCase(Left $(a $,7))&b $ &Right$(a $ ,12)
后,变量c $的值为______。
A. Visual BASIC Programming
B. VISUAL BASIC Programming
C. Visual C++Programming
D. VISUAL C++Programming
-
[单项选择]在E-R图中,用来表示实体的图形是______。
A. 矩形
B. 椭圆形
C. 菱形
D. 三角形
-
[单项选择]在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下程序:
Dim S1 As String,S2 As String
Private Sub Form Load( )
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2& Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Private Sub Command1_Click( )
Text1.Text=S1
Text2.Text=S2
S1=" "
S2=" "
End Sub
程序运行后,先后按a、b、c键,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为______。
A. 空白
B. abc和ABC
C. 出错
D. ABC和abc
-
[单项选择]下列数据结构中,属于非线性结构的是______。
A. 带链队列
B. 循环队列
C. 带链栈
D. 二叉树
-
[单项选择]已知有下面过程:
Private Sub procl(a As Integer,b As String,Optional x As Boolean)
End Sub
正确调用此过程的语句是______。
A. Call procl(3)
B. Call procl 3,"xyz" ,True
C. procl(5,"xyz" ,False)
D. procl 12,"xyz/
-
[单项选择]有以下程序:
Option Base 1
Dim arr( ) As Integer
Private Sub Form_Click( )
Dim i As Integer,j As Integer
ReDim arr(3,2)
Fori=1 To 3
Forj=1 To 2
arr(i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(3,4)
Forj=3 To 4
arr(3,j)=j+9
Nextj
Print arr(3,2);arr(3,4)
End Sub程序运行后,单击窗体,输出结果为______。
A. 0 0
B. 7 12
C. 0 13
D. 8 13
-
[单项选择]为了计算1+3+5+…+99的值,某人编程如下:
k=1
s=0
While k<=99
k=k+2:S=S+k
Wend
Ptint s
在调试时发现运行结果有错误,需要修改。下列错误原因和修改方案中正确的是______。
A. 循环前的赋值语句k=1错误,应改为k=0
B. 循环条件错误,应改为While k<99
C. 循环中两条赋值语句的顺序错误,应改为s=s+k:k=k+2
D. While…Wend循环语句错误,应改为For k=1 To 99…Next k
-
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是______。
A. Private Sub Timer1_Timer()
B. Private Sub Timer1_Timer()
C. Private Sub Timer1_Timer()
D. Private Sub Timer1_Timer()
-
[单项选择]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click( )
CommonDialog1.Filter="All Files(*,*)|*.*|Text Files(*.txt)|*.txt|Executable_
Files(*.exe)|*.exe"
CommonDialog1.FilterIndex=3
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是______。
A. All Files(*.*)
B. Text Files(*.txt)
C. Executable Files(*.exe)
D. 不确定
-
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序:
Private Sub Command1_Click( )
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.Text=" "
Call Fun1(x,y,z)
Text1.Text=Str(z)
End Sub
Sub Fun1(ByVal a As Integer, ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是______。
A. 0
B. 12
C. Str(z)
D. 没有显示
-
[填空题]窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框,且有一个名称为Text1的文本框。以下程序的功能是:将指定位置中扩展名为".txt"的文件显示在File1中,如果双击File1中的某个文件,则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load( )
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change( )
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change( )
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick( )
Dim S As String*1
If Right(File1.Path,1)="/"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"/"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1,#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
-
[单项选择]定义有5个整数型元素的数组,正确的语句是______。
A. Dim a(4) As Integer
B. Option Base 1:Dim a(5)
C. Dim a&(5)
D. Dime a(5) As Integer
-
[单项选择]执行下列程序段后,输出的结果是______。
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=y+10
Next k3,k2,k1
Print y
A. 90
B. 60
C. 40
D. 10
-
[填空题]一个栈的初始状态为空。首先将元素1,2,3,4,5依次入栈,然后退栈一次,再将元素A,B,C,D依次入栈,之后将所有元素全部退栈,则所有元素退栈(包括中间退栈的元素)的顺序为______。
-
[单项选择]设有以下函数过程:
Function fun(a As Integer,b As Integer)
Dim c As Integer
If a<b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End Function
若调用函数fun时的实际参数都是自然数,则函数返回的是______。
A. a、b的最大公约数
B. a、b的最小公倍数
C. a除以b的余数
D. a除以b的商的整数部分
-
[单项选择]结构化分析可以使用的工具是______。
A. N-S图
B. DFD图
C. PAD图
D. 程序流程图
-
[单项选择]在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中,数据独立性最高的阶段是______。
A. 数据库系统
B. 文件系统
C. 人工管理
D. 数据项管理
-
[单项选择]数据库设计包含四个阶段,它们是需求分析、______、逻辑设计和物理设计。
A. 编码设计
B. 测试阶段
C. 运行阶段
D. 概念设计
-
[单项选择]软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件),下面属于应用软件的是______。
A. 浏览器
B. 操作系统
C. 编译程序
D. 汇编程序
-
[单项选择]下面不属于软件设计原则的是______。
A. 抽象
B. 模块化
C. 自底向上
D. 信息隐蔽
-
[单项选择]假设有下表所列的菜单结构
标题 | 名称 | 层次 |
显示 | appear | 1(主菜单) |
大图标 | bigicon | 2(子菜单) |
小图标 | smallicon | 2(子菜单) |
要求程序运行后,如果单击菜单项"大图标",则在该菜单项前添加一个"√"。以下事件过程正确的是______。
A. Ptivate Sub bigicon_Click()
B. Ptivate Sub bigicon_Click()
C. Private Sub bigicon_Click()
D. Private Sub bigicon_Click()
-
[单项选择]以下不能输出"Program"的语句是______。
A. Print Mid("VBProgram",3,7)
B. Print Right("VBProgram",7)
C. Ptint Mid("VBProgram",3)
D. Print Left("VBProgram",7)
-
[填空题]已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是______。
-
[填空题]软件测试可分为白盒测试和黑盒测试。逻辑覆盖测试属于______测试。
-
[填空题]一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体"项目主管"与实体"项目"的联系属于______的联系。
-
[单项选择]设a="a",b="b",c="c",d="d",执行语句x=IIf((a<b) Or (c>d),"A","B")后,x的值为______。
A. "a" B) "b" C) "A"