vb程序设计书习题和参考答案(8)

MsgBox \请先选择\ Else

Combo1.AddItem List1.Text

List1.RemoveItem List1.ListIndex End If End Sub

Private Sub Command2_Click() If Combo1.ListIndex = -1 Then MsgBox \请先选择\ Else

List1.AddItem Combo1.Text

Combo1.RemoveItem Combo1.ListIndex End If End Sub

Private Sub Command3_Click() Do While List1.ListCount <> 0 Combo1.AddItem List1.List(0) List1.RemoveItem 0 Loop End Sub

4、 过程设计如下： Private Sub Form_Load() Timer1.Interval = 200

Label1.Caption = \欢迎使用VB\ Label1.Left = -Label1.Width End Sub

Private Sub Timer1_Timer()

If Label1.Left <= Form1.Width Then Label1.Left = Label1.Left + 100 Else

Label1.Left = -Label1.Width End If End Sub

习题七

一、选择题

1、A 2、D 3、A 4、B 5、A 6、D 7、B 8、C 9、C 10、B 11、A 12、C 13、A 14、B 15、B 16、A 17、B 18、C 19、B 20、C 二、程序填空题

1、（1）ScaleWidth （2）Line (x1, 0)-(0, y2) （3）Circle (x1 / 2, y2 / 2), r, vbRed 2、（1）FillStyle = 0 （2）Circle (x, y), r, RGB(255, 0, 0) 三、程序设计题

1、 过程设计如下：

Const pi = 3.14159

Private Sub Command1_Click() Dim i As Single, j As Single

Picture1.Scale (-2 * pi, 1.5)-(2 * pi, -1.5) For i = -2 * pi To 2 * pi Step 0.001 Picture1.PSet (i, 0), vbRed Next i

For j = -2 * pi To 2 * pi Step 0.001 Picture1.PSet (j, Cos(j)), vbBlue Next j End Sub

Private Sub Command2_Click() End End Sub

2、 过程设计如下： Private Sub Form_Click() Dim r As Single r = ScaleWidth

If ScaleWidth > ScaleHeight Then r = ScaleHeight FillStyle = 0

FillColor = RGB(0, 0, 255)

Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), r / 2, RGB(0, 0, 255) End Sub

习题八

一、判断题

1、√ 2、× 3、× 4、× 5、√ 6、√ 7、× 8、√ 二、单选题

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

1、showOpen showSave ShowPrint ShowColor ShowFont 2、MsgBox 消息框标题 提示文字 消息框的按钮和图标样式 3、菜单编辑器 4、Checked 5、Enabled 6、-

四、程序填空题

（1）Text1.Text + a （2）a = \ （3）Text1.Text = \ （4）Text1.Text = \ （5）a = \ （6）a 五、程序设计题 1、

Private Sub Command1_Click() CommonDialog1.ShowColor

Picture1.FillColor = CommonDialog1.Color

End Sub

Private Sub Command2_Click()

If Picture1.ScaleHeight < Picture1.ScaleWidth Then r = Picture1.ScaleHeight / 2 Else

r = Picture1.ScaleWidth / 2 End If

Picture1.FillStyle = 0

Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), r End Sub

Private Sub Command3_Click() End End Sub 2、

Private Sub mnumove_Click(Index As Integer) Select Case Index Case 0

Picture1.Top = Picture1.Top - 200 Case 1

Picture1.Top = Picture1.Top + 200 Case 2

Picture1.Left = Picture1.Left - 200 Case 3

Picture1.Left = Picture1.Left + 200 End Select End Sub

习题九

一、选择题

1、D 2、A 3、A 4、C 5、A 6、B 7、A 8、C 二、填空题

1、驱动器列表框 目录列表框 文件列表框 2、Path 3、FileCopy 4、Freefile

5、Open “c:\\a.dat” For Output As #1 三、程序阅读题 1、

NO. 3 2 NO. 4 3 NO. 5 5 NO. 6 8 NO. 7 13

2、

9、C 10、D y= 1 a= 1 y= 3 a= 2 y= 6 a= 3

四、编程题

1、Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive End Sub

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

Private Sub Command1_Click()

Open \ For i = 0 To File1.ListCount - 1 Print #1, File1.List(i) Next i Close #1 End Sub

Private Sub Command2_Click() Dim a As String

Open \ While Not EOF(1) Line Input #1, a List1.AddItem a Wend End Sub

2、Private Sub Command1_Click()

If Text1.Text = \

MsgBox \请先输入字符串\ Else

Open \ Print #1, UCase(Text1.Text) Close #1 End If End Sub

习题十

一、选择题

1.D、2.D、3.C、4.D、5.C、6.B、7.C、8.A、9.A、10.C、11.B、12.C、13.D、14.B、15.D 二、程序设计题（略）

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vb程序设计书习题和参考答案(8)在线全文阅读。