VB课后习题答案 陈庆章主编

第1章VisualBasic6.0程序设计概述

一、判断题

2.V

3.X说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。

4.V5.X6.V7.X8.J9.J10.X11.V12.V

13.X14.V15.X16.J17.V18.J19.V20.V

二、选择题

1.C2.B3.D4.C5.B6.A7.D8.A9.B10.A11.C12.D

三、填空题

1.对象、事件2.属性、方法、事件3.控件、屏幕（Screen）

4.对象5.Left、Top6.属性、v对象名＞.＜属性名＞=＜表达式,

7.网格8.Forml

9.Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）

10.Activate>Deactivate

四、程序设计题

程序L界面设计参看图10-1、10-2以及表10-1。

表107实例2各控件的主要属性设置

控件属性（属性值）属性（属性值）

标签控件1Name(Label1)Caption（"我的第一个VB程序"）

Name(Label2)Caption（"请输入你的姓名"）

标签控件2

FontUnderLine(True)Fontltalic(True)

命令按钮1Name(Command1)Caption("确定(&O)")

命令按钮2Name(Command2)Caption("结束(&X)”)

过程设计如下：

PrivatesubForm_Click()

Coniinand2.Enabled=False

EenSub

PrivateSubCommandl_Click()

Label2.Visible=False

Labell.Caption=Text1.Text+”：欢迎使用”+Labell.Caption

Text1.Visible=False

Commandl.Enabled=False:Command2.Enabled=True

EndSub

PrivateSubCommand2_Click()

End

EndSub

程序2.界面设计略，过程设计如F：

PrivateSubCommandl_Click()T字体变大

Forml.Fontsize=Forml.Fontsize+3

Forml.Cls:Print”欢迎使用VB"

EndSub

PrivateSubCommanci2_Click()，字体变小

Forml.FontSize=Forml.Fontsize-3

Forml.Cis:Print”欢迎使用VB”

EndSub

PrivateSubCommand3_Click()'字体力II粗

Forml.FontBold=True

Forml.Cis:Print”欢迎使用VB”

EndSub

PrivateSubCommand4_Click()'字体不力II粗

Forml.FontBold=False

Forml.Cis:Print”欢迎使用VB”

EndSub

运行时，不得连续、过多次单击“字体变小”按钮,因为当FontSize属性值小于0会产生

适时借误。

程序3.界面设计略，过程设计如下(窗体Height值的计量包括标题、边框，而ScaleHeight

值仅与窗体有效绘图区域的高度有关)：

PrivateSubForm_Load()

Text1.Text="VisualBasic程序设计”

EndSub

PrivateSubForm_Resize()

Text1.Top=0:Text1.Left=0

Text1.Width=Forml.ScaleWidth/2，用Forml.ScaleWidth效果优于用Forml.Width

Textl.Height=Forml.ScaleHeight/21MJForml.ScaleHeight优于用Forml.Height

Command]・Top=Forml.ScaleHeight-Commandl.Height

Commandl.Left=Forml.ScaleWidth-Commandl.Width

EndSub

第2章程序设计基础

一、判断题

1.V2.X3.X4.X5.V6.X7.V8.V9.V10.X

二、选择题

1.B2.D3.A4.C5.C6.B7.A8.D9.C10.A

三、填空题

1.String2.43.naaau4.1455.66.37.188.False

9.(xMod10)*10+x\1010.10+Int(Rnd*90)11.a*bModc

12.Log(x)+Sin(3.141593/6)13.ConstPI=3.141592614.口期15.Int(x)+1

四、程序设计题

程序1.界面设计略，过程设计如下：

方法一、用文本框控件输入圆的半径

PrivateSubCommandl_Click()

DimxAsSingle

x=Text1.Text

Labell.Caption=x*x*3.141593

EndSub

方法二、用InputBox函数输入圆的半径

PrivateSubCommandl_Click()

DimxAsSingle，若要求计算结果具有15位有效位数，声明x为Double类型

x=[nputBox(”r="，”输入圆的半径”)

Labell.Caption=x*x*3.141593

EndSub

程序2.略。

第3章结构化程序设计与数组

一、判断题

1.V2.X3.4.X5.6.X7,X8.J9.X10.J

二、选择题

1.A2.D3.C4.C5.D6.B

三、填空题

1.Ifx>yThent=y:y=x:x=t2.IS

3.Fori=0to9:B(i)=InputBox(HB(H&i&”)=")：Nexti

4.Dim5.String6.8

四、程序阅读题（写出下列程序的运行结果）

程序1.05程序2.20程序3.2471116

程序4.1491625

W2

WWW3

WWWWW4

程序5.WWWWWWW程序6.3

WWWWWWWww4

WWWWWWWwwww5

五、程序填空题

1.(1)q*i(2)s+p*i/q(3)Next

2.(1)r=0(2)mModn

3.(1)i+j-1(2)7-i(3)Print

4.(1)10+Int(Rnd*90)(2)i+1To30(3)a(i)=a(j)(4)a(i)Mod2=I

六、程序设计题

程序1.界面设计略，过程设计如下：

PrivateSubForm_Click()

DimxAsInteger,yAsInteger,zAsInteger

DimmaxAsInteger,middAsInteger,minAsInteger

x=[nputBox(”请输入x的值：")

y=工nputBox("请输入v的值：*')

z=[nputBox("请输入z的值：")

Ifx>yThenmax=xElsemax=y

Ifz>maxThenmax=z

Ifx<yThenmin=xElsemin=y

Ifz<minThenmin=z

midd=x+y+z-max-min

Printmax;midd;min

EndSub

程序2.界面设计略，过程设计如下：

PrivateSubForm_Click()

DimxAsSingle,yAsSingle

x=工nputBox("请输入x的值：*')

Ifx>3Then

y=x+3

Elselfx>=1Then

y=x*x

Elselfx>0Then

y=Sqr(x)

Else

y=0

EndIf

Printy

EndSub

程序3.界面设计略，过程设计如卜.：

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

Fori=1To9

Forj=1To9

PrintTab((j-1)*4);i*j;

Nextj

Print

Nexti

EndSub

程序4.界面设计略，过程设计如下：

PrivateSubForm_Click()

DimxAsSingle,sAsSingle,tAsSingle

DimiAsInteger,nAsInteger

x=[nputBox(”请输入x的值：n)

n=工nputBox("请输入n的值：”)

t=x/2:s=t

Fori=3Ton

t=t*x/i

s=s+t

Nexti

Prints

EndSub

程序5.界面设计略，过程设计如下：

PrivateSubForm_Click()

DimeAsSingle,tAsSingle,iAsInteger

e=2:t=1:i=1

Whilet>=0.0001

i=i+1:t=t/i:e=e+t

Wend

Printe

EndSub

程序6.界面设计略，过程设计如下：

OptionBase1

PrivateSubForm_Click()

DimnAsInteger,a(9,9)AsInteger,iAsInteger,jAsInteger

OnErrorGoTok，下列代码中若出现错误，转到标号为K的语句执行。

n=[nputBox("请输入n,0<n<10n)

Fori=1Ton:a(iz1)=1:a(i,i)=1:Nexti

Fori=3Ton

Forj=2Toi-1

a(i,j)=a(i-lzj-1)+a(i-1,j)

Nextj,i

Fori=1Ton

PrintTab(30-2*i);

Forj=1Toi

PrintSpace(4-Len(Trim(Str(a(i,j)))));Trim(Str(a(izj)));

Nextj

Print

Nexti

ExitSub

k:MsgBox”输入n值小于1或大于10,数组下标超界。”

EndSub

第4章函数与过程

一、判断题

1.X2.V3.X4.X5.V6.X7.X8.J

二、填空题

1.按地址传送2.b()AsLong3.64.按值传递5.按地址传递

6.PublicxAsSingle7.StaticxAsInteger8.Form2.y

三、程序阅读题（写出下列程序的运行结果）

程序1.s=2程序2.1程序3.112112122223

s=511

s=9121

1331

14641

四、程序填空题

1.(1)ByeVai(2)kModi(3)k=k\i(4)Callpp(i)

2.(1)a()AaDouble(2)n-1(3)a(j)<a(k)

3.(1)a()AsDouble,nAsInteger(2)t=t*x(3)f=s

五、程序设计题

程序1.界面设计略，过程设计如下：

PrivateFunctionfsum(x()AsDouble,nAsInteger)AsDouble

DimiAsInteger

Fori=1Ton

fsum=fsum+x(i)

Nexti

fsum=fsum/n

EndFunction

程序2.界面设计略，过程设计如下：

PrivateSubff(a()AsSingle,nAsInteger)

DimiAsInteger,xAsSingle

Fori=1Ton\2

x=a(n-i+1):a(n-i+1)=a(i)：a(i)=x

Nexti

EndSub

程序3.界面设计略，过程设计如下：

PrivateSubfind(x()AsSingle,mAsbyte,nAsByte,_

xmaxAsSingle,kiAsByte,kjAsByte)

xmax=x(lz1):ki=1:kj=1

Fori=1Tom

Forj=1Ton

IfAbs(x(izj))>Abs(xmax)Thenxmax=x(i,j):ki=i:kj=j

Nextj,i

EndSub

第5章常用控件

一、判断题

1.X2.x3.X4.、/5.X6.J7.X8.J9.V

10.J11.X12.X13.V14.15.X16.X17.X18.V

19.J20.X21.V22.X23.24.X25.V

二、选择题

1.C2.D3.B4.B5.B6.C7.B8.B9.B10.A

11.D12.C13.B14.B15.A16..D17.B18.B19.B20.A

三、填空题

1.上、下、左、左2.堤、无关3.&、<Alt>+<Y>4.Enabled5.MaxLength

6.Textl.SetFocus7.MultiLine8.Visible9.Alignment10.AutoSize

11.ForeColor12.0或113.True14.115.Additem

16.117.List1.Clear18.文本框、列表框

19.下拉式组合框.、简单组合框、下拉式列表框20.Scroll21.Value

22.Change23.定时器不起作用24.Timer25.65535

四、程序阅读题

程序1.116程序2.8

程序3.23451程序4.小，你好！程序5.您好

34512小李，你好！欢迎使用VisualBasic!

程序6.李子程序7.y=6程序8.n=1

苹果y=14n=3

橘子n=5

葡萄

柚子

香蕉

五、程序填空题

1.(1)a(i)=Mid(strl,i,1)或a(i)=Mid(Textl.Text,i,1)

⑵P=j(3)a(i)=a(p)(4)Command2.Enabled=True

2.(1)1To2*i-l(2)Command2.Enabled=True(3)Command2.Enabled=False

3.(1)Text2.Enabled=False(2)p=2(3)Printi

(4)VaI(Text1.Text)<2或Val(Textl.Text)<=1(5)KeyAscii=13

4.(1)List1.ListCount(2)List1.RemoveitemI(3)i=i+1

5.(1)Timer1.Enabled=True(2)x\3600

(3)(xMod3600)\60或(x-3600*h)\60(4)x=x+1

6.(1)Label1.Left(2)Label1.Left=-Label1.Width

六、程序设计题

程序1.界面设计略，过程设计如下：

PrivateSubCommandl_Click.()

IfCommandl.Caption="显示"Then

Print”欢迎使用VisualBasic1"：Commandl.Caption="清除”

Else

Forml.Cis:Commandl.Caption="显小"

EndIf

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Load()

Forml.Cis:Commandl.Caption="显示”:Command2.Caption="退出

EndSub

程序2.界面设计略，过程设计如下：

PrivateSubForm_Loaci()

Textl.MaxLength=1:Text1.Text=

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

Labell.Caption=CStr(KeyAscii)

EndSub

程序3.界面设计略，过程设计如下：

ConstpwdAsString="123456"'预设密码为123456

PrivateSubCommandl_Click()

Cis:Print"欢迎进入！"

EndSub

PrivateSubForm_Load()

Commandl.Caption="进入”:Commandl.Enabled=Falsew

Textl.Text=Text1.Passwordchar=

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

IfText1.Text=pwdThen

m=MsgBox("口令正确，欢迎进入！*'):Commandl.Enabled=True

Else

m=MsgBox(”口令错误，请重新输入！”)：Text1.Text=””

EndIf

EndIf

EndSub

程序4.界面设计略，过程设计如下：

DimnumAsInteger,mAsIntegerzrecAsInteger

PrivateSubForm_Load()

Commandl.Caption="出题“：Commandl.Enabled=True

Text1.Text=""：Text1.Enabled=False:rec=0

EndSub

PrivateSubCommandl_Click()

Randomize:num=Int(Rnd*100)+1:Text1.Enabled=True

Labell.Caption=Commandl.Enabled=False

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

m=Vai(Textl.Text):rec=rec+1:Textl.SelStart=0

Text1.SeiLength=Len(Textl.Text):Textl.SetFocus

Ifrec>10Then

Labell.Caption="差！重新开始”：CallForm_Load

Else

Ifm>numThen

Labell.Caption=Str(m)&”大了！”

Elselfm<numThen

Labell.Caption=Str(m)&“小了！“

Else

Ifrec<5Then

Labell.Caption="好！猜对了。"

Else

Labell.Caption="还行！猜对了。”

EndIf

CallForm_Load

EndIf

EndIf

EndIf

EndSub

程序5.界面设计如图10・3所示，过程设计如下：

PrivateSubForm_Load()

Commandl(0).Enabled=False:Commandl(1).Enabled=False

Commandl(2).Enabled=False:Labell.Caption=n"

EndSub

PrivateSubCommandl_Click(IndexAsInteger)

SelectCaseIndex

Case0

Clipboard.Clear:Clipboard.SetTextText1.SelText

Textl.SelText="":Labell.Caption="请选择要粘贴的位置！”

Commandl(0).Enabled=False:Commandl(1).Enabled=False

Commandl(2).Enabled=True

Case1

Clipboard.Clear:Clipboard.SetTextTextl.SelText

Labell.Caption="请选择要粘贴的位置！"：Commandl(0).Enabled=False

Commandl(1).Enabled=False:Commandl(2).Enabled=True

CaseElse

Textl.SelText=Clipboard.GetText():Form_Load

Labell.Caption="粘贴完成！"

EndSelect

EndSub

PrivateSubTextl_MouseUp(ButtonAsInteger,ShiftAsInteger,_

XAsSingle,YAsSingle)

DimnAsInteger

n=Textl.SelLength

Ifn>0Then

Labell.Caption="选择了"&n&"个字，请选择下一步操作！"

Commandl(0).Enabled=True:Commandl(1).Enabled=True

Else

Labell.Caption=

EndIf

EndSub

程序6.界面设计如图10・4所示，过程设计如下：

PrivateSubForm_Load()

Labell.Caption="当前日期："：Textl.Text=Date

Optionl(0).Caption="显示日期"：Optionl(l).Caption="显示时间

Optionl(0).Value=True:Commandl.Caption="退出”

EndSub

PrivateSubOptionl_Click(IndexAsInteger)

SelectCaseIndex

Case0

Labell.Caption="当前日期："：Textl.Text=Date

Case1

Labell.Caption="当前时间：'*:Textl.Text=Time

EndSelect

EndSub

PrivateSubCommandl_Click()

End

EndSub

程序7.过程设计如下：

PrivateSubForm_Load()

Labell.Caption="当前日期："：Textl.Text=Date

Optionl(0).Caption="显示日期"：Optionl(1).Caption="显示时间

Optionl(0).Value=True:Commandl.Caption="退出”

Combol.Additem"年一月一日":Combol.Additem"月一日一年”

Combol.Additem”日-月-年”：Combol.Text="年-月-日”

EndSub

PrivateSubCombol_Click()

DimnAsString

SelectCaseCombol.ListIndex

Case0:n=nyyyy-mm-ddn

Case1:n=Hmm-dd-yyyyK

Case2:n=ndd-mm-yyyyn

EndSelect

Textl.Text=Format(Date,n)

EndSub

PrivateSubOptionl_Click(IndexAsInteger)

SelectCaseIndex

Case0:Labell.Caption="当前日期："：Textl.Text=Date

Case1:Labell.Caption=”当前时I词:":Textl.Text=Time

EndSelect

EndSub

PrivateSubCommandl_Click()

End

EndSub

程序8.界面设计如图10-5所示，过程设计如下：

PrivateSubForm_Load()

List1.Addltem"happy":List1.AdditemHapple"

List1.Additemustudent*':List1.Additem*,computern

EndSub

PrivateSubCommandl_Click()

List1.AddltemText1.Text:Textl.SetFocus

Textl.SelStart=0:Textl.SelLength=Len(Textl.Text)

EndSub

PrivateSubCommand3_Click()

List1.Clear

EndSub

PrivateSubCommand4_Click()

End

EndSub

PrivateSubCommand2_Click()

IfListl.Listindex<>-1ThenListl.RemoveltemList1.ListIndex

EndSub

9.界面设计如图10-6所示，过程设计如下：

PrivateSubForm_Load()

Optionl(0).Caption="八进制"：Optionl(l).Caption="十六进制”

Optionl(2).Caption="二进制"

EndSub

PrivateFunctiontran(kAsLong,nAsInteger)AsString

DimxAsInteger,yAsString*1,klAsLong

tran=kl=Abs(k)

DoWhilekl>0

x=klModn

Ifx>=10Theny=Chr(Asc(nAn)+x-10)Elsey=CStr(x)

tran=y+tran

kl=kl\n

Loop

Ifk<0Thentran=+tran

EndFunction

PrivateSubOptionl_Click(IndexAsInteger)

DimkAsLong,nAsInteger

k=Vai(Textl.Text)

SelectCaseIndex

Case0

Label2.Caption="八进制"：n=8

Case1

Label2.Caption="十六进制"：n=16

Case2

Label2.Caption="二进制"：n=2

EndSelect

Text2.Text=tran(kzn)

EndSub

10.界面设计如图如-7所示,过程设计如下:

PrivateSubForm_Load()

Labell.Left=Width/2-Labell.Width/2

Labell.AutoSize=True

HScrolll.Min=1:HScrolll.Max=1000

HScrolll.SmallChange=10:HScrolll.LargeChange=100

HScrolll.Value=500:Timerl.Interval=500

EndSub

PrivateSubHScrolll_Change()

Timerl.Interval=HScrolll.Value

EndSub

PrivateSubHScrolll_Scroll()

CallHScrolll_Change

EndSub

PrivateSubTimerl_Timer()

Labell.FontSize=Labell.FontSize+2

Labell.Left=Width/2-Labell.Width/2

IfLabell.FontSize>=72ThenTimerl.Enabled=False

EndSub

第6章图形控件和图形方法

一、判断题

1.V2.X3.J4.X5.V6.X7.X8.X9.V10.V

二、选择题

1.C2.B3.C4.A5.A6.C7.A8.C9.C10.B

11.A12.B13.B14.C15.C

三、填空题

1.Circle(ScaleLeft+ScaleWidth/2,ScaleTop+ScaleHeight/2),800

2.LoadPicture3.AutoSize、Stretch、False>False4.选中、属性

5.形状、矩形6.Picturel.Picture=LodePicture(nC:\Windows\Cloud.bmp")

7.图片框、其他控件8.缝、SclaeMode9.颜色

10.颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比

四、程序阅读题

程序1.转动一条红色直线，其轨迹形成一个圆

程序2.在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。

程序3.在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。

五、程序填空题

1.(1)Combo1.Listindex(2)Shape1.BorderStyle(3)Combo2.AddItemStr(i)

2.(1)Callpic(2)False(3)n=n+1

(4)LoadPicture("c:\windows\l.bmpH)(4)LoadPicture(fn)

六、程序设计题

程序1.界面设计略，过程设计如下：

PrivateSubForm_Load()

Picturel.ScaleMode=3

EndSub

PrivateSubComniandl_Click()

DimxlAsSingle,ylAsSingle,x2AsSingle,y2AsSingle

xl=InputBox(nxl=n):yl=InputBox(nyl=n)

x2=InputBox(nx2=M):y2=InputBox(ny2=n)

Picturel.Line(xl,yl)-(x2,y2),,B

EndSub

程序2.界面设计略，过程设计如下：

PrivateSubForm_click()

DimrAsSingle,xoAsSingle,yoAsSingle

IfForml.ScaleHeight<Forml.ScaleWidthThen

r=Forml.ScaleHeight/3

Else

r=Forml.ScaleWidth/3

EndIf

xo=Forml.ScaleLeft+Forml.ScaleWidth/2

yo=Forml.ScaleTop+Forml.ScaleHeight/2

Forml.FillStyle=0:Forml.FillColor=vbBlue

Forml.DrawWidth=2:Forml.ScaleMode=6

Forml.Circle(xozyo),rzvbYellow

EndSub

程序3.界面设计略，过程设计如下：

PrivateSubForm_Load()

DimiAsInteger

Fori=1To7:List1.Additemi:Nexti

Forml.ScaleMode=1

EndSub

PrivateSubListl_Click()

Forml.Cis:Forml.ScaleMode=List1.Text

Forml.Circle(Forml.ScaleLeft+Forml.ScaleWidth/2,

Forml.ScaleTop+Forml.ScaleHeight/2),50

EndSub

第7章对话框与菜单程序设计

一、判断题

1.V2.3.J4.X5.X6.X7.8.J9.J10.V

二、选择题

1.D2.A3.C4.C5.B6.D7.A8.B9.D10.B

三、填空题

1.窗体控制菜单、下拉式菜单、快捷菜单2.ShowFont

3.打开文件、另存为、颜色、字体、打印对话框4.工程、部件

5.CommonDialog1.Action=3sCommonDialog1.ShowColor

6.提示信息、对话框类型、对话框标题7.Click

8.工具9.代码窗口、Click10.相同、正

四、程序阅读题

程序1.显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。

程序2.显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的

消息框。

五、程序填空题

1.(1)Int(Rnd*100)(2)Str(i)(3)ExitFor

2.(1)False(2)Date(3)CommonDialog1.Color(4)ml

六、程序设计题

程序1.界面设计略，过程设计如下：

PrivateSubCommandl_Click()

CommonDialogl.ShowOpen

Listl.AdditemCommonDialogl.FileName

EndSub

程序2.界面设计略，过程设计如下：

PrivateSubCommandl_Click()

CommonDialogl.ShowSave

List1.AdditemCommonDialogl.FileName

EndSub

程序3.界面设计如图10・9、表103所示,过程设计如下:

PrivateSubSqr_Click()

Shapel.Shape=1

EndSub

PrivateSubRec_Click()

Shapel.Shape=0

EndSub

PrivateSubOval_Click()

Shapel.Shape=2

EndSub

PrivateSubCircle_Click()

Shapel.Shape=3

EndSub

PrivateSubRrec_Click()

Shapel.Shape=4

EndSub

PrivateSubRSqr_Click()

Shapel.Shape=5

EndSub

PrivateSubShp_Click()

Shapel.Fillstyle=2

EndSub

PrivateSubShzh_Click()

Shapel.Fillstyle=3

EndSub

PrivateSubXiex_Click()

Shapel.Fillstyle=4

EndSub

PrivateSubShPJ_Click()

Shapel.Fillstyle=6

EndSub

PrivateSubXJ_Click()

Shapel.Fillstyle=7

EndSub

PrivateSubFillColor_Click()

CommonDialogl.ShowColor

Shapel.FillColor=CommonDialogl.Color

EndSub

PrivateSubExit_Click()

End

EndSub

第8章文件

一、判断题

1.X2.J3.X4.V5.J6.X7.8.X

9.J10.J11.X12.X13.J14.X15.X

二、选择题

1.A2,C3.B4.B5.A6.C7.C8.B

9.C10.B11.D12.B13.B

三、填空题

1.ChDir2.FileLen3.Change4.EOF5.LineInput

四、程序阅读题

程序1.y=।a=1程序2.NO.13程序3.

y=3a=2NO.24窗体：36251694

y=6a=3NO.37文件：149162536

y=10a=4NO.411

程序4.程序5.1程序6.1

窗体上显示内容::202212

文件中内容：4681012333123

4444

55555

五、程序填空题

1.(1)DimnAsInteger(2)"C:\windows\calc.exe”(3)Output(4)End

2.(1)ForOutputAs#2(2)0(3)*'temp.dat'1As"c:\al.dat"

3.(1)Open"e:\dataout.txt"ForOutputAs#1

(2)tlModt2=0(3)IfflagThen(4)Printcoun

六、程序设计题

程序1.界面设计如图10-10所示，过程设计如卜.:

DimfnAsString

PrivateSubDrivel_Change()

Dirl.Path=Drivel.Drive

EndSub

PrivateSubDirl_Change()

Filel.PathDir1.Path

EndSub

PrivateSubFilel_Click()

IfRight(Filel.Path,1)=*'\*'Then

fnFilel.Path+Filel.FileName

Else

fn=Filel.Path++Filel.FileName

EndIf

EndSub

PrivateSubCommandl_Click()

DimyesnoAsByte

yesno=MsgBox("确认要删除吗?”,vbYesNo,"删除文件")

Ifyesno=vbYesThenKillfn

Filel.Refresh

EndSub

程序2.建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按

钮追加该记录到磁盘文件d:\student.dato过程设计如下：

PrivateSubCommandl_Click()

DimbAsDate,mAsByte,eAsByte

Opennd:\student.dat**ForAppendAs#1

b=Text2.Text:m=Text3.Text:e=Text4.Text

Write#1,Text1.Text,b,m,e

Text1.Text=Text2.Text=Text3.Text=Text4.Text=

Close#1

EndSub

程序3.界面设计如图10-11所示，过程设计如下：

PrivateSubForm_Load()

DimssAsString

Open*'e:\student.txtnForAppendAs#1，如文件不存在则先建立该文件

Close#1

Opennd:\student.datnForInputAs#1，将文件中所有记录在列表框中显示

WhileNotEOF(1)

LineInput#1,ss:List1.Additemss

Wend

Close#1，在选中表项之前“删除”、“修改”按钮不可用

Command2.Enabled=False:Command3.Enabled=False

EndSub

PrivateSubListl_Click()，选中表项后可“删除”或“修改”，不可“追力口”。

Commandl.Enabled=False:Command2.Enabled=True

Command3.Enabled=True:Text1.Text=List1.Text

EndSub

PrivateSubCommandl_Click()，追力口记录

IfTrim(Text1.Text)<>ThenList1.AdditemText1.Text

Text1.Text=

EndSub

PrivateSubCommand2_Click()'修改记录

List1.AdditemText1.Text,Listl.ListIndex

Listl.RemoveitemListl.ListIndex

Commandl.Enabled=True:Command2.Enabled=False

Commands.Enabled=False:Text1.Text=""，修改后，不可"删除“、"修改”

EndSub

PrivateSubCommand3_Click()'删J除［已录

Listl.RemoveItemListl.ListIndex，删除后，不可"删除“、"修改”

Commandl.Enabled=True:Command2.Enabled=False

Commands.Enabled=False:Text1.Text='*n

EndSub

PrivateSubCommanci4_Click()，保存文件，将列表框中所有表项输出到文件

DimiAsInteger

Open"d:\student.dat”ForOutputAs#1

Fori=0ToListl.ListCount-1:Print#1,Listl.List(i):Nexti

Close#1

EndSub

PrivateSubCommand5_Click()，退出之前先保存文件

CallCommand4_Click:End

EndSub

第9章数据库与数据访问技术

一、判断题

1.J2.J3.X4.V5.X