Next
End Sub
在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮。然后编
写下列事件过程:
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