第四节习题详细解答与分析.pdfVIP

第四节习题解答

一、判断题

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

二、选择题

1.D2.A3.C4.C5.B6.D7.B8.D9.B

三、填空题

1.窗体控制菜单、下拉菜单、快捷菜单2.ShowFont3.颜色4.工程、部件5.Action=1、

ShowColor6.单击7.工具8.代码窗口、单击9.相同、不小于0

四、程序阅读题

击后连续闪烁5次显示系统当前日期，单击t12后连续闪烁5次显示系统当前时间。

单t11

五、程序填空题

六、程序设计题

1.

题程序代码如下

PrivateSubCommand1_Click()CommonDialog1.ShowOpen:

Label1.Caption=CommonDialog1.FileNameEndSub

题2.程序代码如下PrivateSubDrive1_Change()

Dir1.Path=Drive1.DriveEndSubPrivateSubDir

1_Change()File1.Path=Dir1.PathEndSub

PrivateSubFile1_Click()Label1.Caption=File1.

Path+File1.FileNameEndSub

题3.程序代码如下PrivateSubEx_

Click()EndEndSubPrivateSubfill_

Click(IndexAsInteger)Shape1.FillStyle=

Index+2EndSub

第四节习题解答

一、判断题

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

二、选择题

1．D2．A3．C4．C5．B6．D7．B8．D9．B

三、填空题

1.窗体控制菜单、下拉菜单、快捷菜单2.ShowFont3.Color4.工程、部件

5.Action=1、ShowColor6.Click7.工具8.代码窗口、Click9.相同、不小于0

四、程序阅读题

单击t11后连续闪烁5次显示系统当前日期，单击t12后连续闪烁5次显示系统当前时间。

五、程序填空题

六、程序设计题

题1．程序代码如下

PrivateSubCommand1_Click()

CommonDialog1.ShowOpen:Label1.Caption=CommonDialog1.FileName

EndSub

题2．程序代码如下

PrivateSubDrive1_Change()

Dir1.Path=Drive1.Drive

EndSub

PrivateSubDir1_Change()

File1.Path=Dir1.Path

EndSub

PrivateSubFile1_Click()

Label1.Caption=File1.Path+File1.FileName

EndSub

题3．程序代码如下

PrivateSubEx_Click()

End

EndSub

PrivateSubfill_Click(IndexAsInteger)

Shape1.FillStyle=Index+2

EndSub

_

PrivateSubFillCClick()

CommonDialog1.ShowColorShape1.

FillCol