填空题在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 【11】 事件，当对象失去焦点时将触发 【12】 事件。
填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。
Private Sub Command1_Click{{U}} {{/U}}
Dim inData As String
Open "./mText1.txt" ______ As 1
Do While Not EOF(1)
Input #1, inData
Picture1.Print inData
Loop
Close #1
End Sub
填空题窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Data1.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。PrivateTypePicgNameAsString*10物品名称picFileAsString*20物品图片的图片文件名EndTypeDimp(4)AsPie,pRecAsPicPrivateSubForm_Load()Open"Data1.txt"ForRandomAs#1(13)=Len(pRec)Fori=0To4Get#1,i+1,p(i)List1.AddItemp(i).gNameNextiClose#1EndSubPrivateSubList1_DblClick()Fori=0To4IfRTrim(List1.List(i))=RTrim((14))ThenPicturelPicture=LoadPicture(p(i).(15))ExitForEndIfNextEndSub
填空题在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() Open "d:/test/smtext1.txt" For Input As #1 Do While Not (13) Line Input #1, aspect $ whole $=whole $+aspect $+Chr $ (13)+Chr $ (10) Loop Text1.Text=whole $ (14) Open "d:/text/smtext2.txt" For Output As #1 Print #1, (15) Close #1 End Sub 运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
填空题按照数据的逻辑结构分类，数据结构可以分为线性结构和非线性结构，栈属于 ______。
填空题下列表达式有错误，正确的写法应该是{{U}} {{U}} {{/U}} {{/U}}。
[(a+b) +c]/80-5÷(d+e)
填空题建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为{{U}} 【13】 {{/U}}、{{U}} 【14】 {{/U}}、ShowColor、ShowFont 和 ShowPrinter。
填空题如果存在如下过程： Private Function Fun( a( ) As Integer) Dim First As Integer, Last As Integer, i As Integer First = LBound(a) Last=UBound (a) Max = a(First) For i=First To Last If a(i)＞Max Then Max =a(i) Next Fun=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() ReDim m(1 To 4) As Integer m(1) =20: m(2) =30: m(3) =50: m(4) =100 c =Fun(m) Print c End Sub 单击命令按钮，其输出结果为 【10】 。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1Click()n=5f=1s=0Fori=1Tonf=f______s=s+fNextPrintsEndSub该事件过程的功能是计算的值。请填空。
填空题以下程序段执行后y的值是{{U}} 【7】 {{/U}}。
x=8.6
y=int(x+0.5)
print y
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
a= Val(InputBox(“请输入一个整数”))
b=Val(InputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
填空题希尔排序法属于 (1) 排序法。
填空题控件数组共用事件和方法，区分控件元素需要引用控件的______属性。
填空题设一棵完全二叉树共有500个结点，则在该二叉树中有 【1】 个叶子结点。
填空题在面向对象的语言中，______是程序设计的基本实体。
填空题以下程序的功能是从随机产生的20个20～200(含20和200)的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。请填空。
Option Base 1 Private Sub Command1_Click()
Dim a(20) As Integer
m=0 For i=1 To 20
a(i)=Int(Rnd*______)+20 If a(i) Mod
3=0 ______a(i) Mod 5=0 Then If
a(i)＞m Then m=a(i) End If
Next If ______ Then
Print"没有满足条件的数" Else
Print"满足条件的数是"；m End If End Sub
填空题在长度为n的线性表中顺序查找元素x时，成功查找的平均查找长度为 【2】 。
填空题关系式X≤-或X≥5所对应的布尔表达式是______。
填空题语句Form2.Show 0表示 [11] ； 语句Form3.Show 1表示 [12] ；
填空题表达式Asc(“A”)&Chr(65)的值为{{U}} 【13】 {{/U}}。