2001年秋VB二级试（含答案）(5)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2001年秋VB二级试（含答案）(5)在线全文阅读。