Private Sub Commandl Click() Dim arr(5)As Integer, n As Interger For i= 1 To 5 arr(=1+1 Next TextI Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是() A)30 B) C)20 D)15 填空题(每空2分,共30分) (1)某二叉树中度为2的结点有18个,则该二叉树中有【1】个叶子结点 (2)在面向对象方法中,类的实例称为【2】 (3)诊断和改正程序中错误的工作通常称为【3】。 (4)在关系数据库中,把数据表示成二维表,每一个二维表称为【4】。 (5)问题处理方案准确而完整的描述称为_【5】。 (6)下列语句的输出结果【6】 Print int(123456789*100+0.5100 (7)在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程 Private Sub Form Click() Text1Text"VB程序设计” End Sub Private Sub Textl Change() Picture 1. Print"VB Programming End Sub 程序运行后,单击窗体,则在文本框中显示的内容是【7】,而在图片框中显示 的内容是【8】。 (8)阅读下列程序 Private Sub Form Click() Dim Check As Boolean, Counter As Integer Check=True CounterS Do While Counter< 20 Counter-Counter+1 If Counter =10 Then Check=False Exit Do Loop Until Check=False Print counter 二级Ⅴ isual basic语言程序设计试卷第9页(共10页)二级 Visual Basic 语言程序设计试卷 第 9 页（共 10 页） Private Sub Command1_Click( ) Dim arr(5) As Integer, n As Interger 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）某二叉树中度为 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"VB Programming" 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