《Visual Basic程序设计基础》习题参考答案(6)

Shape1.Shape = 0 End Sub

Private Sub Oval_Click() Shape1.Shape = 2 End Sub

Private Sub Circle_Click() Shape1.Shape = 3 End Sub

Private Sub Rrec_Click() Shape1.Shape = 4 End Sub

Private Sub RSqr_Click() Shape1.Shape = 5 End Sub

Private Sub Shp_Click() Shape1.FillStyle = 2 End Sub

Private Sub Shzh_Click() Shape1.FillStyle = 3 End Sub

Private Sub Xiex_Click() Shape1.FillStyle = 4 End Sub

Private Sub ShPJ_Click() Shape1.FillStyle = 6 End Sub

Private Sub XJ_Click() Shape1.FillStyle = 7 End Sub

Private Sub FillColor_Click() CommonDialog1.ShowColor

Shape1.FillColor = CommonDialog1.Color End Sub

Private Sub Exit_Click() End End Sub

第8章 文 件

一、判断题

1．× 2．√ 3．× 4．√ 5．√ 6．× 7．√ 8．× 9．√ 10．√ 11．× 12．× 13．√ 14．× 15．× 二、选择题

1．A 2．C 3．B 4．B 5．A 6．C 7．C 8．B 9．C 10．B 11．D 12．B 13．B 三、填空题

1．ChDir 2．FileLen 3．Change 4．EOF 5．Line Input 四、程序阅读题 程序1.

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

y= 3 a= 2 NO. 2 4 窗体：36 25 16 9 4 1 y= 6 a= 3 NO. 3 7 文件：1 4 9 16 25 36 y= 10 a= 4 NO. 4 11

程序4. 程序5. 1 程序6. 1 窗体上显示内容：20 2 2 1 2 文件中内容：4 6 8 10 12 3 3 3 1 2 3 4 4 4 4 5 5 5 5 5 五、程序填空题

1．（1）Dim n As Integer （2）\C:\\windows\\calc.exe\ （3）Output （4）End 2．（1）For Output As #2 （2）0 （3）\3．（1）Open \

（2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun 六、程序设计题

程序1．界面设计如图10-10所示，过程设计如下： Dim fn As String

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub

Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub

Private Sub File1_Click()

If Right(File1.Path, 1) = \ fn = File1.Path + File1.FileName Else