If___k mod n=0___Then
J=J+1
___ReDim Preserve A(J)___ A(J)=N sum=sum+N End If Next N
If sum=___Int(Sqr(sum))^2__Then Fac=True
End Function
8. C盘根目录下文件Data4.txt的内容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置，得到的新数列是：1 2 3 4 5 6 7 8 9 10。（实现方法：第一次调整后的数列是：1 2 6 8 10 3 5 7 9第二次调整后的数列是：1 2 3 4 6 8 10 5 7 9）。
Option Explict
Private Sub Form_Click()
Dim A(10) As Integer,i As Integer,J As Integer Open \
Do ___while not Eof(12)__
J=J+1 Input #12,A(J) Loop
Call Insert(A) For i=1 To 10
Print A(i) Next i Print Close #12
End Sub
Private Sub Insert(A() As Integer)
Dim i As Integer,Putp As Integer,J As Integer Dim Getp As Integer,N As Integer,Tem As Integer
N=UBound(A)/2 Putp=1 Getp=N+1 For i=1 To N
Tem=A(Getp)
For J=Getp To Putp +1 Step -1
__A(J)=A(J-1)__ Next J A(Putp)=Tem Getp=Getp+1 Putp=___Putp+2__ Next i
End Sub
9.下面程序的功能是从键盘上输入一个不超过4位的十进制正整数，先把该十进数的每一位数字转换位一个4位二进制数，再把得到的二进制数依次合并成为一个16位的二进制数。例如输入十进制数359，会得到二进制数0000001101011001。
Private Sub Form_Click()
Dim num As Integer,s As Integer,M As Integer Dim i As Integer,j As Integer,n As Integer
num=InputBox(\输入一个长度不超过4位的十进制正整数：\，，1) ___M=num__ Do While num>0
j=j+1 n=num Mod 10 s=cover(n)&s ___num=num\\10__ Loop
For i=1 To 4-j
s=\ Next i
Text1.Text=\十进制数\的转换结果是：\
End Sub
Private Function cover(ByVal n As Integer)As String
Dim i As Integer,s As String,k As Integer Do Until n<1
___k=n Mod 2__ s=CStr(k)&s n=n\\2 Loop
If Len(s)<4 Then
s=\
cover=__right(s,4)__ Else
cover=s
End If End Function