(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】 。

　　(5) 问题处理方案的正确而完整的描述称为 【5】 。

　　(6)以下语句的输出结果是: 【6】

　　Print Int(12345.6789*100+0.5)/100

　　(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:

　　Private Sub Form_Click()

　　Text1.Text = "VB程序设计"

　　End Sub

　　Private Sub Text1_Change()

　　Picture1.Print "VBProgramming"

　　End Sub

　　程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】

　　(8)阅读下面的程序

　　Private Sub Form_Click()

　　Dim Check As Boolean, Counter As Integer

　　Check = True

　　Counter = 5

　　Do

　　Do While Counter < 20

　　Counter = Counter + 1

　　If Counter = 10 Then

　　Check = False

　　Exit Do

　　End If

　　Loop

　　Loop Until Check = False

　　Print Counter

　　End Sub

　　程序运行后,单击窗体,输出结果是【9】

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页