实验vb2012版例题和习题答案参

第四节习题解答

一、判断题

1.√ 2.× 3.× 4.√ 5.√ 6.× 7.× 8.√ 9.× 10.√

二、选择题

1．C 2．C 3．B 4．D 5．B 6．C 7．B 8．A

三、填空题

1.关闭文件 2.不能 3.Write# 4.Close#

四、程序阅读题

五、程序填空题

六、程序设计题

题1．程序代码如下

PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger,a(4,5)AsSingle,maxAsSingleOpen"aaa.txt"ForInputAs#1

Fori=1To4

Forj=1To4:Input#1,a(i,j):NextjNexti

Close#1

Open"bbb.txt"ForOutputAs#1Fori=1To4

max=a(i,1)Forj=2To4:

IfAbs(a(i,j))>Abs(max)Thenmax=a(i,j)Nextj

Forj=1To4

a(i,j)=a(i,j)/max

Ifj<4ThenWrite#1,a(i,j),ElseWrite#1,a(i,j)Nextj

NextiClose#1

EndSub

题2．程序代码如下

PrivateSubCommand1_Click()

DimxmAsString,xhAsString,c1AsByte,kAsByte,c2AsByte,c3AsByteOpen"score.txt"ForInputAs#1

Open"bad.txt"ForOutputAs#2:Open"pass.txt"ForOutputAs#3DoWhileNotEOF(1)

Input#1,xm,xh,c1,c2,c3

k=0:Ifc1<=60Thenk=k+1Ifc2<60Thenk=k+1

Ifc3<60Thenk=k+1

Ifk<2ThenWrite#3,xm,xh,c1,c2,c3ElseWrite#2,xm,xh,c1,c2,c3EndIf

LoopClose

EndSub

题3．程序代码如下

PrivateSubCommand1_Click()

DimmcAsString,lbAsString,ppAsString,slAsIntegerOpen"kucun.txt"ForInputAs#1

Open"temp.txt"ForOutputAs#2DoWhileNotEOF(1)

Input#1,mc,lb,pp,sl

Ifsl<>0ThenWrite#2,mc,lb,pp,slLoop

Close

Kill"kucun.txt":Name"temp.txt"As"kucun.txt"

EndSub

题4．程序代码如下

Dimx1AsSingle,y1AsSingle,x2AsSingle,y2AsSingle,kAsBytePrivateSubCommand1_Click()

OnErrorGoTopp

Open"record.txt"ForInputAs#1

DoWhileNotEOF(1)

Input#1,k,x1,y1,x2,y2

Ifk=1ThenP2.Line(x1,y1)-(x2,y2)ElseP2.Line(x1,y1)-(x2,y2),,BLoop

Close#1ExitSub

pp:MsgBox"文件为空，请先在P1中绘制图形"EndSub

PrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)

x1=X:y1=Y

EndSub

PrivateSubP1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)

Open"record.txt"ForAppendAs#1 '记录形态和两个点的坐标IfOption1.ValueThen '1--直线

P1.Line(x1,y1)-(X,Y):Write#1,1,x1,y1,X,Y

Else '2--矩形

P1.Line(x1,y1)-(X,Y),,B:Write#1,2,x1,y1,X,Y

EndIfClose#1

EndSub

题5．程序代码如下

PrivateSubCommand1_Click()DimiAsInteger

Open"bbb.txt"ForOutputAs#1Fori=0ToList1.ListCount-1

IfList1.Selected(i)ThenPrint#1,List1.List(i)Nexti

Close#1EndSub

PrivateSubForm_Load()Dim