If a(i)>b(J-1) And a(i)<=b(j) Then Call change(a(i), j) Next J End If
Next i
For i=1 To UBound(b)
S=S ＆ Str(b(i))
Next i Text3=S End Sub
Private Sub change(n As Integer, k As Integer) Dim i As Integer
ReDim Preserve b(UBound(b)+1) For i=UBound(b)To k+1 Step-1
____4_____ Next i
____5____ End Sub 【答案】（1）Open \，（2）Do While Not EOF(11)，（3）Call change(a(i), UBound(b) + 1)，（4）b(i) = b(i - 1)，（5）b(k) = n
第9章 其它控件
一、本章知识点
1、菜单的基本概念
所谓菜单，就是可供选择的命令项目的列表，它位于程序界面标题栏下的菜单栏上。通过它能使用户以“点菜”的方式去执行不同的命令
分为下拉式菜单和弹出式菜单 2、滚动条控件
（1）属性：Min、Max、Value、SmallChange、LargeChange （2）事件：Scroll、Change 3、形状控件(Shape)
属性：Shape、BorderColor、BorderStyle、BorderWidth、BackStyle、FillColor、FillStyle 4、直线控件(Line)
属性：BorderStyle、BorderColor、BorderWidth、x1，x2，y1，y2 5、图形方法
Pset(画点)方法、Line(画线)方法、Circle(画圆)方法 6、鼠标事件
事件：MouseDown、MouseUp、MouseMove
二、试题与解析
选择题
1．以下有关Line划线方法的说明，错误的是___________。
A．Line方法既可用于单个划线，也可用于连续划线
B．Line方法中的Step选项用于指定由CurrentX、CurrentY属性决定的图形坐标位置 C．Line方法划线的宽度由DrawWidth属性决定 D．当使用F选项时，Line方法可用于绘制矩形 【答案】D
30．下面语句中，可以在窗体上绘制正方形的语句是__________。
①Shape1.Shape=l ②Line(500, 1500)-(1200, 2000) ③Shape1.Shape=0 ④Line(500, 1500)-(1000, 2000), , B 【答案】D
填空题
