分章节解析(8)

Open “e:\\Myfile” For Binary As # 12 End Sub 【答案】（1）Chr(Asc(“A”)+I)，（2）Loc(12)

2．c盘根目录下的数据文件data．txt中有两组数据，第一组数据未排序，并以-1表示该组数据结束；第２组数据按从小到大顺序排列。下面程序的功能是，单击“读入数据”按钮，将文件中的两组数据，分别读入到A、B数组中，单击“插入排序”按钮，则把A数组的元素按其大小依次插入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。

Dim a() as integer, b() as integer Private sub command1_Click()

Dim i As Integer, J As Integer, n As Integer, s As String ____1____ Do

Input #1l, n

If n=-1 Then Exit Do i=i+1

ReDim Preserve a(i) a(i)=n

s=s ＆ Str(a(i)) Loop Text1=S S=””

____2____

J=j+1

ReDim Preserve b(j) Input#11，b(j) S=S ＆ Str(b(j)) Loop Text2=S Close 11 End Sub

Private Sub Command2_Click()

Dim i As Integer, J As Integer, S As String For i=1 To UBound(a) If a(i)

Call change(a(i), 1)

Elseif a(i)>b(UBound(b)) Then

____3____

b(UBound(b))=a(i)

E1se

For j=2 To UBound(b)

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

填空题