考试网 >> IT认证 >> 等级 >> 二级考试 >> 05年4月等级考试二级VB真题(附答案)

发布时间：2006-06-27 23:26     点击：

　　End If

　　func = Y

　　End Function

　　Private Sub Command1_Click()

　　Dim intNum As Integer

　　intNum = InputBox("")

　　If SW Then

　　Print func(intNum)

　　End If

　　End Sub

　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　SW = False

　　End Sub

　　Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　SW = True

　　End Sub

　　程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:

　　A)输出0

　　B)输出25

　　C)输出45

　　D)无任何输出

　　(35) 设有如下通用过程:

　　Public Sub fun(a() As Integer, 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 Integer, n As Integer

　　For i = 1 To 5

　　arr(i) = i + i

　　Next

　　fun arr, n

　　Text1.Text = Str(n)

　　End Sub

　　程序运行后,单击命令按钮,则在文本框中显示的内容是

　　A)30

　　B)25

　　C)20

　　D)15

　　二、填空题(每空2分，共30分)

　　请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。

　　(1) 某二*树中度为2的结点有18个，则该二*树中有 【1】 个叶子结点。

　　(2) 在面向对象方法中，类的实例称为 【2】 。

　　(3) 诊断和改正程序中错误的工作通常称为 【3】 。

　　(4) 在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。