《Visual Basic程序设计基础》课后习题参考答案21

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

一、判断题

1.V2.V

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

4.V5.X6.V7.X8.J9.V10.XILV12.V

13.X14.V15.X16.V17.V18.V19.V20.V

二、选择题

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

D

三、填空题

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

4.对象5.Left、Top6.属性、〈对象名〉属性名＞=〈表达式〉

7.网格8.Form1

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

10.Activate、Deactivate

四、程序设计题

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

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

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

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

Namc(Labcl2)Caption（"请输入你的姓名”）

标签控件2

FontUndcrLinc(True)Fonlltalic(True)

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

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

过程设计如卜.：

PrivatesubForm_Click()

Command2.Enabled=False

EenSub

PrivateSubCommandl_Click()

Label2.Visible=False

Labell.Caption=Textl.Text+":欢迎使用”+Labell.Caption

Textl.Visible=False

Commandl.Enabled=False:Command2.Enabled=True

EndSub

PrivateSubCommand2_Click()

End

EndSub

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

PrivateSubCommandl_Click()，字体变大

Forml.Fontsize=Forml.Fontsize+3

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

EndSub

PrivateSubCommand2_Click()，字体变小

Forml.Fontsize=Forml.Fontsize-3

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

EndSub

PrivateSubCommand3_Click()，字体加粗

Forml.FontBold=True

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

EndSub

PrivateSubCommand4_Click()，字体不加粗

Forml.FontBold=False

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

EndSub

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

时错误。

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

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

PrivateSubForm_Load()

Textl.Text="VisualBasic程序设计”

EndSub

PrivateSubFormResize()

Textl.Top=0:Textl.Left=0

Textl.Width=Forml.ScaleWidth/2'用Forml.Scalewidth效果优于用

Forml.Width

Textl.Height=Forml.ScaleHeight/2'用Forml.ScaleHeight优于用

Forml.Height

Commandl.Top=Forml.ScaleHeight-Commandl.Height

Commandi.Lett=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."aaa"4.1455.66.37.188.False

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

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

Int(x)+1

四、程序设计题

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

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

PrivateSubCommandl_Click()

DimxAsSingle

x=Textl.Text

Labell.Caption=x*x*3.141593

EndSub

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

PrivateSubCommandl_Click()

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

x=工nputBox(”r=“，”输入圆的半径”)

Labell.Caption=x*x*3.141593

EndSub

程序2.略。

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

一、判断题

1.V2.X3.J4.X5.V6.X7.X8.V9.X10.

二、选择题

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

三、填空题

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

3.Fori=0to9:B(i)=InputBox("B("&i&")="):Nexti

4.Dim5.String6.8

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

程序1.05程序2.20程序3.2471116

程序4.1491625

程序5.□程序6.□

五、程序填空题

1.(1)q*i(2)s+p*i/q⑶Nexti

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

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

4.(1)10+Int(Rnd*90)(2)i+1To30⑶a⑴二a(j)(4)a⑴

Mod2=1

六、程序设计题

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

PrivateSubForm_Click()

DimxAsInteger,yAsInteger,zAsInteger

DimmaxAsInteger,middAsInteger,minAsInteger

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

y=工nputBox("请输入y的值:“)

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=[nputBox("请输入n的值:")

t=x/2：s=t

Fori=3Ton

t=t*x/i

s=s+t

Nexti

Prints

EndSub

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

PrivateSubFormClick()

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<10")

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

Fori=3Ton

Forj=2Toi-1

a(i,j)=a(i-1,j-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(i,j)));

Nextj

Print

Nexti

ExitSub

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

EndSub

第4章函数与过程

一、判断题

1.X2.V3.X4.X5.V6.X7.X8,V

二、填空题

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

6.PubIicxAsSingle7.StaticxAsInteger8.Form2.y

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

程序l.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()AsDoubIe,nAsInteger(2)t=t*x(3)f=

五、程序设计题

程序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,mAsbyteznAsByte,

xmaxAsSingle,kiAsByte,kjAsByte)

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

Fori=1Tom

Forj=1Ton

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

Nextj,i

EndSub

第5章常用控件

一、判断题

1.X2.X3.X4.J5.X6.V7.X8.J9.J

10.11.X12.X13.V14.V15.X16.X17.X18.V

19.20.X2122.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.MaxLenglh

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)

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

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

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

(4)Val(Tcxtl.Tcxt)<2或Val(Textl.Text)<=1(5)KcyAscii=13

4.(1)List1.ListCount(2)List1.RemoveltemI(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)Labe11.Left=-Labe11.Width

六、程序设计题

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

PrivateSubCommandl_Click()

IfCommandl.Caption="显小"Then

Print”欢迎使用VisualBasic!":Commandl.Caption="清除”

Else

Forml.Cis:Commandl.Caption="显示”

EndIf

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Load()

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

EndSub

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

PrivateSubForm_Load()

Textl.MaxLength=1:Textl.Text=

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

Labell.Caption=CStr(KeyAscii)

EndSub

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

ConstpwdAsString="123456“，预没密码为123456

PrivateSubCommandl_Click()

Cis:Print”欢迎进入！H

EndSub

PrivateSubForm_Load()

Commandl.Caption="进入“：Commandl.Enabled=Falsew

Textl.Text="“：Textl.PasswordChar=

EndSub

PrivateSubTextlKeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

IfTextl.Text=pwdThen

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

Else

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

EndIf

EndIf

EndSub

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

DimnumAsInteger,mAsInteger,recAsInteger

PrivateSubForm_Load()

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

Textl.Text="*':Textl.Enabled=False:rec=0

EndSub

PrivateSubCommandl_Click()

Randomize:num=Int(Rnd*100)+1:Textl.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

Textl.SelLength=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

CallFormLoad

EndIf

EndIf

EndIf

EndSub

程序5.界面设计如图1P3所示，过程设计如下：

PrivateSubForm_Load()

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

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

EndSub

PrivateSubCommandl_Click(IndexAsInteger)

SelectCaseIndex

Case0

Clipboard.Clear:Clipboard.SetTextTextl.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.界面设计如图164所示，过程设计如下:

PrivateSubFormLoad()

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

Optionl(0).Caption="显示日期“：Optionl(1).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.Addltem”年一月-日”：Combol.Additem”月一日一年”

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

EndSub

PrivateSubCombol_Click()

DimnAsString

SelectCaseCombol.Listindex

Case0:n="yyyy-mm-dd”

Case1:n=nmm-dd-yyyyn

Case2:n="dd-mm-yyyy”

EndSelect

Textl.Text=Format(Datern)

EndSub

PrivateSubOptionl_Click(IndexAsInteger)

SelectCaseIndex

Case0:Labell.Caption="当前日期：“：Textl.TextDate

Case1:Labell.Caption="当前时间："：Textl.TextTime

EndSelect

EndSub

PrivateSubCommandlClick()

End

EndSub

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

PrivateSubForm_Load()

Listl.Additem"happy":Listl.Additem"apple"

Listl.Additem"student”：Listl.Additem^computer"

EndSub

PrivateSubCommandl_Click.()

Listl.AdditemTextl.Text:Textl.SetFocus

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

EndSub

PrivateSubCommand3_Click()

Listl.Clear

EndSub

PrivateSubCommand4_Click()

End

EndSub

PrivateSubCommand2_Click()

IfListl.Listindex<>-1ThenListl.RemoveitemListl.Listindex

EndSub

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

PrivateSubForm_Load()

Optionl(0).Caption="八进制"：Optionl(1).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("AH)+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(k,n)

EndSub

10.界面设计如图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.V4.X5.V6.X7.X8.X9.V

10.V

二、选择题

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

11.A12.B13.B14.C15.C

三、填空题

1.Circle(ScalcLcft+ScalcWidth/2,ScalcTop+ScalcHcight/2),800

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

5.形状、矩形6.PictureI.Picturc=LodcPicturc(',C:\Windows\Cloud.bnip'')

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

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

四、程序阅读题

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

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

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

换。

五、程序填空题

1.(1)Combo1.Listindex(2)ShapeI.BorderStyle(3)Combo2.AddIlemStr(i)

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

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

六、程序设计题

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

PrivateSubForm_Load()

Picturel.ScaleMode=3

EndSub

PrivateSubCommandl_Click()

DimxlAsSingle,ylAsSingle,x2AsSingle,y2AsSingle

xl=[nputBox(=")：yl=InputBox(,,yl=")

x2=InputBox(nx2=H):y2=InputBox('•y2=H)

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

EndSub

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

PrivateSubForm_click()

DimrAsSingle,xoAsSingle,yoAsSingle

IfForml.ScaleHeight<Forml.ScalewidthThen

r=Forml.ScaleHeiqht/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(xo,yo),rfvbYe11ow

EndSub

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

PrivateSubForm_Load()

DimiAsInteger

Fori=1To7:Listl.Additemi:Nex二i

Forml.ScaleMode=1

EndSub

PrivateSubListl_Click()

Forml.Cis:Forml.ScaleMode=Listl.Text

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

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

EndSub

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

一、判断题

1.V2.V3.J4.X5.X6.X7.V8.V9.V10.

二、选择题

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

三、填空题

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

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

5.CommonDialog1.Action=3.CominonDialog1.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)CommonDiaIog1.Color(4)

六、程序设计题

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

PrivateSubCommandl_Click()

CommonDialog1.ShowOpen

Listl.AddItemCommonDialogl.FileName

EndSub

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

PrivateSubCommand1_C1ick()

CommonDialogl.ShowSave

Listl.AddltemCommonDialogl.FileName

EndSub

程序3.界面设计如图169、表10-2所示，过程设计如下:

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

PrivateSubExitClick()

End

EndSub

第8章文件

一、判断题

1.X2.J3.X4.J5.J6.X7.J8.X

9.V10.J11.X12.X13.14.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=1a=1程序2.NO.13程序3.

y=3a=2NO.24窗体:362516941

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

y=10a=4NO.4II

程序4.程序5.1程序6.1

窗体上显示内容:20221Q

文件中内容：468；101233313

4444

55555

五、程序填空题

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

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

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

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

六、程序设计题

程序1.界面设计如图I0J0所示，过程设计如下:

DimfnAsString

PrivateSubDrivel_Change()

Dirl.Path=Drivel.Drive

EndSub

PrivateSubDirl_Change()

Filel.Path=Dirl.Path

EndSub

PrivateSubFilel_Click()

IfRight(Filel.Path,1)=Then

fn=Filel.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

Open"d:\student.dat”ForAppendAs41

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

Write#1,Textl.Text,b,mze

Textl.Text="":Text2.Text=H:Text3.Text=Text4.Text=""

Close#1

EndSub

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

PrivateSubForm_Load()

Dim55AsString

Openne:\student.txt"ForAppendAs41，如文件不存在则先建立该文件

Close#1

Open"d:\student.dat"ForInputAs#1,将文件中所有记录在列表框中显示

WhileNotEOF(l)

LineInput#1,ss:Listl.Addltemss

Wend

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

Command2.Enabled=False:Commands.Enabled=False

EndSub

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

Commandl.Enabled=False:Command2.Enabled=True

Commands.Enabled=True:Textl.Text=Listl.Text

EndSub

PrivateSubCommandl_Click()，追力口记录

IfTrim(Textl.Text)<>"nThenListl.AddltemTextl.Text

Textl.Text=

EndSub

PrivateSubCommand2_Click()，修改记录

Listl.AddltemTextl.Text,Listl.Listindex