vb2006年4月真题.doc

两个或两个以上的模块之间关联的紧密程度称为_。A、耦合度B、内聚度C、复杂度D、数据传输特性在E-R图中，用来表示实体的图形是_。A、矩形B、椭圆形C、菱形D、三角形下列描述中正确的是_。A、线性链表是线性表的链式存储结构B、栈与队列是非线性结构C、双向链表是非线性结构D、只有根结点的二叉树是线性结构下列叙述中正确的是_。A、软件测试应该由程序开发者来完成B、程序经调试后一般不需要再测试C、软件维护只包括对程序代码的维护D、以上三种说法都不对在深度为7的满二叉树中，叶子结点的个数为_。A、32B、31C、64D、63按照后进先出原则组织数据的数据结构是_。A、队列B、栈C、双向链表D、二叉树对如下二叉树进行后序遍历的结果为_。A、ABCDEFB、DBEAFCC、ABDECFD、DEBFCA下列选项中不属于结构化程序设计方法的是_。A、自顶向下B、逐步求精C、模块化D、可复用商品与顾客两个实体集之间的联系一般是_。A、一对一B、一对多C、多对一D、多对多数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是_。A、DB包含DBS和DBMSB、DBMS包含DB和DBSC、DBS包含DB和DBMSD、没有任何关系设有如下语句：Dim a,b As Integerc=VisualBasicd=#7/20/2005#以下关于这段代码的叙述中，错误的是_。A、a被定义为Integer类型变量B、b被定义为Integer类型变量C、c中的数据是字符串D、d中的数据是日期类型在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10a(i)=8+i Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function程序运行后，单击命令按钮，输出结果为_。A、12B、15C、17D、18以下叙述中，错误的是_。A、一个Visual Basic应用程序可以含有多个标准模块文件B、一个Visual Basic工程可以含有多个窗体文件C、标准模块文件可以属于某个指定的窗体文件D、标准模块文件的扩展名是.bas以下可以作为Visual Basic变量名的是_。A、A#AB、counstAC、3AD、?AA设a=4,b=3,c=2,d=1，下列表达式的值是_。ab+1 Or cd And b Mod cA、TrueB、1C、-1D、0以下能从字符串VisualBasic中直接取出子字符串Basic的函数是_。A、LeftB、MidC、StringD、Instr设x=4，y=6，则以下不能在窗体上显示出A=10的语句是_。A、Print A=x+yB、Print A=;x+yC、Print A=+str(x+y)D、Print A=&x+y窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号（？）处应填入的内容是_。图1图2 Private Sub Option1_Click(Index As Integer)If Text1.Text ThenSelect Case ?Case 0Text2.Text=Val(Text1.Text)Case 1Text2.Text=Val(Text1.Text)*10Case 2Text2.Text=Val(Text1.Text)*100End SelectEnd If End SubA、IndexB、 Option1.IndexC、 Option1(Index)D、Option1(Index).Value在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1）。 编写如下程序 Private Sub Form_Load() Text1.Text= Text2.Text= Text3.Text= End Sub Private Sub Command1_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y0tmp=x Mod yx=yy=tmp Loop f=x End Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是_。A、4B、6C、8D、12设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30a(i)=Int(Rnd*100) Next For Each arrItem In aIf arrItem Mod 7=0 Then Print arrItemIf arrItem90 Then Exit For Next End Sub对于该事件过程，以下叙述中错误的是_。A、a数组中的数据是30个100以内的整数B、语句For Each arrItem In a有语法错误C、If arrItem Mod 7=0语句的功能是输出数组中能够被7整除的数D、If arrItem90语句的作用是当数组元素的值大于90时退出For循环以下叙述中错误的是_。A、在Visual Basic中，对象所能响应的事件是由系统定义的B、对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C、Visual Basic中允许不同对象使用相同名称的方法D、Visual Basic中的对象具有自己的属性与方法在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(请输入：) If Flag ThenPrint f(intNum) End If End Sub Function f(X as Integer)As Integer If Xx ThenMsgBox 请重新输入！ End If End SubA、TextB、SelTextC、ControlD、Form窗体上有1个过程为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() CD1.FileName = CD1.Filter = All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt CD1.FilterIndex = 2 CD1.Action = 1 End Sub关于以上代码，错误的叙述是_。A、执行以上事件过程，通用对话框被设置为打开文件对话框B、通用对话框的初始路径为当前路径C、通用对话框的默认文件类型为*.TxtD、以上代码不对文件执行操作在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Command1_Click() x=Val(Text1.Text) Select Case xCase 1,3y=x*xCase Is=10,Is=-10y=xCase -10 To 10y=-x End Select End Sub程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是_。A、执行y=x*xB、执行y=-xC、先执行y=x*x，再执行y=-xD、程序出错假定有如下的命令按扭（名称为Command1）事件过程：Private Sub Command1_Click()x=InputBox(输入：,输入整数) MsgBox 输入的数据是：,输入数据：+xEnd Sub程序运行后，单击命名按扭，所果从键盘上输入整数10，则以下叙述中错误的是_。A、x的值是数值10B、输入对话框的标题是输入整数C、信息框的标题是输入数据：10D、信息框中显示的输入的数据是：为了使列表框中的项目呈多列显示，需要设置的属性为_。A、ColumnsB、StyleC、ListD、MultiSelect以下叙述错误的是_。A、用Shell函数可以执行扩展名为.exe的应用程序B、若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型C、Static类型的变量可以在标准模块的声明部分定义D、全局变量必须在标准模块中用Public或Global声明在菜单编辑器中建立1个名称为Menu0菜单项，将其可见属性设置为False，并建立其若干子菜单，然后编写如下过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu Menu0 End If End Sub则以下叙述错误的是_。A、该过程的作用是弹出一个菜单B、单击鼠标右键时弹出菜单C、Menu0在菜单编辑器中定义的弹出菜单的名称D、参数X、Y指明鼠标当前位置的坐标在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub程序运行后，把焦点移到文本框中，此时如果敲击A键，则输出结果为_。A、A AB、A BC、A CD、A D以下关于Visual Basic特点叙述中，错误的是_。A、Visual Basic是采用事件驱动编程机制的语言B、Visual Basic程序既可以编译运行，也可以解释运行C、构成Visual Basic程序的多个过程没有固定的执行顺序D、Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(3,3) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+iNext j Next i Sum=0 For i=1 To 3Sum=Sum+a(i,4-i) Next i Print Sum End Sub运行程序，单击命令按钮，输出结果是_。A、20B、7C、16D、17在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2For j=1 To 4If j Mod 20 Thena=a-1End Ifa=a+1Next j Next i Print a End Sub程序运行后，单击命令按钮，输出结果是_。A、0B、2C、3D、4以下关于文件的叙述中，错误的是_。A、使用Append方式打开文件时，文件指针被定位于文件尾B、当以输入方式（Input）打开文件时，如果文件不存在，则建立一个新文件C、顺序文件各记录的长度可以不同D、随机文件打开后，既可以进行读操作，也可以进行写操作以下关于过程的叙述中，错误的是_。A、事件过程是由某个事件触发而执行的过程B、函数过程的返回值可以有多个C、可以在事件过程中调用通用过程D、不能在事件过程中定义函数过程在面向对象方法中_描述的是具有相似属性与操作的一组对象。标准答案为：类考生答案为：数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为_。标准答案为：物理独立性 或 数据的物理独立性 或 数据物理独立性考生答案为：对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为 _ 。标准答案为：45考生答案为：程序测试分为静态分析和动态测试。其中_是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。标准答案为：静态分析 或 静态测试考生答案为：在关系模型中，把数据看成是二维表，每一个二维表称为一个_。标准答案为：关系考生答案为：在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：Private Sub Command1_Click() CommonDialog1._= 打开文件 CommonDialog1.Filter = All Files(*.*)|*.* CommonDialog1.InitDir = C: CommonDialog1.ShowOpenEnd Sub该程序的功能是，程序运行后，单击命令按钮，将显示打开文件对话框，其标题是打开文件，在文件类型栏内显示All Files(*.*)，并显示C盘根目录下的所有文件，请填空。标准答案为：DialogTitle考生答案为：在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序： Function Fun(x As Integer, ByVal y As Integer) As Integer x = x + y If x 0 Then Fun = x Else Fun = y End IfEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = -10: b = 5 Text1.Text = Fun(a, b) Text2.Text = Fun(a, b)End Sub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是_和_。标准答案为：-5 与 5考生答案为：在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text = Left(UCase(SaveAll), 4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是_。标准答案为：ABCD考生答案为：在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Open d:tempdat.txt For Output As #1 Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If _=