2006年4月计算机等级考试二级真题VB下新闻_成才网

2006年4月计算机等级考试二级真题VB下

2007-01-10 11:09:08 来源：来考吧标签：西班牙语

    (26)以下关于过程的叙述中，错误的是。
     A) 事件过程是由某个事件触发而执行的过程  B) 函数过程的返回值可以有多个
     C) 可以在事件过程中调用通用过程  D) 不能在事件过程中定义函数过程

    (27)在窗体上画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 y<>0
        tmp=x Mod y
        x=y
        y=tmp
        Loop
        f=x
        End Function
     运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。
     A) 4 B) 6 C) 8 D) 12

(28)窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是。
        Private Sub Text1_LostFocus()
        Call CheckInput(Text1，500)
        End Sub
        Private Sub Text2_LostFocus()
        Call CheckInput(Text2，1000)
        End Sub
        Sub CheckInput(t As ?，x As Integer)
        If Val(t.Text)>x Then
        MsgBox"请重新输入!"
        End If
        End Sub
     A) Text B) SelText C) Control D) Form

    (29)在窗体上画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)AA  B)AB  C)AC  D)AD

    (30)为了使列表框中的项目呈多列显示，需要设置的属性为。
     A) Columns B) Style C) List D) MultiSelect

    (31)在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
        Dim Flag As Boolean
        Private Sub Command1_Click()
        Dim intNum As Integer
        intNum=InputBox("请输入：")
        If Flag Then
        Print f(intNum)
        End If
        End Sub
        Function f(X As Integer)As Integer
        If X<10 Then
        Y=X
        Else
        Y=X+10
        End If
        f=Y
        End Function
        Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
        Flag=True
        End Sub
     运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。
     A) 0 B) 5 C) 15 D) 无任何输出

    (32)在菜单编辑器中建立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指明鼠标当前位置的坐标

    (33)窗体上有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) 通用对话框的默认文件类型为*.Txt
     D) 以上代码不对文件执行读写操作

    (34)以下叙述中错误的是。
     A) 用Shell函数可以执行扩展名为.exe的应用程序
     B) 若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型
     C) Static类型的变量可以在标准模块的声明部分定义
     D) 全局变量必须在标准模块中用Public或Global声明

    (35)以下关于文件的叙述中，错误的是。
     A) 使用Append方式打开文件时，文件指针被定位于文件尾
     B) 当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件
     C) 顺序文件各记录的长度可以不同
     D) 随机文件打开后，既可以进行读操作，也可以进行写操作

    二、填空题(每空2分，共30分)
   请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

    (1) 对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为【1】。
    (2)在面向对象方法中，【2】描述的是具有相似属性与操作的一组对象。
    (3)在关系模型中，把数据看成是二维表，每一个二维表称为一个【3】。
    (4)程序测试分为静态分析和动态测试。其中【4】是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。
    (5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】。
    (6)下列语句的输出结果是【6】。
        Print Format(Int(12345.6789*100+0.5)／100，"0000，0.00")
    (7)在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
        Private Sub Command1_Click()
        Dim arr(1 To 100）As Integer
        For i=1 To 100
        arr(i)=Int(Rnd*1000)
        Next i
        Max=arr(1)
        Min=arr（1）
        For i=1 To 100
        If【7】Then
        Max=arr(i)
        End If
        If【8】Then
        Min=arr(i)
        End If
        Next i
        Print"Max="；Max，"Min="；Min
        End Sub
     程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
    (8)在窗体上画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 If
        End Function
        Private 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文本框显示的内容分别是【9】和【10】。
    (9)在窗体上画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，单击命令按钮，则文本框中显示的内容是【11】。
    (10)在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：
        Private Sub Command1_Click()
        CommonDialog1.【12】="打开文件"
        CommonDialog1.Filter="All Files(*.*)|*.*"
        CommonDialog1.InitDir="C：＼"
        CommonDialog1.ShowOpen
        End Sub
     该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下
的所有文件，请填空。
    (11)在窗体上画1个文本框，名称为Text1，然后编写如下程序：
        Private Sub Form_Load()
        Open"d：＼temp＼dat.txt"For Output As#1
        Text1.Text=""
        End Sub
        Private Sub Text1_KeyPress(KeyAscii As Integer)
        lf【13】=13 Then
        If UCase(Text1.Text)=【14】Then
        Close 1
        End
        Else
        Write#1，【15】
        Text1.Text=""
        End If
        End If
        End Sub
     以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。

                      [上一页]

上一篇：2006年4月计算机等级考试二级真题VB上

下一篇：2005年9月全国等级考试二级真题C上

（已有0人评论）

成才网温馨提示

最新课程

更多优惠

推荐教育机构

最受关注的学校